Преобразование now() в конкретный формат в MS Access VBA

Question

Как мне преобразовать сейчас() в нечто вроде «21 ноября 2013 года»? Я просматривал такие вещи, как datepart и формат, но я не могу найти этот перевод.

Answer 1

Это то, что вы пытаетесь?

Sub Sample() 
    Debug.Print ConvertTodate(#12/13/2012#) 
    Debug.Print ConvertTodate(#12/12/2012#) 
    Debug.Print ConvertTodate(#12/14/2012#) 
    Debug.Print ConvertTodate(#12/23/2012#) 
    Debug.Print ConvertTodate(Now) 
End Sub 

Function ConvertTodate(d As Date) As String 
    Dim suff As String 
    Dim dt As String 

    dt = Format(d, "mmmm dd, yyyy") 

    Select Case Day(d) 
     Case 0 To 10, 20 To 31 
      Select Case Right(Day(d), 1) 
       Case 1: suff = "st," 
       Case 2: suff = "nd," 
       Case 3: suff = "rd," 
       Case 0, 4 To 9: suff = "th," 
      End Select 
     Case 11 To 20: suff = "th," 
    End Select 

    ConvertTodate = Replace(dt, Day(d) & ",", Day(d) & suff) 
End Function 

Примечание: На основе вашего регионального настройки, вы, возможно, придется использовать что-то другое вместо запятой.

Answer 2

Это должно сработать. Я запустил это в окне VBA Immediate.

?Format(Now(),"mmmm dd, yyyy") 
November 21, 2013