Comparing Time - Dev Shed

Dev Shed Forums Sponsor:

Stop making mediocre tutorials.The best tutorials are video! Camtasia Studio makes it easy to create engaging, buzz-building screen videos at any size, in any popular format. Download the free trial!

April 27th, 2008, 08:49 PM

neverends

Contributing User

Join Date: May 2004

Posts: 81

Time spent in forums: 14 h 51 m 35 sec
Reputation Power: 5

Comparing Time

I have a problem comparing times. I'm not sure why it won't work. I am pulling the data from an SQL database.

I know that MyTime = 1/1/1900 11:00:00 AM
GetNADs("TimeStart")) = 1/1/1900 10:30:00 AM
GetNADs("TimeEnd")) = 1/1/1900 12:00:00 PM

It has some kind of problem with the second part of the check.

Here's what I've tried:

Code:

If (MyTime1 > GetNADs("TimeStart")) AND (MyTime1 < GetNADs("TimeEnd")) Then

     GameDayProblem5 = 1

Else
     GameDayProblem5 = 0

End If

April 27th, 2008, 11:22 PM

alexk13

Contributing User

Join Date: Nov 2004

Location: Sydney, Australia

Posts: 50

Time spent in forums: 6 Days 4 h 2 m 49 sec
Reputation Power: 6

I've always had problems with date/time calculations, so I came up with this little function:

ASP Code:

Original - ASP Code

<%
Function datetimeToStr(thisDateTime)
    thisDateTimeYr = datePart("yyyy", thisDateTime) * 10000000000
    thisDateTimeMt = datePart("m", thisDateTime) * 100000000
    thisDateTimeDy = datePart("d", thisDateTime) * 1000000
    thisDateTimeHr = datePart("h", thisDateTime) * 10000
    thisDateTimeMn = datePart("n", thisDateTime) * 100
    thisDateTimeSc = datePart("s", thisDateTime) * 1
    thisDateTimeStr = thisDateTimeYr + thisDateTimeMt + thisDateTimeDy + thisDateTimeHr + thisDateTimeMn + thisDateTimeSc
    datetimeToStr = thisDateTimeStr
End Function
%>

To use this function in your case, you can use this code as a good starting point:

ASP Code:

Original - ASP Code

<%
'Create 3 DateTimes - these can be pulled from DB Fields
time1 = dateSerial(1900, 1, 1) & " " & timeSerial(11, 00, 00)
time2 = dateSerial(1900, 1, 1) & " " & timeSerial(10, 30, 00)
time3 = dateSerial(1900, 1, 1) & " " & timeSerial(12, 00, 00)
 
'Write the dateTimes to the screen for debuggin purposes
Response.Write time1 & "<br />" & time2 & "<br />" & time3 & "<br />"
 
'Convert to custom Date Time String
MyTime = datetimeToStr(time1)
TimeStart = datetimeToStr(time2)
TimeEnd = datetimeToStr(time3)
 
'Do Comparison
If (MyTime > TimeStart) AND (MyTime < TimeEnd) Then
     GameDayProblem5 = 1
Else
     GameDayProblem5 = 0
End If
Response.Write GameDayProblem5
%>

Hope this helps

Last edited by alexk13 : April 27th, 2008 at 11:24 PM.

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: