LiveCode Forums.

Code: Select all

on mouseUp
   put DaysBetween("12/1/16", the date)
end mouseUp

function DaysBetween pDate1, pDate2
   -- Make sure we're working with valid date values:
   if pDate1 is not a date then
      return "First argument is not a date" for error
   end if 
   if pDate2 is not a date then
      return "Second argument is not a date" for error
   end if 
   -- Do the arithmetic with integer seconds:
   convert pDate1 to seconds
   convert pDate2 to seconds
   put abs(pDate1-pDate2) into tDiff
   -- Convert seconds to days and return it:
   return (tDiff / (60*60*24))
end DaysBetween

Code: Select all

-- Julian Day Number    -- As Per http://fox.wikis.com/wc.dll?Wiki~JulianDates
-- Agrees with Wikipedia January 1, 2000, was 2,451,545.
function JDN pDate
   local  lnD, lnM, lnYr, lnJulianDate
   
   set itemdelimiter to "/"
   
   put item 1 of pDate into lnD
   put item 2 of pDate into lnM
   put item 3 of pDate into lnYr
   
   put  367  *  lnYr - TRUNC(7 * (lnYr + TRUNC ((lnM + 9) / 12)) / 4) into  lnJulianDate     
   put lnJulianDate  - TRUNC(3 * (TRUNC((lnYr + (lnM - 9) / 7) / 100) + 1) / 4) into lnJulianDate
   
   put  lnJulianDate  + TRUNC(275 * lnM / 9)     +  lnD + 1721029    into lnJulianDate
   
   Return lnJulianDate
   
end JDN

Code: Select all

-- Function : DayBetween() 
-- Remarks  : If the second date is blank it will use the current systemdate
--                   :  Assumes caller knows which is before or after 
-- Params   : {Date} pDate1, {Date} pDate2
-- Returns  : {Integer} Absolute number of days (with decimals) between the two dates
Function DaysBetween pDate1, Pdate2
   local lnD1, lnD2, lnDays
   
   set the usesystemdate to true 
   
   if pDate2 is empty then
      put the system date into pDate2
   end if
   
   put JDN(pDate1) into lnD1  
   put JDN(pDate2) into lnD2
   
   put ABS(lnD1 - lnD2) into lnDays
   
   return lnDays
   
end DaysBetween

Code: Select all

-- Function : GODAYS()
-- Remarks  : The date passed in as a parameter plus or minus the days specified.
-- param    : {Date}    pDate - Date we are adding or subtracting to/from
-- param    : {Integer} pDays - Number of days to add/substract to pDate
-- Returns  : {Date} pdDate - Date pDays forward or back
function GODAYS pDate, pDays
   
   set useSystemDate to true
   
   convert pDate to dateitems
   add pDays to item 3 of pDate
   convert pDate to system date -- NOt strictly needed but ....
   return pDate
end GODAYS

Code: Select all

-- Function : Age() 
-- Remarks  : Pass in a Date of Birth to Find age in years months and Days
--          : Uses Julian Number 
-- Params   : {Date} pDate1, {Date} pDate2
-- Returns  : {Integer} Absolute number of days (with decimals) between the two dates
Function Age pDOB, pUpto
   
   local lnD1,  lnD2, lnYears, lnMonths, ldToday, lnDays, lcAge
   set itemdelimiter to "/"
   put the short system date into ldToday
   
   -- Allow age calcuklation upto any date - even future
   if pUpto is not empty then
      put pUpto into ldToday
   end if
   
   -- Get the Julian date with base  January 1st 4713 BC
   put   JDN(ldToday) into lnD1
   put   JDN(pDOB)    into lnD2
   
   put TRUNC((lnD1  - lnD2) / 365.25) into lnYears
   put  TRUNC((((lnD1 - lnD2) / 365.25) - lnYears) * 12) into lnMonths
   put TRUNC( ( ((((lnD1 - lnD2) / 365.25) - lnYears) * 12) - lnMonths)  * 30.42) into lnDays -- My addition which makes it as close as dammit for the days
   
   -- Send back 3 ITEMS
   put  lnYears &  "," &  lnMonths &  ","  &  lnDays into lcAge
   
   return lcAge
   
end Age

Code: Select all

-- Function : GOMONTH()
-- Remarks  : The date passed in as a parameter plus or minus
--          : the months specified. To go forward a year pass  12 back a year -12
-- param    : {Date} pDate - Base Date to add or substract the months to
-- param    : {integer} pnMonths - Number of months to add/substract to pDate
-- Returns  : {date} pDate - Date nMonths forward or -nMonths back
function GOMONTH pDate, pMonths 
   
   -- We are passing in a string in BRITISH (UK) format not ENGISH (AMERICAN)
   -- So we tell the system that (assuming the users date is in DD/MM/YYY format
   -- This property is local and only lasts for the current handler
   set useSystemDate to true
   
   convert pDate to dateitems
   add pMonths to item 2 of pDate
   convert pDate to system date
   return pDate
   
end GOMONTH

-- Function : GODAYS()
-- Remarks  : The date passed in as a parameter plus or minus the days specified.
-- param    : {Date}    pDate - Date we are adding or subtracting to/from
-- param    : {Integer} pDays - Number of days to add/substract to pDate
-- Returns  : {Date} pdDate - Date pDays forward or back
function GODAYS pDate, pDays
   
   set useSystemDate to true
   
   convert pDate to dateitems
   add pDays to item 3 of pDate
   convert pDate to system date -- Not strictly needed but ....
   return pDate
end GODAYS

Code: Select all

put libDate_DaysBetween( pYear1,pMonth1,pDay1,pYear2,pMonth2,pDay2)