Pessoal é o seguinte, o código abaixo verifica uma condição logica, se por exemplo eu digitar na data incial 25/05/2011 e data final 25/05/2011 o resultado é 0 (zero), mesmo existindo dados no dia 25. Mas quando eu digito data inicial 24/05/2011 e data final 26/05/2011 o resultado é correto. Gostaria de contar com a colaboração de vocês para me ajudarem.

ABAIXO O CODIGO

Private Sub CommandButton3_Click()

Dim totalhours As Long, totalminutes As Long, totalseconds As Long

Dim days As Long, hours As Long, minutes As Long, seconds As Long

Dim interval As Variant, j As Integer

Dim STDIA As Date

Dim SNRPM As String

Dim SDATA As Date

Dim SDATAF As Date

SDATA = DTPicker1

SDATAF = DTPicker2

SNRPM = Label9.Caption

Label4.Caption = ""

rsto.MoveMin

Do While Not rsto.EOF

If rsto!NR_PM = SNRPM And rsto!HORA_INICIO >= SDATA And rsto!HORA_INICIO <= SDATAF Then 'AQUI QUE A LOGICA ESTÁ ERRADA.

  interval = interval + rsto!TOTAL_DIARIO

End If

rsto.MoveNext

Loop

totalhours = Int(CSng(interval * 24))

totalminutes = Int(CSng(interval * 1440))

totalseconds = Int(CSng(interval * 86400))

hours = totalhours Mod 24

minutes = totalminutes Mod 60

seconds = totalseconds Mod 60

Label4.Caption = Format(totalhours & ":" & minutes & ":" & seconds)

Label5.Caption = "Servidor: " & Label1.Caption & " " & "trabalhou:" & " " & "no período de:" & " " & SDATA & " " & "a" & " " & SDATAF & " " & "o total de horas abaixo:"

End Sub