Simple localised Date/Time functions (I hope)

[utopiomania]

Code updated for 5.20+

This is two date/time functions that returns the date/time in the users default format
without the need for a mask$ (at least I hope they work that way).

I'm using them in a text editor Edit/Date Edit/Time menu to insert the result at the
caret position. Please tell me if they return wrong results in other parts of the world.

Code: Select all

procedure.s dateStr() 
  str.s = Space(12) 
  GetDateFormat_(#LOCALE_USER_DEFAULT, 0, 0, 0, str, 12) 
  ProcedureReturn str
EndProcedure

procedure.s timeStr() 
  str.s = Space(12) 
  GetTimeFormat_(#LOCALE_USER_DEFAULT, 0, 0, 0, str, 12) 
  ProcedureReturn str
EndProcedure

messageRequester("Localised Date/Time:", dateStr() + #CRLF$ + timeStr())
end

[Derek]

Works ok in the uk.

[rsts]

Fine for gmt-5.

nice.

[utopiomania]

Great! Thanks for testing.

[srod]

Thanks, this will be useful.

[FreeThought]

Thanks , That is very nice , I have small suggestion if I may, if you replace the null in the second param with #LOCALE_NOUSEROVERRIDE , will display
the am pm designator in the local language correctly in time format.(for non Latin language).

[JCV]

works here.
GMT +8

[zikitrake]

ok here (GMT+1)

[SFSxOI]

works in the U.S.