<html>
<body>
<script language="vbscript">
<!--
Sub message
msgbox "年: " & DateDiff("yyyy",Now,document.all.txt1.value)
msgbox "月: " & DateDiff("m",Now,document.all.txt1.value)
msgbox "日: " & DateDiff("d",Now,document.all.txt1.value)
msgbox "週: " & DateDiff("w",Now,document.all.txt1.value)
End Sub
-->
</script>
<input type="button" value="ボタン" onclick="message">
<input name="txt1" type="text" value="2000/01/01">
</body>
</html>
|