need help about Time Check

[Zahir]

Hi..

i havee Start time and End time

like

start time : 4:00 PM
end time : 7:00 AM (next day )

i wana check my current time is it in between of the start time and end time . How it is possible, i need it urgent

Thanks u ppl

Regards
Zahir

 

[Paddyo]

Maybe this might help

I dont think you can just have a time - you will need a date and time

Start time = 31-07-02 16:00
End time = 01-08-02 07:00

You will have to check out the format for the variables

Then check if Now is >= StartTime and <= EndTime

Hope this puts you in the right direction

 

[Foada]

Give this a try:

Private Sub Command1_Click()
Dim dStart As Date
Dim dEnd As Date

dStart = Date & &quot; &quot; & #7:00:00 AM#
dEnd = DateAdd(&quot;d&quot;, 1, Date) & &quot; &quot; & #7:00:00 AM#
If dStart < Now And dEnd > Now Then
Print &quot;OK&quot;
Else
Print &quot;Not OK&quot;
End If
End Sub

Hope this helps. If you choose to battle wits with the witless be prepared to lose.

 

[Foada]

Sorry I used different times than you are asking for should be

Private Sub Command1_Click()
Dim dStart As Date
Dim dEnd As Date

dStart = Date & &quot; &quot; & #4:00:00 PM#
dEnd = DateAdd(&quot;d&quot;, 1, Date) & &quot; &quot; & #7:00:00 AM#
If dStart < Now And dEnd > Now Then
Print &quot;OK&quot;
Else
Print &quot;Not OK&quot;
End If
End Sub
If you choose to battle wits with the witless be prepared to lose.