; Auteur : Dr. Dri
; Affiche la date actuelle selon la langue

Procedure.s LocaleDate(date.l, lang.s)
 
  Protected date.l, lang.s, lcid.l, sRes.s, st.SYSTEMTIME
 
  st\wYear   = Year(date)
  st\wMonth  = Month(date)
  st\wDay    = Day(date)
  st\wHour   = Hour(date)
  st\wMinute = Minute(date)
  st\wSecond = Second(date)
 
  Select lang
    Case "de" : lcid = #LANG_GERMAN
    Case "en" : lcid = #LANG_ENGLISH
    Case "fr" : lcid = #LANG_FRENCH
    Case "it" : lcid = #LANG_ITALIAN
    Case "po" : lcid = #LANG_PORTUGUESE
    Case "sp" : lcid = #LANG_SPANISH
    Case "tu" : lcid = #LANG_TURKISH
  EndSelect
 
  sRes = Space(255)
  GetDateFormat_(lcid, 0, st, "dddd, d MMMM yyyy", sRes, 255)
 
  ProcedureReturn sRes
 
EndProcedure

For i = 1 To 8
 
  lang.s = StringField("de,en,fr,it,po,sp,tu,", i, ",")
 
  MessageRequester("LocaleDate(" + lang +")", LocaleDate(Date(), lang))
 
Next