Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Online-Kosten anhand von Start- und Endzeit ermitteln

Gruppe

DatumUndZeit

Problem

Aus den Daten in Zeile 2 sollen Online-Kosten errechnet werden. Der Wochenendtarif liegt bei der Hälfte des Onlinetarifes.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

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