algo util para todos... formatear tipos de Fecha... espero que sea de utilidad... salu2 a to2!
Código:
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