<%@ Language=VBScript %>
<%
CompareDate = #12/25/2000 12:00:00 AM#
CurrentDate = Now
YearDiff = Year(CompareDate) - Year(CurrentDate)
if cdate(month(CompareDate) & "/" & Day(CompareDate) & "/" & year(CurrentDate)) < CurrentDate then
YearDiff = YearDiff -1
end if
If YearDiff = 1 then
TheMessage = "1 year "
elseif YearDiff > 1 then
TheMessage = YearDiff & " years "
end if
MonthDiff = Month(CompareDate) - Month(CurrentDate)
if MonthDiff < 0 then
MonthDiff = 12 + MonthDiff
end if
if cdate(month(CurrentDate) & "/" & Day(CompareDate) & "/" & year(CurrentDate)) < CurrentDate then
MonthDiff = MonthDiff - 1
end if
If MonthDiff = 1 then
TheMessage = TheMessage & "1 month "
elseif MonthDiff > 1 then
TheMessage = TheMessage & MonthDiff & " months "
end if
If day(CompareDate) >= Day(CurrentDate) then
DayDiff = day(CompareDate) - Day(CurrentDate)
else
NextMonth = Month(CurrentDate) + 1
If NextMonth = 13 then
NextMonth = 1
end if
LastDayOfMonth = DateAdd("d", -1, NextMonth & "/1/" & Year(CurrentDate))
DayDiff = Day(LastDayOfMonth) - Day(CurrentDate) + day(CompareDate)
end if
if Hour(CompareDate) <= Hour(CurrentDate) then
DayDiff = DayDiff - 1
end if
If DayDiff = 1 then
TheMessage = TheMessage & "1 day "
elseif DayDiff > 1 then
TheMessage = TheMessage & DayDiff & " days "
end if
HourDiff = Hour(CompareDate) - Hour(CurrentDate)
if HourDiff < 0 then
HourDiff = 24 + HourDiff
end if
if minute(CompareDate) < minute(CurrentDate) then
HourDiff = HourDiff - 1
end if
If HourDiff = 1 then
TheMessage = TheMessage & "1 hour "
elseif HourDiff > 1 then
TheMessage = TheMessage & HourDiff & " hours "
end if
MinuteDiff = Minute(CompareDate) - Minute(CurrentDate)
if MinuteDiff < 0 then
MinuteDiff = 60 + MinuteDiff
end if
if second(CompareDate) < second(CurrentDate) then
MinuteDiff = MinuteDiff - 1
end if
If MinuteDiff = 1 then
TheMessage = TheMessage & "1 minute "
elseif MinuteDiff > 1 then
TheMessage = TheMessage & MinuteDiff & " minutes "
end if
SecondDiff = Second(CompareDate) - Second(CurrentDate)
if SecondDiff < 0 then
SecondDiff = 60 + SecondDiff
end if
If SecondDiff = 1 then
TheMessage = TheMessage & "1 second "
elseif SecondDiff > 1 then
TheMessage = TheMessage & SecondDiff & " seconds "
end if
%>
Home
