You should examine theDate.totalseconds+i+j+s in your second message
box, since that's what you're comparing against.You'll find that changes
your perception.
Like this: MsgBox "Nope." + Format(d.totalseconds, "##########")+
EndOfLine +Format((theDate.totalseconds+i+j+s), "##########")
Jeffrey Ellis wrote:
So. I have a fairly simply little calculation which is failing.
I'm trying to compare a user-entered date and time to the current date and
time.
Here's the code:
Dim d, theDate as new date
dim h, m, s, i, j as integer
dim edate, formatTotalSeconds as string
Dim t as Boolean
edate=EnterDate.text//the EnterDate editfield
h=val(hour.text)//the hour editfield
i=h*60*60
m=val(min.text)//the minute editfield
j=m*60
s=val(sec.text)//the second editfield
t=ParseDate(edate,theDate)
theDate.hour=h
theDate.Minute=m
theDate.second=s
If d.totalseconds>=(theDate.totalseconds+i+j+s) Then
beep
MsgBox Format(d.totalseconds, "#######################")+"
"+Format(theDate.totalseconds, "#######################")
else
MsgBox"Nope. Format(d.totalseconds, "##########")+"
"+Format(theDate.totalseconds, "##########")
End If
My Result at 10:20:40pm on 10/28/06, with the User fields being set to
10/28/06 22 20 00 respectively was:
d.totalseconds=3244918841
theDate.totalseconds=3244918800
Now clearly, 3244918841 is > than 3244918800
And yet, I get the second msgBox!
Can someone please enlighten me?
All My Best,
Jeffrey
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
