SOMAR HORAS?

USUARIO.EXCLUIDOS 21/12/2006 10:02:36
#191402
Então não é complicado:

MsgBox CDate(CDate("15:00") - CDate("7:00"))


Genericamente:

Diferenca = CDate(CDate(HoraFinal) - CDate(HoraInicial))



Qualquer dúvida poste...flw
JOERBETH 21/12/2006 10:06:57
#191404
ok, ok, estou vendo aqui... falow
ALMARTI 21/12/2006 10:09:14
#191405
Apenas para complementar: o calculo envolvendo horas não é complicados, se considerarmos algumas regrinhas. Primeiramente, para operações com horas, elas precisam estar em formato centezimal, ou seja, em porcentagem. Por exemplo:

00:30 (Trinta minutos) équivale a metade de uma hora, logo, a 50% da hora. Assim, se quero subtrair 02:15 - 01:30, é o mesmo que 2,25 - 1,50 = 0,75 que corresponde 00:45 ou (60 * 0,75)

Um outro detalhe importante, é a data. Sim, é preciso tomar cuidado com dadas, pois as horas vão até as 23:59. Assim, 01:00 - 23:00, podem gerar vários resultados, pois precisamos saber a que data corresponde cada hora. Hoje 01:00 - Ontem 23:00 = 2,00
USUARIO.EXCLUIDOS 21/12/2006 10:13:18
#191410
Citação:

JOERBETH escreveu:
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



Problema 1 - Somar DIFERENÇA de horas - resolvido

Problema 2 - Configuração de data no micro para realizar cálculo de horas
Resposta:
Provavelmente seu problema está na configuração do dtPicker, olhe em sua propertie page que lá vc configura e não precisa mudar a data no painel de controle.
USUARIO.EXCLUIDOS 21/12/2006 10:19:47
#191414
Especial atenção a este post se quiser o resultado já em formato decimal (por ex. 8,5 hs ao invés de 8:30 hs)

Citação:

LIONHEART escreveu:

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]
JOERBETH 21/12/2006 10:28:20
#191417
certo, essa questão da conf da hora do micro é importante, e estou fazendo justamente levando em consideração isso, a questão de quando mudar o dia (data), tb já estou vendo, tipow:

Inicial=20:00(20/12/2006) até final=01:00(21/12/2006)

na hora se pegar FINAL, tem que somar date+1...

Falow
USUARIO.EXCLUIDOS 21/12/2006 19:48:29
#191613
JOERBETH, eu acredito que os assuntos estejam resolvidos.

Por favor encerre o tópico para evitar respostas duplicadas sem necessidade.
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar