RPG-free routine to calculate dates

Digg This!     StumbleUpon     Del.icio.us

RELATED CONTENT iSeries Application Development Monitoring escape messages and using RCVMSG for diagnostic messages Listing contents of multiple FTP directories on AS/400 Chain operation error after converting RPG3 to ILE RPG (RPGIV) Space offset X'0015FF00' or X'0000000000000000' is outside current limit for object QIGC2424C Searching fields for values iSeries application display subfiles with other program windows Searching part of a name or address in AS/400 Passing parameters in an ILE RPG module What's happening to my subfile? What happening to my subfile?

RELATED RESOURCES 2020software.com, trial software downloads for accounting software, ERP software, CRM software and business software systems Search Bitpipe.com for the latest white papers and business webcasts Whatis.com, the online computer dictionary

Try this from Midrange.com.

 
*// Procedure:  DayOfWeek                                           //
*// Purpose:  Determine the day of week for a particular date       //
*// Parameters:                                                     //
*//    I: dt   -- date                                              //
*// Returns:                                                        //
*//    0..6    -- 0=Sunday, 1=Monday, 2=Tuesday, etc.               //
*// Notes:                                                          //
*//    January 5, 1800 is a Sunday.  This procedure only works for  //
*//    dates later than 1800-01-05.                                 //
*////////////////////////////////////
P DayOfWeek       b
D DayOfWeek       pi            10i 0
D   dt                            d   value datfmt(*iso)
/free
   return %rem (%diff (dt: d'1800-01-05': *days): 7);
/end-free
P DayOfWeek       e    

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: tips, tutorials and more.

Visit the ITKnowledge Exchange and get answers to your developing questions fast.

Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.