SOMAR HORAS
Ola pessoal, sei que existem vários tópicos sobre o assunto, mas gostaria se possivel da ajuda dos colegas do forum de como ficaria um calculo para exibir o resultado em horas e minutos tomando por base o exemplo que aparece em :http://www.macoratti.net/vbdatas1.htm, pois achei um pouco menos complicado mas não sei como fazer que um button execute a função e mostre o resultado, pois preciso de somas maiores que 24 horas: ex: 21 horas + 10 horas = 31 horas e também a soma de um intervalo que inicia em uma data e termina em outra, ex:
SOMAR o total de horas DE 01/08/2010 13:00 ATé 02/08/2010 14:30.Grato!!!!
SOMAR o total de horas DE 01/08/2010 13:00 ATé 02/08/2010 14:30.Grato!!!!
LVFIOROT, achei complicado seu exemplo, sendo que necessito que seja executado com o auxilio de um commandbutton.Copiei e executei seu exemplo e na janela immediate me retornou o seguinte:
24:00:00
7960:20:15
24:00:00
A minha duvida é como incorporar o exemplo do macoratti, data e hora final - data e hora inicial em um formulario?????
24:00:00
7960:20:15
24:00:00
A minha duvida é como incorporar o exemplo do macoratti, data e hora final - data e hora inicial em um formulario?????
Pessoal, consegui obter o resultado como no exemplo do macorati em http://www.macoratti.net/vbdatas1.htm,53 horas:Ficou assim
Private Sub Command1_Click()
Dim dataincial As Date
Dim datafinal As Date
Dim resultado As Double
Dim intervalo As Variant
datainicial = #6/1/1993 8:00:00 AM#
datafinal = #6/3/1993 1:00:00 PM#
resultado = datafinal - datainicial
intervalo = resultado
Label1.Caption = Int(CSng(intervalo * 24)) & [Ô]Horas[Ô]
End Sub
A duvida agora é como fica nos textbox se o usuario tiver de informar as datas e as horas.Devo colocar um textbox para data e outro para hora ???Se for assim como concatenar para formar data e hora final - data e hora inicial ou qual seria o contrlole melhor indicado ??????
Private Sub Command1_Click()
Dim dataincial As Date
Dim datafinal As Date
Dim resultado As Double
Dim intervalo As Variant
datainicial = #6/1/1993 8:00:00 AM#
datafinal = #6/3/1993 1:00:00 PM#
resultado = datafinal - datainicial
intervalo = resultado
Label1.Caption = Int(CSng(intervalo * 24)) & [Ô]Horas[Ô]
End Sub
A duvida agora é como fica nos textbox se o usuario tiver de informar as datas e as horas.Devo colocar um textbox para data e outro para hora ???Se for assim como concatenar para formar data e hora final - data e hora inicial ou qual seria o contrlole melhor indicado ??????
Só preciso datas, horas e minutos. Segundos não.Data para saber o dia da hora inicial e data para hora final. Retornar resultado total em horas: 124 horas, 49 horas, ....
Complementando,124 horas e 30 minutos; 49 horas e 27 minutos; .......
Private Sub Command1_Click()
Dim intervalo As Long
Dim horas As Long
Dim minutos As Integer
intervalo = DateDiff([Ô]n[Ô], #11/19/2010 8:39:00 PM#, #11/21/2010 12:59:00 PM#)
horas = Int(intervalo / 60)
minutos = Int(intervalo Mod 60)
MsgBox horas & [Ô] horas e [Ô] & Format(minutos, [Ô]00[Ô]) & [Ô] minutos[Ô]
End Sub
Dim intervalo As Long
Dim horas As Long
Dim minutos As Integer
intervalo = DateDiff([Ô]n[Ô], #11/19/2010 8:39:00 PM#, #11/21/2010 12:59:00 PM#)
horas = Int(intervalo / 60)
minutos = Int(intervalo Mod 60)
MsgBox horas & [Ô] horas e [Ô] & Format(minutos, [Ô]00[Ô]) & [Ô] minutos[Ô]
End Sub
VALEU LVFIOROT e FININHO, os calculos estão mais claros. Mas a minha ultima duvida continua: como o ususario informaria data/hora final - data/hora inicial, ou seja, seria digitado cada uma em um textbox ou dá para fazer tipo: digitar a data; espaço e digitar a hora no 1º textbox e do mesmo jeito no segundo textbox. Por acaso existe uma forma do usuario digitar essas datas e horas em um LISTVIEW?????
Tópico encerrado , respostas não são mais permitidas