SOMAR HORAS?

JOERBETH 20/12/2006 12:17:26
#191162
Pessoal, tenho essa dúvida já a alguns dias...

Tenho um sisteminha, que precisa somar horas, tipow, está rodando, más a instrução do códdigo para fazer essa soma, ficou meio que loco, más funfa, bom, estou usando o DTPICKET para cadastrar as horas, quero saber de vocês, como fazer para somar?, qualquer hora?

Falow

Joerbeth
USUARIO.EXCLUIDOS 20/12/2006 12:19:35
#191164
Cara, dependendo de como vc vai somar, pode usar o DateAdd...flw
JOERBETH 20/12/2006 12:26:29
#191171
tipow:

06:00 (manhã) + 01:00 (madruga)

08:00 (manhã) + 15:00

Assim...

Falow

Joerbeth
JABA 20/12/2006 12:34:13
#191173
Coloque assim:

Dim Hora1 as Date
Dim Hora2 as Date
Dim Total as Date

Hora1 = "06:00"
Hora2 = "01:00"

Total = CDate(Hora1)+ CDate(Hora2)

MSGBOX Total
JOERBETH 20/12/2006 12:38:53
#191175
Kra, 06:00(manhã) + 01:00 (madruga)= 19:00 horas
USUARIO.EXCLUIDOS 20/12/2006 12:57:45
#191183
Não, 06:00(manhã) + 01:00 (madruga)= 7:00(manhã)

Ou não?
USUARIO.EXCLUIDOS 20/12/2006 13:12:08
#191186
JOERBETH, como vc está confuso realmente fica muito dificil de explicar o problema...

Matematicamente não é possivel somar horas que são apenas nossa "unidade de medida", o que podemos somar são intervalos em horas !!!

Precisamos ter um momento de inicio e de fim que podem pegar com o dtPicker mesmo.

Calculamos o intervalo em horas (Horas será apenas nossa unidade de medida que poderia ser minutos, segundos, etc) com a função DateDiff("h", dt_inicio, dt_fim)

Podemos somar o resultadso a outros intervalos (em horas ou convertidos, nunca some hrs + Seg).

Não seria esta a questão ???
JOERBETH 21/12/2006 08:58:00
#191373
ok, seria a diferença entre elas, estava meio confuso mesmo: tipow, 07:00(manhã) e 15:00 (tarde)= a diferença=8:00hrs.

estou fazendo uma função, usando dtpicker... más assim, a maneira que encontrei até agora, foi mudar no painel de controle usdando HH:mm:tt, más isso, forço a máquina do kra mudar como o relogio é exibido... se vocês tiverem outra solução ficarei grato..

Falow

Joerbeth
USUARIO.EXCLUIDOS 21/12/2006 09:41:44
#191396
Mas qual o resultado que vc espera ter?

Por exemplo em 07:00 + 01:00 ?
JOERBETH 21/12/2006 09:49:46
#191398
não é somar, como eu havia me expressado antes, é a diferença, exe:

07:00(manha) e 15:00 = 8:00hrs...

é isso...

Falow

Joerbeth
LIONHEART 21/12/2006 10:02:33
#191401 Resposta escolhida 
Private Sub Form_Load()
    MsgBox DiferencaHoras("07:00", "15:30")
End Sub

[c]Private Function DiferencaHoras(hora1 As String, hora2 As String) As String
    Dim Aux As Integer
    
    Aux = DateDiff("n", TimeValue(hora1), TimeValue(hora2))
    
    DiferencaHoras = Aux \ 60 & ":" & Aux Mod 60
    
End Function


[/c]
Página 1 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar