Not the best but I once used this in an application to ensure the day and month were the 'right' way round; (speaking from a UK point of view! )

Code:
If Left(Cstr(Format("15/1","Short Date")),2)<>"15" Then
  Msgbox "Please change your date format to DD/MM/YYYY"
  .. do stuff ...
End If