28 lines
539 B
Plaintext
28 lines
539 B
Plaintext
Option Compare Database
|
|
Option Explicit
|
|
|
|
Private Sub Report_Close()
|
|
DoCmd.ShowToolbar "Datenbank", acToolbarNo
|
|
End Sub
|
|
|
|
Private Sub Report_Open(Cancel As Integer)
|
|
DoCmd.ShowToolbar "Datenbank", acToolbarYes
|
|
End Sub
|
|
|
|
Public Function Runden(value1 As Double, digits As Integer) As Double
|
|
|
|
Dim temp1 As Double
|
|
|
|
temp1 = value1 * (10 ^ digits)
|
|
|
|
If (temp1 * 10) Mod 10 = 5 Then
|
|
temp1 = temp1 + 1
|
|
temp1 = Fix(temp1)
|
|
temp1 = temp1 / (10 ^ digits)
|
|
Runden = temp1
|
|
Else
|
|
Runden = CLng(value1 * (10 ^ digits)) / (10 ^ digits)
|
|
End If
|
|
|
|
End Function
|