sobre formato de fecha

Hola SkullCrash
la siguiente función convierte, la fecha 14-Aug-03 en 14-ago-03 con el
formato de celda adecuado, podrás mostrar 14/08/03

'***************************************************************************
********
' traduce las fechas formato "Ingles" al castellano
' p.ej.: FechaEspañola("01-apr-01 06:00:00") devuelve 01-Abr-01 06:00:00
'***************************************************************************
********

Public Function FechaEspañola(strFecha As String) As String

Select Case UCase(Mid(strFecha, 4, 3))
Case "JAN"
FechaEspañola = Left(strFecha, 3) & "Ene" & Right(strFecha, 12)
Case "APR"
FechaEspañola = Left(strFecha, 3) & "Abr" & Right(strFecha, 12)
Case "AUG"
FechaEspañola = Left(strFecha, 3) & "Ago" & Right(strFecha, 12)
Case "DEC"
FechaEspañola = Left(strFecha, 3) & "Dic" & Right(strFecha, 12)
Case Else
FechaEspañola = strFecha
End Select ' Mid(strFecha, 4)

End Function ' FechaEspañola

Saludos a desde Huelva

Emilio
miliu56 ARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"SkullCrash" escribió en el mensaje
news:OFpHP$

Hola a todos:

Tengo una hoja la cual contiene una columna con fechas pero algunas estan

en

este formato 14-Aug-03 y necesito que me salga asi: 14/08/2003, le doy
formato de celda y las coloco en el estilo que necesito pero igual no me
cambia, como puedo hacer:

Gracias de antemano.

Es urgente.