Can I *improve* on your method?
Months = '31,':(28+Leap):',31,30,31,30,31,31,30,31,30,31'
Last.day = FIELD(Months,",",Month)



-----Original Message-----
From: John Hester <[email protected]>
To: U2 Users List <[email protected]>
Sent: Tue, Dec 6, 2011 3:15 pm
Subject: Re: [U2] End of Month date routine


Your method is also the way I've always done it, but an alternate method
ust came to mind:
MONTH = OCONV(DATE, 'DM')
EAR = OCONV(DATE, 'D Y[Z4]')
EAP = MOD(YEAR, 4) = 0
ONTHS = ''
ONTHS<1> = 31
ONTHS<2> = 28 + LEAP
ONTHS<3> = 31
ONTHS<4> = 30
ONTHS<5> = 31
ONTHS<6> = 30
ONTHS<7> = 31
ONTHS<8> = 31
ONTHS<9> = 30
ONTHS<10> = 31
ONTHS<11> = 30
ONTHS<12> = 31
AST.DAY = MONTHS<MONTH>
Not very concise, but you can tell at a glance how many days your
ealing with.  
-----Original Message-----
rom: [email protected]
mailto:[email protected]] On Behalf Of Holt, Jake
ent: Tuesday, December 06, 2011 2:34 PM
o: U2 Users List
ubject: Re: [U2] End of Month date routine
Someone has probably already suggested one like this but I use:
DATE = ICONV("2-11-11",'D')
ONTH = OCONV(DATE,"DM")
EAR = OCONV(DATE,"DY")
ONTH += 1
F MONTH > 12 THEN
ONTH = 1
EAR += 1
ND
LAST.DAY = ICONV(MONTH:"/1/":YEAR,'D')-1
______________________________________________
2-Users mailing list
[email protected]
ttp://listserver.u2ug.org/mailman/listinfo/u2-users

_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users

Reply via email to