SOMAR HORAS

F001E 13/10/2014 23:23:33
#441900 Resposta escolhida

muito fácil...é assim...

Dim hora1 As TimeSpan = (1,0,0)
Dim hora2 As TimeSpan = (0,30,0)

Dim somahora As TimeSpan = hora1.Add(horas2)

OMAR2011 14/10/2014 09:37:27
#441904

E quando são caixa de textos ou MaskedTextBox.
Subtrair acha exemplos mas somar!

F001E 14/10/2014 11:28:51
#441912

Citação:

:
E quando são caixa de textos ou MaskedTextBox.
Subtrair acha exemplos mas somar!

Quando for texto ou masked desde que seus conteúdos estejam com formato de hora 00:00 é simples também.

texto1.text = [Ô]01:00[Ô]
texto2.Text = [Ô]00:30[Ô]

Dim hora1 As TimeSpan = (Mid(texto1.Text,1,2),Mid(texto1.Text,4,2),0)
Dim hora2 As TimeSpan = (Mid(texto2.Text,1,2),Mid(texto2.Text,4,2),0)

[ô]Somas Horas
Dim somahora As TimeSpan = hora1.Add(horas2)

[ô]Subtrair Hora
Dim somahora As TimeSpan = hora1.Subtract(horas2)

OMAR2011 14/10/2014 15:44:10
#441917

Ocorreu erro.

F001E 14/10/2014 16:24:13
#441919

qual erro ?

OMAR2011 14/10/2014 17:29:59
#441924

Dim hora1 As TimeSpan = (Mid(texto1.Text,1,2)[txt-color=#e80000])[/txt-color],Mid(texto1.Text,4,2),[txt-color=#e80000]0[/txt-color]) [ô] está faltando
Dim hora2 As TimeSpan = (Mid(texto2.Text,1,2)[txt-color=#e80000])[/txt-color],Mid(texto2.Text,4,2),[txt-color=#e80000]0[/txt-color]) [ô]está faltando
[txt-color=#e80000]0[/txt-color] erro identifier expected