:parse_date
cuttext $the_date $month 1 2
cuttext $the_date $day 4 2
cuttext $the_date $year 7 2

if ($day = "01")
goto :get_month_array

if ($month < 10)
setvar $month ($month - 1)
setvar $month ("0" & $month)
else
subtract $month 1
end

setvar $day $month_array[$month]
setvar $the_date ($month & "/" & $day & "/" & $year)
return
end

if ($day < 10)
setvar $day ($day - 1)
setvar $day ("0" & $day)
end
setvar $the_date ($month & "/" & ($day - 1) & "/" & $year)
return

:get_month_array
setvar $month_array[1] "31"
if ($year = "20")
setvar $month_array[2] "29"
else
setvar $month_array[2] "28"
end
setvar $month_array[3] "31"
setvar $month_array[4] "30"

setvar $month_array[5] "31"
setvar $month_array[6] "30"
setvar $month_array[7] "31"
setvar $month_array[8] "31"

setvar $month_array[9]  "30"
setvar $month_array[10] "31"
setvar $month_array[11] "30"
setvar $month_array[12] "31"
return

# 10 MOD 4
setVar $DV 4
setVar $OP 10
gosub :Mod

echo "**" $remainder "**"
halt

:mod
setVar $remainder 0
setVar $PRE 0
setVar $PST 0
:again
setVar $PST $PRE
add $PRE $DV
if ($PRE < $OP)
goto :again
end
if ($PRE = $OP)
setVar $remainder 0
return
end
if ($PRE > $OP)
setVar $remainder ($OP - $PST)
return
end

# AbsoluteDate.ts by ElderProphet
#
# Here is the year basis:
# Normal year = 365 days
# 4 Years = 1461, which is (365*4)+1
# 100 Years = 36524, which is (1461*25)-1
# 400 Years = 146097, which is (36524*4)+1
#
# For include usage, set $absoluteDate~date month/day/year, E.g. 2/29/2004
#   then gosub :absoluteDate~absDate
#   The absolute date will be $absoluteDate~absDate

:start
echo ANSI_15 "*Enter Date (mm/dd/yyyy), or just press ENTER to calculate today's Absolute Date."
getConsoleInput $input
if ($input = "") or ($input = 0)
   getDate $date
else
   setVar $date $input
end
gosub :absDate
echo ANSI_10 "*" $input " : " ANSI_11 "AbsoluteDate=" $absDate "*"
goto :start

:absDate
setVar $absDate 0
replaceText $date "/" " "
getWord $date $month 1
getWord $date $day 2
getWord $date $year 3

# Determine the number of days for all completed years
while ($year > 400)
   add $absDate 146097
   subtract $year 400
end
while ($year > 100)
   add $absDate 36524
   subtract $year 100
end
while ($year > 4)
   add $absDate 1461
   subtract $year 4
end
# And for leap years, before and after 2/29
if ($year = 4) and ($month > 2)
   add $absDate 1
end
while ($year > 0)
   add $absDate 365
   subtract $year 1
end

# Determine the number of days for all completed months
if ($month = 2)
   add $absDate 31
elseif ($month = 3)
   add $absDate 59
elseif ($month = 4)
   add $absDate 90
elseif ($month = 5)
   add $absDate 120
elseif ($month = 6)
   add $absDate 151
elseif ($month = 7)
   add $absDate 181
elseif ($month = 8)
   add $absDate 212
elseif ($month = 9)
   add $absDate 243
elseif ($month = 10)
   add $absDate 273
elseif ($month = 11)
   add $absDate 304
elseif ($month = 12)
   add $absDate 334
end

# Add the days of the current month
add $absDate $day
return