TUyearLeap TCL UTILITIES USER MANUAL TUyearLeap
SYNOPSIS
Return the number of days in a year.
PACKAGE
TCLUTILS
NAME
TUyearLeap
USAGE
TUyearLeap  Yr
INPUT DEFINITIONS
Yr - year
RETURN DEFINITION
Days in year - 365 for non-leap years and 366 for leap years
DESCRIPTION
TUyearLeap returns the number of days in the input year. 365 is returned for non-leap years and 366 for leap years.
ERRORS
None Generated
C BACKING
No
EXAMPLE(S) 
                                                    
for { set Yr 1949 } { $Yr < 1955 } { incr Yr } {
   set Days [TUyearLeap $Yr]
   puts stderr "The year $Yr has $Days days"
}

> The year 1949 has 365 days
> The year 1950 has 365 days
> The year 1951 has 365 days
> The year 1952 has 366 days
> The year 1953 has 365 days
> The year 1954 has 365 days
Apr 29, 2003