CALCULO DE HORAS
Bom dia pessoal,
Estou ás voltas com um programa para calcular horas trabalhadas, fiz algumas pesquisas na internet mas não achei nada que me ajudasse a desenvolver esta parte do meu programa, se alguém tiver uma função de calculo de horas e puder me passar ficaria grato.
Obrigado,
Estou ás voltas com um programa para calcular horas trabalhadas, fiz algumas pesquisas na internet mas não achei nada que me ajudasse a desenvolver esta parte do meu programa, se alguém tiver uma função de calculo de horas e puder me passar ficaria grato.
Obrigado,
Uma dica!
Citação:[ô]Calculo somar ou subtrair horas:
hora1 = CDate([Ô]07:12:21[Ô])
hora2 = CDate([Ô]08:12:28[Ô])
MsgBox (CDate(CDate(hora2) - CDate(hora1)))
Classes DateTime e TimeSpan tem tudo que você precisa.
O resto é lógica de programação.
Abraços!
O resto é lógica de programação.
Abraços!
DS2T agradeço por ter respondido, fiz a seguinte linha de comando:
Dim Horas1 As String = DateDiff(DateInterval.Hour, CDate(NewHora1), CDate(NewHora2))
onde:
Horas1 = acumulador da hora calculada = 04:00
NewHora1 é a primeira hora do ponto = 08:00
NewHora2 é a segunda hora do ponto = 12:00
Mais se alguma das horas estiver faltando não faz as contas que deveria de fazer.
Como faço para contornar este problema?
Obrigado
Dim Horas1 As String = DateDiff(DateInterval.Hour, CDate(NewHora1), CDate(NewHora2))
onde:
Horas1 = acumulador da hora calculada = 04:00
NewHora1 é a primeira hora do ponto = 08:00
NewHora2 é a segunda hora do ponto = 12:00
Mais se alguma das horas estiver faltando não faz as contas que deveria de fazer.
Como faço para contornar este problema?
Obrigado
Tópico encerrado , respostas não são mais permitidas