Bob, I'm glad you like InfoWallet. Thanks for the kind words.
This code originally came from this awesome list. Bill Vlahos _________________ InfoWallet (http://www.infowallet.com) is about keeping your important life information with you, accessible, and secure. On Jul 20, 2011, at 9:21 AM, Bob Sneidar wrote: > I purchased Infowallet, (it's awesome) and so feel it's alright to scavenge > your bit of code. :-) > > Bob > > > On Jul 19, 2011, at 4:24 PM, Bill Vlahos wrote: > >> The problem is the epoch date in Windows is 1970 and LiveCode can't deal >> with dates earlier than that in Windows. You will need to use a VBScript. >> >> Here is what I use in InfoWallet which handles Windows, Mac, and Linux >> correctly which was based on code provided by folks on this list. >> >> on calcAge tDate,asOf >> -- returns the current age based on a DOB of tDate >> -- as of the date asOf, or if asOf = empty, as of today >> if tDate = empty then return empty >> if the platform is "WIn32" then >> isADate tDate >> if the result then >> put "sdate = " & quote & tDate & quote into vFive >> put return & "result = DateDiff(" & quote & "d" & quote & >> ",sdate,Date)" after vFive >> put return & "trueage = result / 365" after vFive >> put return & "result = Left(trueage,2)" after vFive >> do vFive as vbscript >> return the result >> else >> return empty >> end if >> else >> if tDate is not a date then return empty >> if asOf = empty then >> put the date into asOf >> end if >> set the itemdelimiter to "/" >> put item -1 of the short date into nowYr >> set the centurycutoff to nowYr+1 >> set the itemdelimiter to comma >> convert tDate to dateItems >> convert asOf to dateitems >> put item 1 of asOf - item 1 of tDate - 1 into tAge >> put item 1 of asOf into item 1 of tDate >> convert tDate to seconds >> convert asOf to seconds >> if tDate <= asOf then add 1 to tAge >> return tAge >> end if >> end calcAge >> >> >> Bill Vlahos >> _________________ >> InfoWallet (http://www.infowallet.com) is about keeping your important life >> information with you, accessible, and secure. >> >> On Jul 19, 2011, at 9:23 AM, André Bisseret wrote: >> >>> Bonjour, >>> >>> I am a Mac user but I recently bought a PC (windows 7) in order to test my >>> standalones for windows more quickly. >>> >>> I am fighting for hours now with the following problem : >>> >>> In an app., I have a handler that calculates the age from the short birth >>> date (thanks to Jim Ault who gave it on the list). >>> The birth date is jj/mm/AAAA or jj/mm/AA as well. >>> >>> This handler works fine on Mac, but not on windows. >>> >>> On windows, the age is invariably 100 if the birth year < 1970. (with >>> JJ/MM/AA or JJ/MM/AAAA (as bad ;-( >>> If the birth year > = 1970 then the age is correct. >>> >>> I tried to play with the centuryCutOff but without any success (on windows). >>> >>> I am not familiar with Windows : what am I missing ? Is it a matter of >>> computer setting or should I program differently for windows than for mac !? >>> >>> Thanks a lot in advance for any help >>> >>> Best regards from Grenoble >>> >>> André >>> >>> P.S. By the way, I used to use a search engine (if I well remember, it was >>> in the help menu of livecode) I do not find it any more; has it been >>> suppressed ? (or here again, I am missing something !) >>> _______________________________________________ >>> use-livecode mailing list >>> use-livecode@lists.runrev.com >>> Please visit this url to subscribe, unsubscribe and manage your >>> subscription preferences: >>> http://lists.runrev.com/mailman/listinfo/use-livecode >> >> >> _______________________________________________ >> use-livecode mailing list >> use-livecode@lists.runrev.com >> Please visit this url to subscribe, unsubscribe and manage your subscription >> preferences: >> http://lists.runrev.com/mailman/listinfo/use-livecode > > > _______________________________________________ > use-livecode mailing list > use-livecode@lists.runrev.com > Please visit this url to subscribe, unsubscribe and manage your subscription > preferences: > http://lists.runrev.com/mailman/listinfo/use-livecode _______________________________________________ use-livecode mailing list use-livecode@lists.runrev.com Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-livecode
