Operating System - OpenVMS
1752796 Members
5521 Online
108789 Solutions
New Discussion юеВ

How to get next month's end date?

 
John.White
New Member

How to get next month's end date?

Using DCL, how do I determine the last day of next month? I have found answers to determining the first of next month as well as the last day of the current month. However, I cannot find a solution to returning next month's ending date.
5 REPLIES 5
Hoff
Honored Contributor

Re: How to get next month's end date?

I usually don't bother with the fancy stuff, and simply have the job(s) submitted and run daily.

Here's some fancy stuff:

http://h71000.www7.hp.com/wizard/wiz_6046.html

Here's something more on target, from an old comp.os.vms posting:

$ FirstOfLastMonth = "1-" +
f$extract(3,8,f$cvtime("1---1-","absolute","date"))
$ LastOfLastMonth = f$cvtime("1---1-","absolute","date")
$ FirstOfThisMonth = f$cvtime("1--","absolute","date")
$ LastOfThisMonth = -
f$cvtime("1-" +
f$extract(2,8,f$cvtime("28--+4-","absolute","date")) -
+ "-1-","absolute","date")
$ FirstOfNextMonth = "1-" +
f$extract(2,8,f$cvtime("28--+4-","absolute","date"))
$ LastOfNextMonth = -
f$cvtime( "1-" +
f$extract(2,8,f$cvtime("28--+35-","absolute","date")) -
+ "-1-","absolute","date")
Robert Gezelter
Honored Contributor

Re: How to get next month's end date?

John,

Basically, the last day of next month is the day before the first day of the second month (with allowances for year overflow).

Hence:

Current First day of second month Last day of next month
11/30/2009 1/1/2010 12/31/2009
1/1/2010 3/1/2010 2/28/2009

One important part of this approach is that it deals with leap years automatically.

The F$CVTIME function is used to convert dates and times.

- Bob Gezelter, http://www.rlgsc.com

John.White
New Member

Re: How to get next month's end date?

Thank you for the response. This is exactly what I need.
John.White
New Member

Re: How to get next month's end date?

The question was answered.
Art Wiens
Respected Contributor

Re: How to get next month's end date?

"The question was answered."

... and yet no points were assigned.