Day and Month Names

[dragonjim]

Not as exciting as shaders, but for anyone like me frustrated by the gap in GB32, the following functions return names for Days and Months (unless I've missed some arcane function in the depths of the Help file...).

Declare Function GetThreadLocale Lib "kernel32" () As Long
Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Global Const LONGNAME = 1, SHORTNAME = 2

Trace DayName(WeekDay(Now))                             // User Locale
Trace DayName(WeekDay(Now), SHORTNAME)
Mode Lang "PTG"                                         // Portugal
Trace MonthName(Month(Now))
Trace MonthName(Month(Now), SHORTNAME)
Trace DayName(WeekDay(Now), , 1043)                     // Netherlands
Trace DayName(WeekDay(Now), SHORTNAME, 1043)            // Netherlands
Trace MonthName(Month(Now), , 1031)                     // Germany
Trace MonthName(Month(Now), SHORTNAME, 1031)            // Germany
Function  DayName(day|, Optional length| = LONGNAME, Optional locale%)
 $Export Func DayName "(day|, Optional length| = LONGNAME, Optional locale%)"
 Local Const LOCALE_SDAYNAME1             As Long = &H2A    // long name for Monday
 Local Const LOCALE_SABBREVDAYNAME1       As Long = &H31    // abbreviated name for Monday
 // Check to see if day| is valid
 If day| < 1 Or day| > 7 Then Message "The day value must be between 1 and 7" : Return ""
 // Check locale and make local if not specified
 If locale% = 0 Then locale% = GetThreadLocale()
 // Adjust day| to match constant values...
 If day| = 1 Then day| = 8
 // Retrieve the day name
 Local d$ = GetUserLocaleInfo(locale%, Iif(length| = LONGNAME, LOCALE_SDAYNAME1, LOCALE_SABBREVDAYNAME1) + day| - 2)
 If d$ = "" Then Message "Error in retrieving Day Name"
 Return d$
EndFunction
Function  MonthName(month|, Optional length| = LONGNAME, Optional locale%)
 $Export Func MonthName "(month|, Optional length| = LONGNAME, Optional locale%)"
 Local Const LOCALE_SMONTHNAME1           As Long = &H38    // long name for January
 Local Const LOCALE_SMONTHNAME13          As Long = &H100E  // long name for 13th month (if exists)
 Local Const LOCALE_SABBREVMONTHNAME1     As Long = &H44    // abbreviated name for January
 Local Const LOCALE_SABBREVMONTHNAME13    As Long = &H100F  // abbreviated name for 13th month (if exists)
 // Check locale and make local if not specified
 If locale% = 0 Then locale% = GetThreadLocale()
 // Check to see if locale has a 13th month
 Local m13? = (Trim(GetUserLocaleInfo(locale%, LOCALE_SABBREVMONTHNAME13)) <> "")
 // Check that month| is valid
 If month| < 1 Or month| > Iif(m13?, 13, 12) Then Message "The month value must be between 1 and " & Trim(Iif(m13?, 13, 12)) : Return ""
 // Retrieve the month name
 Local m$
 If month| = 13 : m$ = GetUserLocaleInfo(locale%, Iif(length| = LONGNAME, LOCALE_SMONTHNAME13, LOCALE_SABBREVMONTHNAME13))
 Else : m$ = GetUserLocaleInfo(locale%, Iif(length| = LONGNAME, LOCALE_SMONTHNAME1, LOCALE_SABBREVMONTHNAME1) + month| - 1)
 EndIf
 If m$ = "" Then Message "Error in retrieving Month Name"
 Return m$
EndFunction
Function  GetUserLocaleInfo(ByVal dwLocaleID As Long, ByVal dwLCType As Long) As String
 Dim sReturn As String
 Dim r As Long
 // Call the function passing the Locale type variable to retrieve the required size of the string buffer needed
 r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn))
 // If successful..
 If r Then
   // ...pad the buffer with spaces
   sReturn = Space$(r)
   // ...and call again passing the buffer
   r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn))
   // If successful (r > 0)
   If r Then
     // r holds the size of the string including the terminating null
     GetUserLocaleInfo = Left$(sReturn, r - 1)
   EndIf
 EndIf
EndFunction

[(X)]

This demo shows how to output the day and month names in multiple languages.

This code was generously provided by a long time member of our forum and help document editor. 

Thanks dragonjim!

Here is a little YouTube plug for this much appreciated contribution: 

    youtu.be/jwieAA9oM54

Here is a sceen shot of the YT video...

Here are the debug output window contents...

You can find more short videos highliting GB32 demos and "How to" mini tutorials at:

    www.youtube.com/@gfabasic32

An there's plenty more to come...

Attachments:

Demo Day Month Names.G32 (4.23 KB)

[Roger Cabo]

This is a good help..


In every program I wrote I used a simple string array.

Eg for complex tables simply:

_DayS$(0)="Mo"
_Day$(0)="Monday"
_DayPH%(Yearday%)=true/false // public holiday
_DaysPerYear%=Xxx

_Month$(0) = "January"
Etc..

Then changed vars based on the language program setup.

It's not the smart way..
and I know this.. 🙂

[dragonjim]

Feb 8, 2024 11:50:52 GMT 1 Roger Cabo said:

This is a good help..


In every program I wrote I used a simple string array.

Eg for complex tables simply:

_DayS$(0)="Mo"
_Day$(0)="Monday"
_DayPH%(Yearday%)=true/false // public holiday
_DaysPerYear%=Xxx

_Month$(0) = "January"
Etc..

Then changed vars based on the language program setup.

It's not the smart way..
and I know this.. 🙂

That's precisely what I used to do.

Glad you found this helpful.

[Roger Cabo]

There is one function missing... _DaysPerMonth(month,year)

 I'v done this:

DaysPerMonth%(mo) = DateDMY(01,mo+1,year)-DateDMY(01,mo,year) // -1 ? Perhaps
Or without -1. Can't remember exactly 😊

Wait it was easier..
DaysPerMonth%(mo) = Day(DateDMY(1,mo+1,year)-1) 

Can't test this currently..

[dragonjim]

That's a nice function. You would use DateSerial like this:

Trace DaysPerMonth(12, 1989)
Function  DaysPerMonth(month%, year%)
 Return Day(DateSerial((year%, month% + 1, 1, )) - 1)
EndFunction

Not sure if this will work in a different Locale where there are 13 months but as the only extant calendar that I know of with 13 months is the pretty much defunct International Fixed Calendar, I doubt that would be a problem.