Counting month diff
- Thread starter atuldalvi
- Start date
jmac13
Member
try this not sure if will do what you want but its one ive had for a while
Code:
/*----------------------------------------------------------------------
------
Name : MonthDiff
Desc : Calculate the difference between 2 dates as months and days.
------------------------------------------------------------------------
----*/
define input parameter pitStartDate as date no-undo.
define input parameter pitEndDate as date no-undo.
define output parameter poiMonths as integer no-undo.
define output parameter poiDays as integer no-undo. define variable dStartDate as decimal no-undo.
define variable dEndDate as decimal no-undo.
define variable dDiff as decimal no-undo.
define variable tTmpDate as date no-undo.
define variable iDaysInStartMonth as integer no-undo.
define variable iDaysInEndMonth as integer no-undo.
/* swap dates if End < Start */
if pitStartDate > pitEndDate then
assign
tTmpDate = pitStartDate
pitStartDate = pitEndDate
pitEndDate = tTmpDate.
/* calculate nr of days in start month */
assign
tTmpDate = date(month(pitStartDate),15,year(pitStartDate))
+ 20.
tTmpDate = tTmpDate - day(tTmpDate).
iDaysInStartMonth = day(tTmpDate).
/* calculate start date as decimal */
dStartDate = year(pitStartDate) * 12 + month(pitStartDate) +
(day(pitStartDate) / iDaysInStartMonth ).
/* calculate nr of days in end month */
assign
tTmpDate = date(month(pitEndDate),15,year(pitEndDate)) + 20.
tTmpDate = tTmpDate - day(tTmpDate).
iDaysInEndMonth = day(tTmpDate).
/* calculate end date as decimal */
dEndDate = year(pitEndDate) * 12 + month(pitEndDate) +
(day(pitEndDate) / iDaysInEndMonth ).
/* calculate difference in months and days */
assign
dDiff = (dEndDate - dStartDate)
poiMonths = truncate(dDiff,0)
poiDays = ( dDiff - poiMonths ) * iDaysInStartMonth .
end procedure. /* MonthDiff */
TomBascom
Curmudgeon
INTERVAL function
Returns the time interval between two DATE, DATETIME, or DATETIME-TZ values as an INT64 value.
Syntax
INTERVAL (datetime1, datetime2, interval-unit)
datetime1
An expression whose value is a DATE, DATETIME, or DATETIME-TZ.
datetime2
An expression whose value is a DATE, DATETIME, or DATETIME-TZ.
interval-unit
A character constant, or a character expression that evaluates to one of the following time units: ‘years’, ‘months’, ‘weeks’, ‘days’, 'hours’, ‘minutes’, ‘seconds’ or ‘milliseconds’. These values are case insensitive and might be singular.
Notes
This function returns a signed integer value (positive or negative). For example, if datetime1 is less than datetime2, the INTERVAL function returns a negative value.
If datetime1 or datetime2 is a DATE or DATETIME, the time value defaults to midnight and the time zone value defaults to the session's time zone, respectively.
Returns the time interval between two DATE, DATETIME, or DATETIME-TZ values as an INT64 value.
Syntax
INTERVAL (datetime1, datetime2, interval-unit)
datetime1
An expression whose value is a DATE, DATETIME, or DATETIME-TZ.
datetime2
An expression whose value is a DATE, DATETIME, or DATETIME-TZ.
interval-unit
A character constant, or a character expression that evaluates to one of the following time units: ‘years’, ‘months’, ‘weeks’, ‘days’, 'hours’, ‘minutes’, ‘seconds’ or ‘milliseconds’. These values are case insensitive and might be singular.
Notes
This function returns a signed integer value (positive or negative). For example, if datetime1 is less than datetime2, the INTERVAL function returns a negative value.
If datetime1 or datetime2 is a DATE or DATETIME, the time value defaults to midnight and the time zone value defaults to the session's time zone, respectively.
10.0 was released in 2003...
