Day of the week

[kolkern]

I need to retrieve day of the week (*Mon, *Thu, *Wed and etc.) Is anybody know how to do this???

 

[rstitzel]

I created a service program from some code that I found on the net. Here's the link:

http://www.as400pro.com/TipsRPG13.htm#3

It also calculates Week Of Year.

Hope this helps.

 

[Mercury2]

Also

C/Exec sql
C+ Set ayOfWeek = DayOfWeek( MyDate )
C/End-exec

But SQL is involved.

 

[arrow483]

You don't even need a service pgm> (Spacing adjusted)


D CheckDate S D
D DayOfWeek S 1S 0
D* (0=Sunday, 1=Monday, ... 6=Saturday)

C Eval DayOfWeek = %REM (%DIFF(Checkdate:
C %DATE('1899-12-31'):*D):7)

 

[Mercury2]

arrow483,
I think you have forgotten to show the results when Checkdate is before 1899-12-31.

/free
   DayOfWeek = %REM( %DIFF( Checkdate: %DATE( '1899-12-31' ) :*D ):7 ); 
[COLOR=red yellow]
   if DayOfWeek < 1;
     DayOfWeek = DayfWeek + 7;
   endif;
[/color]

Also, You could have the comparison date against 0001-01-07 (yes, it was a Sunday %-)) to get rid of this last test.

 

[iSeriesCodePoet]

I just wrote up a quick subprocedure that should work. Feel free to use that or let me know of any bugs.

iSeriesCodePoet
iSeries Programmer/Lawson Software Administrator

http://www.koldark.net

http://www.spreadfirefox.com/?q=affiliates&id=2483&t=1