Pues no se a ustedes, pero por curiosidad lo corri y me regreso una fecha/hora así:
21-Abr-05 011:2
Así que quite todo IF time() ...... y puse en su lugar solo esta linea:
Hora = MID(date_time, InStr(date_time, " ")+1,((InStrRev(date_time, ":")-1)-InStr(date_time, " ")+1)-1)
y me regresa un valor correcto:
21-Abr-05 11:21
Código:
sub fecha(date_time)
response.write date_time & "<br>"
First_term = Day(date_time) ' *** SACA EL NÚMERO DEL DÍA
Second_term = Left(MonthName(Month(date_time)), 3) ' *** CONTANDO POR LA DCHA., SACA n CARACTERES DEL MES
Third_term = Right(Year(date_time),2) ' *** CONTANDO POR LA DCHA., SACA n CARACTERES DEL AÑO
Dia = First_term&"-"&Second_term&"-"&Third_term
Hora = MID(date_time, InStr(date_time, " ")+1,((InStrRev(date_time, ":")-1)-InStr(date_time, " ")+1)-1)
Response.Write Dia&" "&Hora
end sub
call fecha(now())