Gente queria uma pequena ajuda de vocês. Estou precisando fazer um cálculo com as horas de um funcionário, porém quando faço o lançamento dentro do dia consigo fazer o cálculo sem maiores problemas. A minha dificuldade esta quando o funcionário começa a noite por exemplo e sai no dia seguinte, ou mesmo começa na manhã normalmente e atravessa a noite na extra. Na parte de dicas peguei o que o LCRamos deixou e exatamente com esse cálculo que consigo farem a contagem das horas apenas no dia. Fui também no site do macoratti e achei um cálculo que é simples para caramba, porém não aceita variável queria saber como que posso fazer a fórmula aceitar variável no lugar dos números
Abaixo segue o exemplo dele e como podem ver é fácil os cálculos
a-) Hora inicial : 9:00 horas Hora Final : 17:00 horas
horas_trabalhadas= format((#17:00# - #09:00#) * 24, "#0.0")
? horas_trabalhadas & " horas "
Resultado => 8,0 horas
b-) Hora inicial : 19:00 horas Hora Final : 7:30 horas do outro dia
horas_trabalhadas= format((1+ #7:30# - #19:00#) * 24, "#0.0")
? horas_trabalhadas & " horas "
Resultado => 12,5 horas
c-) Hora inicial : 15:00 horas Hora Final : 20:30 horas do outro dia (mais de 24 horas)
horas_trabalhadas= format((#15:00# + #20:30#) * 24, "#0.0")
? horas_trabalhadas & " horas "
Resultado => 35,5 horas
d-) Hora inicial : 7:00 horas Hora Final : 21:00 horas do outro dia (mais de 24 horas)
horas_trabalhadas= format((#07:00# + #21:00#), "#0.0")
? horas_trabalhadas & " dias "
Resultado => 1,2 dias
Criei no meu projeto hora1 e hora2 como string e quando tento substituir os valores pelas variáveis da os seguintes erros:
hora1 = TxtEntrada1(N).Text
hora2 = TxtSaida2(N).Text
run-time error 13
type mismatch
Label5(N).Caption = Format((hora1 - hora2) * 24, "#0.0")
Compile error:
type-declaration character does not match declared data type
Label5(N).Caption = Format((hora1# - hora2#) * 24, "#0.0")
Compile error:
Syntax error
Label5(N).Caption = Format((#hora1# - #hora2#) * 24, "#0.0")
Agradeço quem puder me ajudar
