08/03/2004, 05:05
|
| | | Fecha de Ingreso: enero-2002
Mensajes: 1.872
Antigüedad: 23 años, 4 meses Puntos: 3 | |
| os pongo otro include que tengo...
<%
Function FORMATDateTextShort(theDate)
Dim strDateTextMonth
Select Case Month(theDate)
Case 1
strDateTextMonth = "Ene"
Case 2
strDateTextMonth = "Feb"
Case 3
strDateTextMonth = "Mar"
Case 4
strDateTextMonth = "Abr"
Case 5
strDateTextMonth = "May"
Case 6
strDateTextMonth = "Jun"
Case 7
strDateTextMonth = "Jul"
Case 8
strDateTextMonth = "Ago"
Case 9
strDateTextMonth = "Sep"
Case 10
strDateTextMonth = "Oct"
Case 11
strDateTextMonth = "Nov"
Case 12
strDateTextMonth = "Dic"
End Select
FORMATDateTextShort = Day(TheDate) & "-" & strDateTextMonth & "-" & Year(theDate)
End Function
%>
por favor, ayudenme que no tengo ni idea del problema, y es super importante solucionarlo!!
gracias!! |