Gruppe
UDF
Problem
Aus den Daten in Zeile 2 sollen Online-Kosten errechnet werden. Der Wochenendtarif liegt bei der Hälfte des Onlinetarifes.
StandardModule: basMain
Function Kosten( _
datDay As Date, _
datStart As Date, _
datEnd As Date, _
dblTarif As Double) As Double
If WorksheetFunction.WeekDay(datDay, 2) < 6 Then
Kosten = (datEnd - datStart) * 24 * 60 * dblTarif
Else
Kosten = ((datEnd - datStart) * 24 * 60 * dblTarif / 2)
End If
End Function