Дата и время в ACCESS

Public Function UaDate(Dt As Date)
Dim UaMount(11) As String
    UaMonth = Split("ѳ÷íÿ, Ëþòîãî, Áåðåçåíÿ, Êâ³òíÿ, Òðàâíÿ, ×åðâíÿ, Ëèïíÿ, Ñåðïíÿ, Âåðåñíÿ, Æîâòíÿ, Ëèñòîïàäà, Ãðóäíÿ", ", ")
    UaDate = Format(Day(Dt), "0#") & " " & UaMonth(Month(Dt) - 1) & " " & Year(Dt)
End Function

Option Compare Database
Option Explicit
'Автор: Igor V. Makeev. Сайт: Программирование MsAccess, VB, VBA
'Public Const LANG_DEFAULT = &H400
'Public Const LANG_ENGLISH_US = &H409
'Public Const LANG_RUSSIAN = &H419
'Public Const LANG_UKRAINIAN = &H422
Public lLangID As Long
Public dtDate As Date
Public strFormat As String
 
Type SYSTEMTIME
 wYear As Integer
 wMonth As Integer
 wDayOfWeek As Integer
 wDay As Integer
 wHour As Integer
 wMinute As Integer
 wSecond As Integer
 wMilliseconds As Integer
End Type
 
Declare Function GetDateFormat Lib "kernel32" Alias "GetDateFormatA" _
 (ByVal Locale As Long, ByVal dwFlags As Long, lpDate As SYSTEMTIME, _
  ByVal lpFormat As String, ByVal lpDateStr As String, _
  ByVal cchDate As Long) As Long
 
 
 
 
Public Function GetStringFromDate(lLangID, dtDate, strFormat) As String
 Dim stSysDate As SYSTEMTIME
 Dim strResult As String * 256
 Dim lBufSize As Long, lRetVal As Long
 
 stSysDate.wDay = Day(dtDate)
 stSysDate.wMonth = Month(dtDate)
 stSysDate.wYear = Year(dtDate)
 
 lBufSize = 256
 
 lRetVal = GetDateFormat(lLangID, 0, stSysDate, strFormat, strResult, lBufSize)
 
 If lRetVal <> 0 Then GetStringFromDate = strResult
End Function

    lLangID = CurrentProject.Connection.Execute("SELECT tblLingua.NumLingua FROM tblUser INNER JOIN tblLingua ON tblUser.Lingua = tblLingua.CorLingua").Fields(0)
    dtDate = Date
    strFormat = "dd MMMM yyyy"
    
    NDate = GetStringFromDate(lLangID, dtDate, strFormat)