Format(Now(), "yyyy-mmmm-dd")
'or maybe
Format(Now(), "mmmm-dd-yyyy")