Hej!!
Vet du hur man kontrollerar om ett datum är äldre än ett annat i kortformat(yyyy-mm-dd)?

///Joel

Hej
Det där med Datum hantering är och har alltid varit
som en "böld i arslet"
Jag har hittat en metod som jag konsekvent använder.

Vb tillhandahåller en Function som heter CDate.
Den känner av om det är ett accepterat DatumFormat.

Om du skickar en sträng tex. 2000-12-31 till CDate
så får du till baka ett heltal som representerar
dagens numeriska värde räknat från 1900-01-01

Option Explicit

Private Sub Command1_Click()
Label1 = CLng(CDate("2000-12-31")) 'ger 36891
Label2 = CLng(CDate("2000-12-18")) 'ger 36878

If Val(Label1) > Val(Label2) Then
'gör något
MsgBox ("Första Datum är mer än andra")
Else
'gör något annat
MsgBox ("Första Datum är mindre än andra")
End If
End Sub

mvh
Sven

Hej
Jag igen

Option Explicit
Private Sub Command1_Click()
'hur att vända tillbaka. Förra exemplet ovan
'gav 36891 som 2000-12-31
Label1 = CDate(Format$(36891, "yyyy-mm-dd"))
End Sub

mvh
Sven