Formatear la fecha y la hora actual en VBScript

Me preguntaba si alguien me podría ayudar.

Soy muy nuevo en ASP. Quiero formatear la fecha y hora actual de la siguiente manera:

yyyy-mm-dd hh:mm:ss 

Pero todo lo que puedo hacer es lo siguiente

 Response.Write Date 

Alguien me puede ayudar por favor.

Las opciones de formato de fecha están limitadas en ASP clásico por defecto, hay una función FormatDateTime() que puede formatear su fecha de varias maneras según la configuración regional de los servidores.

Para un mayor control sobre el formato de fecha, aunque hay funciones integradas de fecha y hora

  • Year(date)Devuelve un número entero que representa el año. Pasar la Date() devolverá el año actual.

  • Month(date) : devuelve un número entero entre 1 y 12, inclusive, que representa el mes del año. Al pasar Date() se devolverá el mes actual del año.

  • MonthName(month[, abbv])Devuelve una cadena que indica el mes especificado. Pasar en Month(Date()) como el mes devolverá la cadena del Mes actual. Según lo sugerido por @Martha

  • Day(date) : devuelve un número entero entre 1 y 31, inclusive, que representa el día del mes. Al pasar Date() se devolverá el día actual del mes.

  • Hour(time) : devuelve un número entero entre 0 y 23, inclusive, que representa la hora del día. Pasar Time() devolverá la hora actual.

  • Minute(time)Devuelve un número entero entre 0 y 59, inclusive, que representa el minuto de la hora. Pasando el Time() devolverá el minuto actual.

  • Second(time) : devuelve un número entero entre 0 y 59, inclusive, que representa el segundo minuto. Pasar Time() devolverá el segundo actual.

Las funciones Month() , Day() , Hour() , Minute() y Second() devuelven números enteros. Afortunadamente hay una solución fácil que le permite rellenar estos valores rápidamente. A la Right("00" & value, 2) lo que hace es agregar 00 al frente del valor y luego desde la derecha tomar los dos primeros caracteres. Esto garantiza que todos los valores de un solo dígito vuelvan con el prefijo 0 .

 Dim dd, mm, yy, hh, nn, ss Dim datevalue, timevalue, dtsnow, dtsvalue 'Store DateTimeStamp once. dtsnow = Now() 'Individual date components dd = Right("00" & Day(dtsnow), 2) mm = Right("00" & Month(dtsnow), 2) yy = Year(dtsnow) hh = Right("00" & Hour(dtsnow), 2) nn = Right("00" & Minute(dtsnow), 2) ss = Right("00" & Second(dtsnow), 2) 'Build the date string in the format yyyy-mm-dd datevalue = yy & "-" & mm & "-" & dd 'Build the time string in the format hh:mm:ss timevalue = hh & ":" & nn & ":" & ss 'Concatenate both together to build the timestamp yyyy-mm-dd hh:mm:ss dtsvalue = datevalue & " " & timevalue Call Response.Write(dtsvalue) 

Nota: Puede construir la cadena de fecha en una llamada, pero decidió dividirla en tres variables para que sea más fácil de leer.


  • Ejemplo de análisis de una cadena de fecha (las respuestas proporcionan enfoques para tomar un formato de cadena de fecha y analizarlo en una variable de Date válida) .