My Macro book contains the following macro, which works just fine for me:
Sub ExampleDatePart
Dim TheDate As Date
Dim f
Dim i As Integer
Dim s$
TheDate = Now
f = Array("yyyy", "q", "m", "y", "w", "ww", "d", "h", "n", "s")
s = "Now = " & TheDate & CHR$(10)
For i = LBound(f) To UBound(f)
s = s & "DatePart(" & f(i) & ", " & TheDate & ") = " & _
DatePart(f(i), TheDate) & CHR$(10)
Next
MsgBox s
End Sub
My German translator claims that he requires CompatibilityMode(True), or this fails to run. Any comments are appreciated.
Note: English and German translations are a work in progress and are available as a free download.