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.
--
Andrew Pitonyak
My Macro Document: http://www.pitonyak.org/AndrewMacro.odt
Info: http://www.pitonyak.org/oo.php
--
For unsubscribe instructions e-mail to: users+h...@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted