25/08/2004, 07:32
|
 | Colaborador | | Fecha de Ingreso: enero-2002 Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses Puntos: 146 | |
Código:
Function ReturnDate (dDate)
Dim sName
Dim sDay
Dim sMonth
dim sYear
sName = WeekDayName(WeekDay(dDate))
sDay = Day(dDate)
sMonth = MonthName(Month(dDate))
sYear = Year(dDate)
sName = UCase(Left(sName,1)) & MID(sName,2,LEN(sName))
sMonth = UCase(Left(sMonth ,1)) & MID(sMonth ,2,LEN(sMonth ))
ReturnDate = sName & " " & sDay & " de " & sMonth & " de " & sYear
End Function
|