SOMAR DADOS DE UMA TABELA DE HORAS
Bom dia Como faço para calcular dentro do vb usando dados de uma tabela.
Exemplo: tenho uma tabela de cadastro de horas tem a hora de entra e saida em uma data,
gostaria de subtrair a saida da entra de cada dia e depois somar o total de cada dia e
jogar este valor em uma txtbox, tipo assim subtrair 00:28:45 de 00:28:32 que da 00:00:13
depois somar todas as diferenças.
Tabela de cadastro de Horas
Data Entrada Saida
26/12/1899 00:28:32 00:28:45
27/12/1899 20:01:20 20:08:08
28/12/1899 20:09:48 20:13:32
29/12/1899 20:16:21 20:16:30
31/12/1899 20:24:50 20:25:10
Exemplo: tenho uma tabela de cadastro de horas tem a hora de entra e saida em uma data,
gostaria de subtrair a saida da entra de cada dia e depois somar o total de cada dia e
jogar este valor em uma txtbox, tipo assim subtrair 00:28:45 de 00:28:32 que da 00:00:13
depois somar todas as diferenças.
Tabela de cadastro de Horas
Data Entrada Saida
26/12/1899 00:28:32 00:28:45
27/12/1899 20:01:20 20:08:08
28/12/1899 20:09:48 20:13:32
29/12/1899 20:16:21 20:16:30
31/12/1899 20:24:50 20:25:10
é só vc usar a função Timeserial. Ex:
HORA1 = CDATE("12:00:50")
HORA2 = CDATE("12:01:30")
h1 = hour(HORA1)
h2 = hour(HORA2)
m1 = minute(HORA1)
m2 = minute(HORA2)
s1 = second(HORA1)
s2 = second(HORA2)
? TIMESERIAL(h1 - h2, m1 - m2, s1 - s2)
00:00:40
Ou mesmo se vc preferir, pode calcular usando somente as variáveis h1, h2, m1, m2, s1 e s2 porque talvez seja interessante vc ter o resultado em décimos de horas. Como fazer? simples: divida os minutos por 60 e divida os segundos por 3600. Ex:
12:30:30 = 12 (hr) + 0,5 (min) + 0,00833 (seg) = 12,50833
16:48:06 = 16 (hr) + 0,8 (min) + 0,00166 (seg) = 16,80166
E ai vc pode calcular tudo em formato número. Por exemplo a diferença das duas horas = 4,29333 (horas)
Espero ter ajudado...
HORA1 = CDATE("12:00:50")
HORA2 = CDATE("12:01:30")
h1 = hour(HORA1)
h2 = hour(HORA2)
m1 = minute(HORA1)
m2 = minute(HORA2)
s1 = second(HORA1)
s2 = second(HORA2)
? TIMESERIAL(h1 - h2, m1 - m2, s1 - s2)
00:00:40
Ou mesmo se vc preferir, pode calcular usando somente as variáveis h1, h2, m1, m2, s1 e s2 porque talvez seja interessante vc ter o resultado em décimos de horas. Como fazer? simples: divida os minutos por 60 e divida os segundos por 3600. Ex:
12:30:30 = 12 (hr) + 0,5 (min) + 0,00833 (seg) = 12,50833
16:48:06 = 16 (hr) + 0,8 (min) + 0,00166 (seg) = 16,80166
E ai vc pode calcular tudo em formato número. Por exemplo a diferença das duas horas = 4,29333 (horas)
Espero ter ajudado...
Tópico encerrado , respostas não são mais permitidas