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

On 08/02/2011 09:47 PM, alex bodnaru wrote:
> On 08/03/2011 03:56 AM, Andrew Douglas Pitonyak wrote:
> > 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
> hi andrew,
>
> i like and use your book OOME. thanks.

Your welcome

> your macro should normally work in any locale.
>
> but, if you'd use a literal date instead of now it would be interpreted
> differently under different locales: d/m/y, m/d/y, y-m-d etc.
> TheDate = "2011-12-31 04:36:15" worked perfectly for me in hebrew and english
> locales, with different default date formats.
>
> best regards,
> alex
Excellent, thanks for checking.

--
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