per estrarle dalla data ora si usano:
year(date())
month(date())
Day(date())
Hour(Time())
Minute(Time())
Second(Time())

dove
Date() è una funz. che mi passa la data odierna
Time() mi passa l'ora minuti e secondi nel momento della chiamata
Now() mi restituisce la data e l'ora (es.: 16/05/2004 16.34.12)

per le date
presumo si possa utilizzare format.

MyDate=16/05/2004
MyStr = Format(MyDate, "mm/d/yyyy") 'restituisce 05/16/2004
MyStr = Format(MyDate, "mmm d yyyy") 'restituisce mag 16 2004

in particolare:
mm: mese in cifra
mmm: mese in tre caratteri (gen)
mmmm: mese completo
d: giorno in cifre
dddd: giorno in carattere (lunedì)
yy: anno in due cifre
yyyy: anno in 4 cifre

macse