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

 

  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")
 


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