用下面这段来声明事件:<SCRIPT LANGUAGE="VBScript" EVENT="OnClick" FOR="Calendar1">
<!--
With Calendar1
    Msgbox .Year & "-" & .Month & "-" & .Day
End With
-->
</SCRIPT>