Public Function Rabatberegning(pris As Long, antalpkr As Integer, Bestillingsdato As Date, leveringsdato As Date)
Dim maengderabat As Double, leveringsrabat As Double
'Udregning af mængderabat
If antalpkr > 10 Then
maengderabat = (antalpkr - 10) * pris * 1.5 / 100
Else
maengderabat = 0
End If
'udregning af leveringsrabat
If DateDiff("d", Bestillingsdato, leveringsdato) > 2 And Weekday(Bestillingsdato) > 1 And Weekday(Bestillingsdato) < 5 Then
leveringsrabat = pris * antalpkr * 0.025
Else
leveringsrabat = 0
End If
'udregning af samlet beløb excl. moms
Rabatberegning = antalpkr * pris - maengderabat - leveringsrabat
'Funktionen returnere værdien i rabatberegning
End Function
Sub rabatmacro()
Rabat.Show
End Sub