CALCULAR TOTAL DE HORAS
Em um projeto de cartao de ponto, tenho os campos para digitar hora com msk (index)
entrada e saida para manha, tarde noite para todos os dias do mes.
Mas quando faço (saÃda - entrada ) Ao cheqgar em 24:00 zera e começa a somar novamente. Gostaria de ter o total de horas por ex: 55:30.
Exemplo de como fiz
Dim a1 As Date
Dim a2 As Date
a1 = mskhora(0).Text
a2 = mskhora(1).Text
Dim Entr As Date 'horário de entrada
Dim Sai As Date 'horário de saÃda
Entr = (a1 + a2 + a3 + a4 +.....)
Sai = (a63 + a64 + a65 + a66 +....)
Dim qtHoras As Date 'Qtde de Horas no formato Hora
qtHoras = (Sai - Entr) - Int(Sai - Entr)
lblhoraN.Caption = Format(qtHoras, "HH:MM")
entrada e saida para manha, tarde noite para todos os dias do mes.
Mas quando faço (saÃda - entrada ) Ao cheqgar em 24:00 zera e começa a somar novamente. Gostaria de ter o total de horas por ex: 55:30.
Exemplo de como fiz
Dim a1 As Date
Dim a2 As Date
a1 = mskhora(0).Text
a2 = mskhora(1).Text
Dim Entr As Date 'horário de entrada
Dim Sai As Date 'horário de saÃda
Entr = (a1 + a2 + a3 + a4 +.....)
Sai = (a63 + a64 + a65 + a66 +....)
Dim qtHoras As Date 'Qtde de Horas no formato Hora
qtHoras = (Sai - Entr) - Int(Sai - Entr)
lblhoraN.Caption = Format(qtHoras, "HH:MM")
Digite "CALCULA" em LOCALIZAR no site e escolhe o exemplo que você deseja ou veja se ajuda esse exemplo: http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=31154
Tópico encerrado , respostas não são mais permitidas