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 Subhi 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: [email protected] 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
