Saltar al contenido

VBScript ¿Cómo puedo formatear la fecha?

Nuestro grupo redactor ha estado largas horas buscando para dar solución a tu búsqueda, te dejamos la soluciones por esto nuestro deseo es servirte de mucha apoyo.

Solución:

0 = vbGeneralDate - Default. Returns date: mm/dd/yy and time if specified: hh:mm:ss PM/AM.
1 = vbLongDate - Returns date: weekday, monthname, year
2 = vbShortDate - Returns date: mm/dd/yy
3 = vbLongTime - Returns time: hh:mm:ss PM/AM
4 = vbShortTime - Return time: hh:mm


d=CDate("2010-02-16 13:45")
document.write(FormatDateTime(d) & "
") document.write(FormatDateTime(d,1) & "
") document.write(FormatDateTime(d,2) & "
") document.write(FormatDateTime(d,3) & "
") document.write(FormatDateTime(d,4) & "
")

Si desea utilizar otro formato, deberá crear su propia función y analizar Mes, Año, Día, etc. y juntarlos en su formato preferido.

Function myDateFormat(myDate)
    d = TwoDigits(Day(myDate))
    m = TwoDigits(Month(myDate))    
    y = Year(myDate)
    myDateFormat= m & "-" & d & "-" & y
End Function

Function TwoDigits(num)
    If(Len(num)=1) Then
        TwoDigits="0"&num
    Else
        TwoDigits=num
    End If
End Function

editar: función agregada para formatear el día y el mes como 0n si el valor es menor que 10.

Sugiera llamar a ‘Ahora’ solo una vez en la función para evitar que cambie el minuto, o incluso el día, durante la ejecución de la función.

Por lo tanto:

Function timeStamp()
    Dim t 
    t = Now
    timeStamp = Year(t) & "-" & _
    Right("0" & Month(t),2)  & "-" & _
    Right("0" & Day(t),2)  & "_" & _  
    Right("0" & Hour(t),2) & _
    Right("0" & Minute(t),2) '    '& _    Right("0" & Second(t),2) 
End Function

La salida de FormatDateTime depende de la configuración en Configuración regional en el Panel de control. Entonces, en otros países, FormatDateTime(d, 2) puede, por ejemplo, devolver aaaa-MM-dd.

Si desea que su salida sea “invariable con la cultura”, use myDateFormat() de la solución de stian.net. Si simplemente no le gustan las barras en las fechas y no le importa el formato de fecha en otros países, puede usar

Replace(FormatDateTime(d,2),"/","-")

Si te sientes impulsado, tienes la libertad de dejar una crónica acerca de qué le añadirías a este enunciado.

¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)



Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *