ARREDONDAMENTO DE HORAS

ELMO01 28/11/2017 17:45:01
#478129
Oi pessoal,

Alguém ai tem uma função que arredonde as horas, por exemplo
Hora Digitada Hora Arredondada
15:33 15:30
16:48 16:45
12:18 12:20

este arredondamento pode ser para mais ou para menos.

Obrigado.
JABA 28/11/2017 18:42:41
#478131 Resposta escolhida 
		dim A1 as TimeSpan
		
		A1 = TimeSpan.Parse([Ô]19:04:00[Ô])
		
		Console.WriteLine(ArredondaHora(A1))


	function ArredondaHora(h as timeSpan)
		
		if h.Minutes < 5 then
			return new TimeSpan(h.days, h.hours, 0, 0)
		else
			return new TimeSpan(h.days, h.hours, 5, 0)
		end if
					
	End function
ELMO01 28/11/2017 21:25:57
#478134
JABA obrigado pela força, tive que fazer alguns ajustes na função mais deu ceto.

Obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar