19/04/2005, 01:34
|
 | | | Fecha de Ingreso: abril-2005
Mensajes: 501
Antigüedad: 20 años, 1 mes Puntos: 3 | |
| Gracias mariano_donati:
Se dispone así de otra forma de presentar la fecha y hora.
No obstante, he hecho una pequeña modificación en el código que dejaste que creo que lo mejora un poquito más. La cuestión es que como estaba, cuando la hora está comprendida entre las 12 de la noche y las 10 de la mañana, y estas horas se presentan con una cifra (1:00, 2:00,...), entonces al poner, en el código, "Hora = Left(time, 5)" esta saca la hora, por ejemplo, tal que así => 9:05: es decir con un caracter de más.
Para corregir esto, he añadido un "if" que considera la hora que es y según ésta sacará un número determinado para la hora.
También he hecho que se añada un cero cuando la hora sólo es de una cifra. Si alguien no quiere esto último puede eliminar esa línea ó, por lo menos comentarla para que no afecte al resultado
Bueno ahí va como lo he dejado:
================================================== =======
<%
sub fecha(date_time)
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
if time() >= #12:00:00 AM# And time() <#12:00:00 PM# then
Hora = Left(time, 4) ' *** CONTANDO POR LA IZQ., SACA n CARACTERES DE LA HORA
Hora = "0" & Hora ' *** PARA AÑADIR UN CERO A LA HORA POR DELANTE
else
Hora = Left(time, 5)
end if
Response.Write Dia&" "&Hora
end sub
call fecha(now())%>
================================================== =======
Y ya está. ¡Hala, a disfrutar!
Agur.
================================================== =======
zacktagnan. |