Consejo: Llevo varios dias peleando.
Usa fechas canónicas no fallan, sino puedes volverte loco. Te lo juro.
Yo use esta funcion:
Código:
Function Fechapublicacionofertafuncion
if fechapublicacionoferta= "" then
fechapublicacionoferta=1900/01/01
else
'fechapublicacionoferta=fechapublicacionoferta
dia = Day(fechapublicacionoferta)
mes = Month(fechapublicacionoferta)
ano = Year(fechapublicacionoferta)
Fechapublicacionofertafuncion = ano & "/" & Right(Cstr(mes + 100),2) & "/" & Right(Cstr(dia + 100),2)
end if
End Function