10/12/2004, 11:06
|
| | | Fecha de Ingreso: noviembre-2004 Ubicación: trelew - chubut
Mensajes: 134
Antigüedad: 20 años, 8 meses Puntos: 0 | |
| esto estaba en la biblioteca
hay que fijarse primero ahi porque hay muchas cosas utiles
esta es una funcion que publico
un tal oxigeno y es muy util para lo que queres hacer
saludos
luis
Function FormatFecha(TIPO,FEC)
dim myFEC
SELECT CASE TIPO
CASE "DMA"
myFEC = (day(FEC)&"/"&month(FEC)&"/"&year(FEC))
CASE "MDA"
myFEC = (month(FEC)&"/"&day(FEC)&"/"&year(FEC))
CASE "ADM"
myFEC = (year(FEC)&"/"&day(FEC)&"/"&month(FEC))
CASE "AMD"
myFEC = (year(FEC)&"/"&month(FEC)&"/"&day(FEC))
END SELECT
FormatFecha = myFEC
End Function |