PDA

Vollständige Version anzeigen : Datumsvergleich


tschroeder
30.09.2005, 07:39
Hallo,

habe hier ein Problem, zwei Datumsangaben miteinander zu vergleichen.
VBA will mir erzählen, dass der 30.09.2005 nach dem 01.10.2005 kommt!

Function funct_start()

Dim strDatum, usDatum, dateDatum
Dim OriginalLocale

strDatum = CStr("01.10.2005")
var_date = CDate(strDatum)


If FormatDateTime(Date, vbShortDate) < var_date Then

MsgBox FormatDateTime(Date, vbShortDate) & "<" & var_date

ElseIf FormatDateTime(Date, vbShortDate) = var_date Then

MsgBox FormatDateTime(Date, vbShortDate) & "=" & var_date

ElseIf FormatDateTime(Date, vbShortDate) > var_date Then

MsgBox FormatDateTime(Date, vbShortDate) & ">" & var_date

End If

End Function


Ich bekomme als Ergebnis, dass der 30.09.2005 nach dem 01.10.2005 kommt.

Gruß

Thomas

J_Eilers
30.09.2005, 07:48
Hi,

?comparedate("30.09.05", "01.10.05")
Das Startdatum liegt vor dem Enddatum

Und CompareDate() sieht so aus:

Public Function CompareDate(Start As String, Ende As String) As String
Dim x As Double

x = DateDiff("d", CDate(Start), CDate(Ende))
Select Case x
Case Is = 0
CompareDate = "Beide Daten sind am gleichen Tag"
Case Is > 0
CompareDate = "Das Startdatum liegt vor dem Enddatum"
Case Is < 0
CompareDate = "Das Startdatum liegt hinter dem Enddatum"
End Select
End Function

tschroeder
30.09.2005, 08:44
Hi,

Thanks. It works.

Schönes Wochenende.

Gruß

Thomas