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