Daily Archives: July 5, 2013

CT_AddMonth()

Posted on by vivaclipper 
ADDMONTH()
 Adds or subtracts months to/from a date
------------------------------------------------------------------------------
 Syntax

     ADDMONTH([<dDate>], [<nMonth>]) --> dNewDate

 Arguments

     <dDate>  Designates the date to which the <nMonth> months is added.
     The default is the system date.

     <nMonth>  Designates the number of months to add to <dDate>.

 Returns

     ADDMONTH() returns the new date after <nMonth> is added to <dDate>.

 Description

     Use this function to calculate payment due dates based on an invoice
     date and for similar applications.  It permits you to add months to a
     given date.  If you use a negative number, months are subtracted.

 Note

     .  An empty date parameter will result in an empty date.

 Examples

     * Show today's date, plus 36 months:

     ? "The payment period ends on: ", ADDMONTH(36)

     * Today plus 7 month: 
     ? "AddMonth( 7 ) :", AddMonth( 7 )

     * Date of last day of 7 month after :
     ? "EOM( AddMonth( 7 ) ) :", EOM( AddMonth( 7 ) )

     * Dates of next year: 
     dDate := CTOD( "12.12.2012" )
     ? "Last day of one month after", dDate, ":", EOM( AddMonth( dDate, 1 ) )
     ? "Last day of two month after", dDate, ":", EOM( AddMonth( dDate, 2 ) )
     
     * Month before 
     ? "Date of two month before", dDate, ":", AddMonth( dDate, -2 )
     ?

Application’s Date & Time

Posted on by vivaclipper

How I can obtain date and time of my application ?

PROC MAIN()
   * lib : hbct
   SETMODE( 25, 80 )
   CLS

   SET DATE GERM
   SET CENT ON
   ? "Date of this application :", FILEDATE( HB_PROGNAME() ) 
   ? "Time of this application :", FILETIME( HB_PROGNAME() )
   ? 
   WAIT "EOF AppDaTim.prg"

RETURN // MAIN ( AppDaTim.prg )