Checking Date range

[Sigal Laniado]

I want to make a small dialog box which contains
"From Date" and "To Date" input user fields .
I need to validate that the dates inserted by the user are correct.
Is there any code around that do somthing similar?

[Lothar Haensler]

try the IsDate function. It returns False for invalid dates.

[Dr_Michael]

I would do it with two date picker controls:


private Sub Form_Initialize()
'initialize controls
DTPicker1.Value = Now
DTPicker2.Value = Now
DTPicker1.MaxDate = Now
DTPicker2.MaxDate = Now
DTPicker2.MinDate = Now
End Sub

private Sub DTPicker1_Validate(Cancel as Boolean)
'set the earliest date for dtpicker2 equal to the selected date from dtpicker1
DTPicker2.MinDate = DTPicker1.Value
End Sub



You can retrieve the values entered with the value property of each dtpicker control. For any further questions, post them here! ;-)

Michael Vlastos
Automation Engineer
Company SouthGate Hellas SA
Development Department
Athens, Greece

[Leo Koach]

Try this

Private Sub Command1_Click()
Dim Date1 As Date
Dim Date2 As Date
Date1 = Format(Text1, "dd/mm/yyyy")
Date2 = Format(Text2, "dd/mm/yyyy")
If Date1 - Date2 >= 0 Then
MsgBox "Please enter the correct dates"
End If
End Sub

It works for me.

Good luck.
Leo