Viva Clipper !

EoQ()

Advertisements

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()

Advertisements

Advertisements