Quizás les sirva...

[mariano_donati]

He resuelto un problema con el formato de las fechas, y a modo de agradecimiento a los que me ayudaron, les paso el procedimiento que se encarga de hacer el formato, por ahí les sirve o por ahí no.

sub fecha(date_time)
First_term = Day(date_time)
Second_term = Left(MonthName(Month(date_time)), 3)
Third_term = Right(Year(date_time),2)
Dia = First_term&"-"&Second_term&"-"&Third_term
Hora = Left(time, 5)
Response.Write Dia&"  "&Hora
end sub

call fecha(now())

Transforma el dato tipo Date que le pasamos como argumento,
con el formato 18-abr-05 17:11.
Gracias a todos.

[sjam7]

gracias... de parte de los demas tambien...

[zacktagnan]

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&"&nbsp;&nbsp;"&Hora
end sub

call fecha(now())%>
================================================== =======


Y ya está. ¡Hala, a disfrutar!

Agur.
================================================== =======
zacktagnan.

[mariano_donati]

Quedo barbaro zacktagnan el codigo tuyo, ya lo aplique al mío sin dudarlo. Muchas gracias. SAludos!.

[Gspr]

Muchas Gracias, me ha sido de gran ayuda..

[Myakire]

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&"&nbsp;&nbsp;"&Hora
end sub

call fecha(now())

[dobled]

lo corri y me sobran los dos puntos al final
22-abr-05 1:02:

parece que va a depender de la conf regional del equipo

[mamon]

he estado revisando lo que ponen y veo que estan haciendo scripts solo para sus equipos, pero con las fechas hay más trabajo de lo que se cree... ya q depende de donde lleguemos a alojar nuestro site, el formato de las fechas cambian y nos hacemos bolas... quisiera que entren a este post que he creado:
http://www.forosdelweb.com/f15/problemas-con-fechas-291057/
ahí xfas explícame bien cual es la idea principal de lo que se trata este post para tener ahi guardadas las ideas para el componente de las fechas... gracias!

[Myakire]

Dobled, solo por curiosidad, ¿cuál corriste?

Hora = MID(date_time, InStr(date_time, " ")+1,((InStrRev(date_time, ":")-1)-InStr(date_time, " ")+1)-1)

Se supone que para evitar problemas de configuración, tomé como referencia los dos puntos separadores de segundos. ¿que LCID o que configuración tienes?

[dobled]

Mya ocupe el code original
Tengo Español (Chile)

[Myakire]

ah, ok. Si, ese problema también le ví original