AJUDA EM CALCULAR HORAS

COQUITO 26/08/2016 15:54:55
#466210
pessoal preciso de ajuda de como calcular horas e converter a elas este é meu codigo
Citação:


Dim dblHora As Double
Dim dblMinutos As Double
Dim dblTemp As Double

dblTemp = DateDiff([Ô]N[Ô], CDate(StrhrEntrada), CDate(StrhrSaida))
dblHora = CLng(dblTemp / 60)


If dblMinutos < 0 Then
dblMinutos = dblMinutos * -1 Or dblMinutos = dblMinutos = 1 Or dblMinutos = dblMinutos - 1
Exit Sub

End If


txtPermanencia.Text = CStr(dblHora) & [Ô]:[Ô] & CStr(dblMinutos)



mas meu problema está na seguinte eu registro o valor de entrada as 14:00 do dia anterior ai quando for 10:00 do outro dia.
preciso que ele calcular sem aparecer o negativo. exemplo

10:00:00
14:00:00
-------------
04:00:00

mas ele está calculando normal com o mesmo valor
so que ele está calculando negativo[txt-color=#e80000] -04:00:00[/txt-color]

alguma ideia ai
veja a imagem
DAMASCENO.CESAR 26/08/2016 16:40:54
#466212
voce precisa trabalhar com a data também :

http://www.macoratti.net/14/11/vbn_dtdif1.htm
dá uma olhada nisso
COQUITO 14/09/2016 17:45:14
#466925
nao consigo calcular assim 12/09/2016 17:00:00 - 14/09/2016 14:00:00

já fiz varios metodos mas não to cosnigo
JABA 14/09/2016 19:29:21
#466929 Resposta escolhida 
 dim t1 as timespan = timespan.Parse([Ô]14:00:00[Ô])
		dim t2 as timespan= timespan.Parse([Ô]10:00:00[Ô])
		dim resultado as timespan = t2-t1	
		
		if (resultado < new TimeSpan(0,0,0)) then
			Console.WriteLine(resultado.Negate())
		else
			Console.WriteLine(resultado)
		end if
Tópico encerrado , respostas não são mais permitidas
Voltar