USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Cálculo de horas e minutos de um intervalo
Postada em 5/2/2007 por ¨Hennyere¨         
Public Function CalculaIntervalo(h1 As String, h2 As String) As String
    If CDate(h1) > CDate(h2) Then h2 = TransformaTempo(h2)
    CalculaIntervalo = CDbl(Mid(h1, 1, 2) & Mid(h1, 4, 2)) - CDbl(Mid(h2, 1, 2) & Mid(h2, 4, 2))
    If Right(CalculaIntervalo, 2) > 59 Then CalculaIntervalo = CalculaIntervalo - 60
    Select Case Len(CalculaIntervalo)
        Case 2
            CalculaIntervalo = "00:" & CalculaIntervalo
        Case 3
            CalculaIntervalo = "0" & Mid(CalculaIntervalo, 1, 1) & ":" & Mid(CalculaIntervalo, 2, 2)
        Case 4
            CalculaIntervalo = Mid(CalculaIntervalo, 1, 2) & ":" & Mid(CalculaIntervalo, 3, 2)
        Case 5
            CalculaIntervalo = Mid(CalculaIntervalo, 1, 3) & ":" & Mid(CalculaIntervalo, 4, 2)
        Case 6
            CalculaIntervalo = Mid(CalculaIntervalo, 1, 4) & ":" & Mid(CalculaIntervalo, 5, 2)
        Case Else
            CalculaIntervalo = "00:00"
    End Select
    If Left(CalculaIntervalo, 1) = "-" Then CalculaIntervalo = Mid(CalculaIntervalo, 2, 6)
End Function
Private Function TransformaTempo(cTempo As String) As String
    Dim i As Integer
    For i = 0 To 23
        If Int(Mid(cTempo, 1, 2)) = i Then _
        TransformaTempo = i + 24 & Mid(cTempo, 3, 3)
    Next
End Function


'Josefh Hennyere
 


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página