Having problems with your account or logging in?
A lot of changes are happening in the community right now. Some may affect you. READ MORE HERE

How do I retrieve the total number of days in the current month?

How do I retrieve the total number of days in the current month?

The following code will retrieve the particular total amount of days in the current month; also allowing for leap years:

[-] testcase GetDaysInMonth () appstate none
    [ ] DaysInMonth ()
    [ ] 
    [ ] 
[-] DaysInMonth ()
    [ ] STRING sDate
    [ ] DATETIME DayAndTime
    [ ] DayAndTime = GetDateTime ()   //Gets today"s date from System
    [ ] sDate = FormatDateTime (DayAndTime, "mm/dd/yyyy")
    [ ] 
    [ ] print (sDate)
    [ ] print ("")
    [ ] 
    [ ] string sMonth = (GetField (sDate, "/", 1))
    [ ] string sDay = (GetField (sDate, "/", 2))
    [ ] string sYear = (GetField (sDate, "/", 3))
    [ ] 
    [ ] int iYear = val(sYear)
    [ ] int iMonth = val(sMonth)
    [ ] 
    [-] select
        [-] case iMonth == 9 || iMonth == 4 || iMonth == 6 || iMonth == 11 
            [ ] Printf(" This Month has 30 Days ")
        [-] case iMonth == 2
            [-] if (iYear % 4 != 0)
                [ ] Print("Its Febuary but not a leap year. This Month has 28 days ") 
            [-] else if(iYear % 100 == 0 && iYear % 400 != 0)
                [ ] Print("Its Febuary but not a leap year. This Month has 28 days ") 
            [-] else
                [ ] Print("Its Febuary and a leap year. This Month has 29 days ") 
        [-] default
            [ ] Printf(" This Month has 31 Days ")

Old KB# 21303

DISCLAIMER:

Some content on Community Tips & Information pages is not officially supported by Micro Focus. Please refer to our Terms of Use for more detail.
Top Contributors
Version history
Revision #:
1 of 1
Last update:
‎2013-02-15 19:19
Updated by:
 
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.