立即轉換爲MS Access VBA中的特定格式

Question

如何將now（）轉換爲「2013年11月21日」之類的東西？我已經研究過像datepart和format這樣的東西，但是我找不到這個翻譯。

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立即窗口中運行了這個。

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