#!/bin/ksh

#                     Ja Fe Ma Ap My Jn Jl Au Se Oc No De
set -A DaysInMonth xx 31 28 31 30 31 30 31 31 30 31 30 31

isLeapYr=`date.isLeapYr.ksh`
if (( isLeapYr==1 )); then
    DaysInMonth[2]=29
fi

while (( start_date_Y < end_date_Y )); do

    while (( start_date_m < end_date_m )); do

        while (( start_date_d < ${DaysInMonth[${start_date_d}]} )); do
        (( start_date_d=start_date_d+1 ))
        done

        (( start_date_m=start_date_m+1 ))
    done

    (( start_date_Y=start_date_Y+1 ))
done

require "date"

Date.new(2004,2,25).upto(Date.new(2004,3,2)) do  |date| 
  puts date.to_s
end

#! /usr/bin/ksh

read "yr1?enter start date (yyyy mm dd) - " mo1 da1
start=$(datecalc -j $yr1 $mo1 $da1) ||
        { echo $yr1 $mo1 $da1 is not valid ; exit 1 ; }
read "yr2?enter start date (yyyy mm dd) - " mo2 da2
stop=$(datecalc -j $yr2 $mo2 $da2) ||
        { echo $yr2 $mo2 $da2 is not valid ; exit 1 ; }

while ((start<stop)) ; do
        datecalc -j $start
        ((start=start+1))
done
exit 0