German Differenz in Tagen - Problem mit Datum

thewavemaster

Member
Licensed User
Hallo zusammen.

Ich benötige eine Funktion die den Abstand in Tagen zwischen einem festen Datum(02.01.2012) und einem variablen Datum (Textbox) berechnet. Nachfolgende Funktion habe ich dazu erstellt. Ich verstehe nicht, warum der Abstand nur bis zum 25.03.2012 richtig berechnet wird? (richtiges Ergebnis: 83 Tage). Ab dem 26.03.2012 fehlt ein Tag (auch hier wird das Ergebnis 83 ausgegeben).


Sub Schichtfolge(Datum2 As String)

'Definitionen von Variablen
Dim Differenz_in_ticks As Long
Dim Differenz_in_tagen As Long
Dim Datum1 As String
Dim Ergebnis1 As Double
Dim Ergebnis2 As Double
Datum1 = "02.01.2012"



'Festlegen von Variablen
DateTime.DateFormat = "dd.MM.yyyy"


'Funktion:
Differenz_in_ticks = DateTime.DateParse(Datum2) - DateTime.DateParse(Datum1)
Differenz_in_tagen = Differenz_in_ticks / DateTime.TicksPerDay

ToastMessageShow(Differenz_in_tagen,True)







End Sub
 
Top