FormateaFecha.vbs

'**************************************************************************************************
'* dadas las pocas posibilidades que VBScript ofrece para el formateo de fechas, esta función es un
'* ejemplo de como hacer tu propio formato
'* uso: FormateaFecha("30/09/03 19:15:06") devuelve "30/sep/03 19:15:06"
'* ESH 30/09/03 19:15
'**************************************************************************************************

Function FormateaFecha(datFecha)
Dim MatrizFecha, _
        strFecha, _
        strHora

strFecha = FormatDateTime(datFecha, vbLongDate)

' el formato de salida vbLongDate es: martes, 30 de Septiembre de 2003
strHora = FormatDateTime(datFecha, vbLongTime)

' el formato de salida vbLongTime es: 19:15:00
' troceo la Fecha en la matriz MatrizFecha
MatrizFecha = Split(strFecha, " ", -1, 1)

' me devuelve una matriz con 6 elementos que manipularemos a nuestro antojo
' 0 martes,
' 1 30
' 2 de
' 3 Septiembre
' 4 de
' 5 2003

FormateaFecha = MatrizFecha(1) & "/" & Left(MatrizFecha(3), 3) & "/" & Right(MatrizFecha(5), 2) & " " & strHora

End Function      ' FormateaFecha