URGENT: help what am i doing wrong! subtraction

[pnutz]

Hey there,

Everytime equation comes to zero my program runs into an infinate loop.. Anyone knows why... i'm actually subtracting one date from the other using date diff....

my codes are as such

DateHold = Rs.Fields("TimeStamp")
 
Rs.MoveNext
 
Do While Not Rs.EOF
 
    DateCompare = Rs.Fields("TimeStamp")
    Debug.Print DateCompare
    Debug.Print DateHold
    Subtract = DateDiff("s", DateHold, DateCompare)
    Debug.Print Subtract
    Rs!AmountTime = Subtract
    DateHold = DateCompare
    DateValidate = Rs.Fields("AmountTime")
    
    For i = 1 To 2000
    DoEvents
    Next i
    
    Debug.Print DateValidate
    
        If (DateValidate <= -1) Then
                 
            DeleteDateValidate (DateValidate)
                 
        End If
        
   Rs.MoveNext
 
Loop
 
Rs.Close
 
 
Thanks!

[MartinLiss]

How is Subtract defined? Does your code compile?

[pnutz]

He thanks for the reply.. yes my code compiles...

and these are my varibles

Dim Subtract As String
Dim AmountTime As String
Dim DateCompare As Date
Dim DateHold As Date
Dim DateValidate As String

[randem]

pnutz

How is TimeStamp defined. Under normal conditions TimeStamp is a reservered field type and does not contain a date and is not defined as one.

So DatDiff on a TimeStamp field would not be a correct choice.