VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Online-Kosten anhand von Start- und Endzeit ermitteln

Gruppe

UDF

Bereich

DatumUndZeit

Thema

Online-Kosten anhand von Start- und Endzeit ermitteln

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und DatumUndZeit