Get month name when input month number

[nandanak]

Is there any built in function in OpenEdge to get Month name when I input month number.
Ex : Input : 03 , Output : March

 

[jdpjamesp]

I don't think so, but this is easy to implement.

FUNCTION fn-MonthName RETURNS CHARACTER
  (INPUT ip-MonthNumber AS INTEGER):
  DEFINE VARIABLE lv-Months as CHARACTER NO-UNDO INITIAL "Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec".
  IF ip-MonthNumber LT 1 OR ip-MonthNumber GT 12 THEN
    RETURN "".
  RETURN ENTRY(ip-MonthNumber,lv-Months).
END.

 

[nandanak]

Thanks Cringer, your code helps me.

 

[magomg]

Hi people!
I solved this problem using the ENTRY function as below:
DEFINE VARIABLE dt-prazo AS DATE NO-UNDO.

ASSIGN dt-prazo = 10/17/2024.

MESSAGE ENTRY(MONTH(dt-prazo),"JAN,FEV,MAR,ABR,MAI,JUN,JUL,AGO,SET,OUT,NOV,DEZ")
VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.

this way will show the month like "OUT".

I hope that is functional for you!

Regards...

 

[TomBascom]

It might be about 11 years too late

 

[JamesBowen]

Or for something completlly different.:

using System.*.
using System.Globalization.*.

define variable monthNumber    as integer   no-undo.
define variable monthName      as character no-undo.
        
assign
    monthNumber = 3 // Example month number
    monthName = System.Globalization.CultureInfo:CurrentCulture:DateTimeFormat:GetMonthName(monthNumber).       
        
message Substitute("Month name for month number &1: &2", monthNumber, monthName)
    view-as alert-box information.

 

[Osborne]

Cecil, for a .NET solution your example is a good one as it shows it can be achieved with just a single line of code:

MESSAGE System.Globalization.CultureInfo:CurrentCulture:DateTimeFormat:GetMonthName(3) VIEW-AS ALERT-BOX INFORMATION.

I had previously been using something similar to this:

DEFINE VARIABLE oDateTimeFormatInfo AS System.Globalization.DateTimeFormatInfo NO-UNDO.

oDateTimeFormatInfo = NEW System.Globalization.DateTimeFormatInfo().
MESSAGE oDateTimeFormatInfo:GetMonthName(3) VIEW-AS ALERT-BOX INFORMATION.

 

[magomg]

It might be about 11 years too late

I know that! I started to work with Progress 4GL about just one year!
This forum still very useful nowadays! I learn a lot with the tips posted here!
I'm using the 4each.com too!

 

[Marco Mendoza]

I like more the array approach ...

DEF VAR meses AS CHAR EXTENT 12 INIT ["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"]
NO-UNDO.
DISPLAY meses[1]