Funzione per formattare le date nei report.

Function GetCurrentDate

   ' FormatDateTime formats Date in long date.

   GetCurrentDate = FormatDateTime(Date, 1)

End Function

http://msdn.microsoft.com/en-us/library/8aebkz6s.aspx