Rückgabewert von Function
16.04.2002 09:35:19
reri
Ich möchte gerne eine Funktion schreiben, die mir das Datum immer richtig formatiert, egal welches Länderformat lokal eingestellt wurde.
Dazu habe ich folgende Function geschrieben:
'_______________________________________________________________________________
'*******************************************************************************
Function myDate(T, M, J)
Dim a
Select Case Mid(Trim(Now), 3, 1)
Case "/"
a = CDate(M & "/" & T & "/" & J)
Case "."
a = CDate(T & "." & M & "." & J)
End Select
End Function
'*******************************************************************************
'TEST
Sub test()
Dim testtag
testtag = "31.12.2001"
If testtag < myDate(12, 6, 2000) Then
MsgBox "es ist kleiner"
Else
MsgBox "es ist grösser"
End If
End Sub
'*******************************************************************************
'_______________________________________________________________________________
Aber irgendwo ist der Fehler. Ich weiss nur nicht genau wo? Kann mir jemand auf die Sprünge helfen? Vielen Dank im voraus.