relation fra VBA til en formular
jeg har følgende script:Public Function MyAfrund(aValue As Double) As Double
Dim Result As Double
Dim f
f = -(Value > 100) - 4 * (Value > 500) - 5 * (Value > 5000) - 90 * (Value > 10000)
If Value > 100 Then
pUpround = (Value \ f) * f
If pUpround <> Value Then pUpround = pUpround + f
Else
pUpround = Value: End If
Select Case aValue
Case Is >= 10000
' skal den runde op til hele 100 kr
Result = ((aValue \ 100) * 100) + 100
Case Is >= 5000
' skal den runde op til hele 10kr
Result = ((aValue \ 10) * 10) + 10
Case Is >= 500
' skal den rundes op til hele 5 kr
Result = ((aValue \ 5) * 5) + 5
Case Is >= 100
' skal den rundes op til hele 1 kr
Result = ((aValue \ 1) * 1) + 1
Case Else
Result = aValue
End Select
MyAfrund = Result
End Function
nu vil jeg gerne at have det sådan at oprund værdierne læser værdien i en form istedet for at være faste værdier i scriptet
feks således at istedet for :
Case Is >= 10000
Result = ((aValue \ 100) * 100) + 100
skal den være ala:
Case Is >= 10000
Result = ((aValue \ forms!form1!text1.value) * forms!form1!text1.value) + forms!form1!text1.value