Formatar Hora

[Ricardo Gaspar 0]

Viva,

 

Alguem tem alguma função que me possa disponibilizar para inserir um 0 na hora?

 

Exemplo:

Quando eu insiro um horario (short time) num banco de dados em access o mesmo fica registado com 9:00 o que eu necessito é que quando for buscar esse valor o mesmo traga 09:00.

 

Será uma coisa mais ou menos assim:

 

dim hh	Function FormataHora(hora)		hh = hour(now())				if len(hh) = 1 then hh = "0" & hh				FormataHora = cstr(hh)			End function			if len(hh) < 2 then		hh = "0"&hour(now())	end if

Claro que este código está incompleto e errado.

Obrigado pela colaboração

[prog_web 0]

Talvez ajude:

 

http://www.example-code.com/asp/asp_string_length.asp

[dataset 0]

Faz assim:

 

strHora = Right("0"&Hour(now),2) &":"& Right("0"&Minute(now),2) &":"& Right("0"&Second(now),2)

Neste exemplo ele vai te trazer:

09:05:06 - HH:MM:SS

 

você pode editar o código pra obter somente a HH:MM, basta tirar o Second.

 

Espero que te ajude.

[Ricardo Gaspar 0]

eu bem sabia que era fácil, tambem tive aqui a tentar e fiz isto:

 

'Formata Horadim hh, min	hh = hour(now())	if len(hh) < 2 then		hh = "0"&hour(now())	end if'Formata Minuto	min = minute(now())	if min >= 0 and min =< 9 then		min = "0"&minute(now())	end if

Mas o código do dataset é bastante simples. Mais uma vez obrigado.