|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Calcular horas e minutos de um intervalo.
|
 |
|
|
|
Postada em 6/8/2006 por LCRamos
Dim lTEMPO As Long
Dim luTEMPO As Long
Dim iHORA As Integer
Dim cMINUTO As Currency
Function HORASTRABALHADAS(sHoraIni As String, sHoraFin As String)
lTEMPO = DateDiff("n", sHoraIni, sHoraFin)
iHORA = 0
cMINUTO = 0
If lTEMPO > 0 Then
If lTEMPO > 60 Then
luTEMPO = lTEMPO
Do While luTEMPO >= 60
luTEMPO = (luTEMPO - 60)
iHORA = iHORA + 1
Loop
cMINUTO = (lTEMPO - (iHORA * 60))
Else
cMINUTO = lTEMPO
End If
MsgBox iHORA & ":" & Format(cMINUTO, "00") & "hs"
End If
End Function
'Chamanda da função
Call HORASTRABALHADAS("08:00", "16:35")
|
|
|
|
|
