Da questo codice qualcuno mi saprebbe dire perchè se faccio una differenza tra un 29/07/2002 12.40.21 e un 30/07/2002 12.40.20, mi dà i sencondi negativi?
codice:
Dim datTimer1 As Date, datTimer2 As Date
Public Sub cdmTimer1_Click()
    datTimer1 = Now
    txtTimer1.Text = datTimer1
End Sub

Public Sub cmdTimer2_Click()
    datTimer2 = Now
    txtTimer2.Text = datTimer2
End Sub
Private Sub cmdDiff_Click()
    datTimer1 = txtTimer1.Text
    datTimer2 = txtTimer2.Text
    Dim intDDiff As String
    
    intDDiff = (DatePart("d", datTimer2) - DatePart("d", datTimer1)) * 24
        If DatePart("n", datTimer2) - DatePart("n", datTimer1) < 0 Then
            If DatePart("s", datTimer2) - DatePart("s", datTimer1) < 0 Then
                intDDiff = intDDiff + DatePart("h", datTimer2) - DatePart("h", datTimer1) - 1
                intDDiff = intDDiff & ":"
                intDDiff = intDDiff & DatePart("n", datTimer2) - DatePart("n", datTimer1) + 59
                intDDiff = intDDiff & ":"
                intDDiff = intDDiff & DatePart("s", datTimer2) - DatePart("s", datTimer1) + 60
            Else
                intDDiff = intDDiff + DatePart("h", datTimer2) - DatePart("h", datTimer1) - 1
                intDDiff = intDDiff & ":"
                intDDiff = intDDiff & DatePart("n", datTimer2) - DatePart("n", datTimer1) + 60
                intDDiff = intDDiff & ":"
                intDDiff = intDDiff & DatePart("s", datTimer2) - DatePart("s", datTimer1)
            End If
        Else
            If DatePart("s", datTimer2) - DatePart("s", datTimer1) < 0 Then
                intDDiff = intDDiff + DatePart("h", datTimer2) - DatePart("h", datTimer1) - 1
                intDDiff = intDDiff & ":"
                intDDiff = DatePart("n", datTimer2) - DatePart("n", datTimer1)
                intDDiff = intDDiff & ":"
                intDDiff = intDDiff & (DatePart("s", datTimer2) + 60) - DatePart("s", datTimer1)
            End If
            intDDiff = (DatePart("d", datTimer2) - DatePart("d", datTimer1)) * 24
            intDDiff = intDDiff + DatePart("h", datTimer2) - DatePart("h", datTimer1)
            intDDiff = intDDiff & ":"
            intDDiff = intDDiff & DatePart("n", datTimer2) - DatePart("n", datTimer1)
            intDDiff = intDDiff & ":"
            intDDiff = intDDiff & DatePart("s", datTimer2) - DatePart("s", datTimer1)
        End If
    lblDiff.Caption = intDDiff
End Sub
Grazie