[REBOL] Re: How to...? Convert Date of Birth to Age

[Ladislav Mecir]

Hi Andrew, 

There is a possibility to write the function as follows:

age: function [birth [date!] date [date!]] [years months days new] [
    if date < birth [
        return head insert age date birth '- 
    ]
    days: date/day - birth/day
    if negative? days [
        months: birth/month + 1
        years: birth/year
        if months > 12 [
            months: 1
            years: years + 1
        ]
        new: to date! reduce [1 months years]
        days: new - birth + date/day - 1
        birth: new
    ]
    months: date/month - birth/month
    years: date/year - birth/year
    if negative? months [
        months: months + 12
        years: years - 1
    ]
    reduce [years months days]
]

-L

-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.