are there functions to calculate the number of months or days between two dates?

thanx.

@toNumber(Date1 - Date2) gives you the number of days between Date1 and Date2. Date 1 should be the most recent date or the highest date.

Here is a program I just wrote. It figures Years, Months and Days from one date to the next. As always long lines will need to be unwrapped.


Var vPromisedShipDate as Date
Var vActualShipDate as Date
Var vPromisedShipMonth as int
Var vActualShipMonth as int
Var vPromisedShipYear as int
Var vActualShipYear as int
Var vPromisedShipDay as int
Var vActualShipDay as int
var vYearsPassed as int
var vMonthsPassed as int
var vDaysPassed as int

vPromisedShipDate = "4/19/1985"
vActualShipDate = "6/26/1985"

vPromisedShipYear = @Year(vPromisedShipDate)
vActualShipYear = @Year(vActualShipDate)

vPromisedShipMonth = @Month(vPromisedShipDate)
vActualShipMonth =  @Month(vActualShipDate)

vPromisedShipDay = @DOM(vPromisedShipDate)
vActualShipDay =  @DOM(vActualShipDate)

If vActualShipYear >= vPromisedShipYear then
{
     if vActualShipMonth >= vPromisedShipMonth then
     {
           if vActualShipDay > vPromisedShipDay then
           {
                 vYearsPassed = vActualShipYear - vPromisedShipYear
                 vMonthsPassed = vActualShipMonth - vPromisedShipMonth
                 vDaysPassed  =       vActualShipDay - vPromisedShipDay
                 WriteLn("This Product Shipped " + @str(vYearsPassed) + " Years, " + @str(vMonthsPassed) + " Months, and " + @str(vDaysPassed) + " Days later than it was supposed to")
           }
           else if vActualShipDay = vPromisedShipDay then
           {
                 //The product shipped exactly on the day it was supposed to
                 WriteLn("We should buy from this company more often. Product was shipped on date it was supposed to be shipped on.")
           }
           else
           {
                 //Product shipped sooner than expected same month but earlier day
                 WriteLn("This product was shipped at least a day before it was expected to be.")            
           }
     
     }
     else
     {
           //Product was shipped atleast a month before it was expected to
           WriteLn("This product was shipped at least a month before it was expected to be")            
     }
}
else
{
     //Product was shipped at least a year before it was expected to
     WriteLn("This product was shipped at least a year before it was expected to be")
}

Yes becky that was actually the first thing on my list for today. The program can now be found in the "Programming Examples" section of the forum.