CALCULOS COM HORA

CARINHENA 25/03/2005 15:34:56
#74914
Boa tarde.

Pessoal. como é possivel somar minutos em vb?

ex:

Hora1.caption = "01:30"
hora2.caption = "00:30"

Horasaida.caption = "02:00"

Ou seja, que ele some pegue o Hora1 e acrescente o valor de hora2, dando a hora de saida (horasaida)...

Tentei soma, format, value... mas, até agora nada...
alguem sabe como fazer isso?
WEBMASTER 25/03/2005 16:01:43
#74919 Resposta escolhida
Idéia,

Hora1.caption = "01:30"
hora2.caption = "00:30"

Horasaida.caption = minutos(hora1.caption)+minutos(hora2.caption)
horasaida.caption = horas(horasaida.caption)
CARINHENA 25/03/2005 16:30:09
#74921
vALEU LEOPOLDO...
mas.. não funcionou.

Minutos e horas não sçao reconhecidas.

Como deve setar elas?
WEBMASTER 25/03/2005 16:37:00
#74923
Carinhena,

Isso foi só uma idéa, é para você criar as funções minutos e horas. Caso você não saiba eu te passo.
CARINHENA 25/03/2005 16:49:30
#74929
Leopoldo, agradeceria muito se pudesse passar.

Nã tennho conhecimento de como fazer isso.. e realmente preciso de ajuda...
WEBMASTER 25/03/2005 17:28:42
#74935
Aí,


Citação:


Private Sub Form_click()

MsgBox minutos("03:20")
MsgBox horas(200)

End Sub

Function minutos(Dado As String) As Integer
Dim nPonto As String
Dim nHora As Integer
Dim nMinuto As Integer
Dim nRes As Integer

nPonto = InStr(Dado, ":")
nHora = Mid(Dado, 1, nPonto - 1)
nMinuto = Mid(Dado, nPonto + 1)

Dado = nHora & ":" & nMinuto

nRes = nMinuto + (nHora * 60)

minutos = nRes
End Function


Function horas(Dado As Integer) As String
horas = Right("00" & Int(Dado / 60), 2) & ":" & Left((((Dado / 60) - Int(Dado / 60)) * 60) & "00", 2)
End Function

CARINHENA 25/03/2005 18:21:42
#74939

LEOPOLDO

Com a função funcionou corretamente.

Obrigado pela ajuda...

Quando precisar, é só falar, fico devendo essa pra vc.

um abraço
Tópico encerrado , respostas não são mais permitidas
Voltar