Exported VBA

wgmaster/vba/Report_BAuszahlungMGNR.frm

@@ -0,0 +1,27 @@
+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