[libreoffice-users] Does this macro work for non en-US locale?

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+help@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