And my stab at it: IMHO, less calculations, less problems FUNCTION verbosedate LPARAMETERS tnTotDays
LOCAL lnYears, lnMonths, lnDays LOCAL ldDate1, ldDate2 ldDate1 = DATE() ldDate2 = DATE() + tnTotDays lnYears = YEAR(ldDate2) - YEAR(ldDate1) lnMonths = MONTH(ldDate2) - MONTH(ldDate1) lnDays = DAY(ldDate2) - DAY(ldDate1) ? lnYears, lnMonths, lnDays RETURN ENDFUNC -----Oorspronkelijk bericht----- Van: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Namens Vince Teachout Verzonden: woensdag 28 maart 2007 5:56 Aan: [EMAIL PROTECTED] Onderwerp: Re: Date calculations. Bryant Minard wrote: > If I have variable (d = 397, the difference between two dates), how can I > show that in years, months and days? (example 1 year, 1 month and 1 day) > Has anyone written a function to do something like this? > Here's how I'd do it: VerboseDate(397) FUNCTION verbosedate LPARAMETERS nTotDays LOCAL nyears, nmonths, ndays, nRemain nyears = nTotdays/365.25 nRemain = nYears - INT(nYears) nmonths = nRemain*12 nRemain = nMonths - INT(nMonths) nDays = (nRemain*365.25)/12 nYears = INT(nYears) nMonths = INT(nMonths) nDays = INT(nDays) ? nYears, nMonths, nDays RETURN ENDFUNC [excessive quoting removed by server] _______________________________________________ Post Messages to: ProFox@leafe.com Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.