<!DOCTYPE html>
<html>
<head>
<title>Practica 7</title>
<meta charset="utf-8">
<%
if request.form("cmdcalcular") = "calcular" then
dim fecha1,fecha2,resultado
fecha1 = request.form("txtfecha1")
fecha2 = request.form("txtfecha2")
difmes = DateDiff("M",fecha2 , fecha1)
difdia = DateDiff("D",fecha2 , fecha1)
difano = DateDiff("Yyyy",fecha2 , fecha1)
diferencia = difmes & " Meses "
sum2m = dateAdd("M",2, fecha1)' agregar 2 meses mas a la fecha mas grande'
dosmeses = DateDiff("m",fecha2,sum2m) & " Meses"
end if
%>
</head>
<body>
<h1>Practica 7</h1>
<p>Elabora un programa que por medio de un formulario solicite fecha1 y fecha2, muestre la diferencia entre esas dos fechas y sume 2 meses.</p>
<form action="#" method="post">
<label>Fecha 1 mayor
<input type="text" name="txtfecha1" value="2017-09-15" required>
</label>
<br>
<label>Fecha 2 menor
<input type="text" name="txtfecha2" value="2015-09-15" required>
</label>
<br>
<input type="submit" name="cmdcalcular" value="calcular">
<br>
<label>Diferencia de</label>
<input type="text" name="txtresultado" value="<%=diferencia%>">
<br>
<label>+2 meses</label>
<input type="text" name="txtresultado" value="<%=dosmeses%>">
</form>
</body>
</html>