<%
dim calc
calc = request.form("calc")
if calc = "1" then
dim iFDay, iFMonth, iFYear, iFHour, iFMin, dFDate
dim iTDay, iTMonth, iTYear, iTHour, iTMin, dTDate
dim calcY, calcM, calcD, calcH, calcMin, calcS
iFDay = request.form("fday")
iFMonth = request.form("fmonth")
iFYear = request.form("fyear")
iFHour = request.form("fhour")
iFMin = request.form("fmin")
dFDate = iFDay & "/" & iFMonth & "/" & iFYear & " " & iFHour & ":" & iFMin
iTDay = request.form("tday")
iTMonth = request.form("tmonth")
iTYear = request.form("tyear")
iTHour = request.form("thour")
iTMin = request.form("tmin")
dTDate = iTDay & "/" & iTMonth & "/" & iTYear & " " & iTHour & ":" & iTMin
//calcY = DateDiff("yyyy",dFDate,dTDate)
calcM = DateDiff("m",dFDate,dTDate)
calcD = DateDiff("d",dFDate,dTDate)
calcH = DateDiff("h",dFDate,dTDate)
calcMin = DateDiff("n",dFDate,dTDate)
calcS = DateDiff("s",dFDate,dTDate)
end if
%>
Time bewteen ...
<%
if calc = "1" then
//response.write "Years: " & calcY & "
"
response.write "Months: " & calcM & "
"
response.write "Days: " & calcD & "
"
response.write "Hours: " & calcH & "
"
response.write "Mins: " & calcMin & "
"
response.write "Seconds: " & calcS
calc = "0"
end if
%>