LastDayOM()

LastDayOM()

Determines the number of days in a month

Syntax

       LastDayOM([<dDate|nMonth>]) --> nDaysInMonth

Argument

<dDate|nMonth> Designates either a date or the number of a month.The default is the system date.

Returns

LastDayOM() returns the number of days in the month specified by <dDate|nMonth>.

Description

<dDate|nMonth> can be a date or a month number. If empty uses the system date. If nMonth is a 2, lastdayom() will not know if it is a leap year or not. If dDate is invalid, returns 0 To administer due dates and other similar dates, it is useful to know the number of days that remain in a month. Specify either the day’s date or month as a parameter, and you get the length of the month in days. If you subtract the number of days until today’s date, you are left with the days that remain until month end.

Note

. Without the <dDate|nMonth> parameter, the function automatically uses the system date. If there is an invalid number of months, LastDayOM() returns 0 as an error code.

Example

       How many days remain before the end of the month?
           ? DATE(), LastDayOM()
           ? "There are " + STR(LastDayOM() - DAY( DATE() ), 2) +;
              " days until the end of the month"

Compliance

LastDayOM() is compatible with CT3’s LastDayOM().

Platforms

All

Files

Source is dattime2.prg, library is libct.

Seealso

EOM()

EOY()

EOY()

Last date Of Year

Syntax

       EOY( [<dDate>] ) -> dDateEndOfYear

Argument

[<dDate>] Date to find last day of year, default is DATE()

Returns

<dDateEndOfYear> Last date Of Year of given date

Example

       SET DATE ANSI
       ? EOY( hb_SToD( "20000101" ) ) // -> "2000.12.31"
       ? EOY( hb_SToD( "20010101" ) ) // -> "2001.12.31"
       *--------------------
       PROC MAIN()
             SETMODE( 25, 80 )
             CLS
             SET DATE GERM
             SET CENT ON
             ? "Today is ", DATE()
             ? "Last day of this year ", EoY()
             ? "Remaining days in the current year", EoY() - DATE()
             ?
             WAIT "EOF EoY.prg"
          RETURN // MAIN

Compliance

EOY() is compatible with CT3’s EOY().

Platforms

All

Files

Source is datetime.prg, library is libct.

See also

BOM(), EOM(), BOQ(), EOQ(), BOY()

EoQ()

EoQ()

Date of end of quarter

Syntax

       EoQ( [<dDate>] ) -> dDateEndOfQ

Argument

[<dDate>] Date to find end of quarter, default is DATE()

Returns

<dDateEndOfQuarter> Date of end of quarter containing given date

Example

       PROC MAIN()
              SETMODE( 25, 80 )
              CLS
              SET DATE GERM
              SET CENT ON
              ? "Today is ", DATE()
              ? "Last day of this quarter
              ? "Days remaininng in the cu
              ?
              WAIT "EOF EOQ.prg"
           RETURN // MAIN

Compliance

EOQ() is compatible with CT3’s EOQ().

Platforms

All

Files

Source is datetime.prg, library is libct.

See also

BOM(), EOM(), BOQ(), BOY(), EOY()

BoY()

BoY()

Date to find first day of year, default is DATE()

Syntax

       BoY( [<dDate>] ) -> dDateBeginOfYear

Argument

[<dDate>] : Date to find first day of year, default is DATE()

Returns

<dDateBeginOfYear> : Beginning date Of year of given date

Example

       PROC MAIN()
          SETMODE( 25, 80 )
          CLS
          SET DATE GERM
          SET CENT ON
          ? "Today is :", DATE()
          ? "Date of first day of this year :", BOY()
          ? "Days elapsed in the current year:", DATE() - BOY()
          ?
          WAIT "EOF BoY.prg"
       RETURN // MAIN

Compliance

BoY() is compatible with CT3’s BoY()

Platforms

All

Files

Library is hbct.

See also

BoM(), EoM(), BoQ(), EoQ(), EoY()

BoQ()

BoQ()

Date of beginning Of quarter containing given date

Syntax

       BoQ( [<dDate>] ) -> <dDateBeginOfQuarter>

Argument

[<dDate>] : Date to find Begin Of Quarter, default is DATE()

Returns

<dDateBeginOfQuarter> : Date of beginning Of quarter containing given date

Example

       PROC MAIN()
            SETMODE( 25, 80 )
            CLS
            SET DATE GERM
            SET CENT ON
            ? "Today is :", DATE()
            ? "Beginning day of this quarter :", BOQ()
            ? "Days elapsed in the current quarter :", DATE() - BOQ()
            ?
            WAIT "EOF BOQ.prg"
         RETURN // MAIN

Compliance

BoQ() is compatible with CT3’s BoQ()

Platforms

All

Files

Library is hbct.

See also

BoM(), EoM(), EoQ(), BoY(), EoY()

BoM()

BoM()

Beginning date Of Month of given date

Syntax :

      BoM( [<dDate>] ) -> <dDateBeginOfMonth>

Argument :

[<dDate>] : Date to find first day of month, default is DATE()

Returns :

<dDateBeginOfMonth> : Beginning date Of Month of given date

Examples

       PROC MAIN()
          SETMODE( 25, 80 )
          CLS
          SET DATE GERM
          SET CENT ON
          ? "Today is :", DATE()
          ? "Date of first day of this month :", BOM()
          ? "Days elapsed in the current month:", DATE() - BOM()
          ?
          WAIT "EOF BOM.prg"
       RETURN // MAIN

Compliance

BoM() is compatible with CT3’s BoM().

Platforms

All

Files

Library is hbct.

See also

EoM(), BoQ(), EoQ(), BoY(), EoY()