Galera, abaixo está um código funcionando, porem às vezes o label que aparece as horas fica assim: 54:0:0  (exemplo). Gostaria que ficasse assim 54:00:00., ou seja formato assim "dd/mm/yyyy".

 

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
Dim VHI As Date
SDATA = DTPicker1
SDATAF = DTPicker2
SNRPM = Label9.Caption
Label4.Caption = ""
rsto.MoveMin
Do While Not rsto.EOF
If rsto!NR_PM = SNRPM And Left(rsto!HORA_INICIO, 10) >= SDATA And Left(rsto!HORA_INICIO, 10) <= SDATAF Then
  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, "hh:nn:ss") ' AQUI QUE AS VEZES FICA ASSIM 44:1:0 ETC,....
Label5.Caption = "Servidor: " & Label1.Caption & " " & "trabalhou:" & " " & "no período de:" & " " & SDATA & " " & "a" & " " & SDATAF & " " & "o total de horas abaixo:"
End Sub

OK, VOU TENTAR ESSA CAMBIARRA. OBRIGADO.

 

SRICK

Treze;você fez algum teste.