Control

Calendar ActiveX control - version 8.0

File

MSCAL.OCX

Panel control name

Calendar1

Script

Code

Display About box

Calendar1.AboutBox

Get selected date

&(1:) = Calendar1.Day
&(2:) = Calendar1.Month
&(3:) = Calendar1.Year
Parameters:
&(1:)=Integer - Day of selected date.
&(2:)=Integer - Month of selected date.
&(3:)=Integer - Year of selected date.

Next day

Calendar1.NextDay

Next week

Calendar1.NextWeek

Next month

Calendar1.NextMonth

Next year

Calendar1.NextYear

Previous day

Calendar1.PreviousDay

Previous week

Calendar1.PreviousWeek

Previous month

Calendar1.PreviousMonth

Previous year

Calendar1.PreviousYear

Refresh

Calendar1.Refresh

Set date If (Calendar1.Day > 0) And (Calendar1.Day < 32) Then Calendar1.Day = &(1:)
If (Calendar1.Month > 0) And (Calendar1.Month < 13) Then Calendar1.Month = &(2:)
Calendar1.Year = &(3:)
Parameters:
&(1:)=Integer - Day to set.
&(2:)=Integer - Month to set.
&(3:)=Integer - Year to set.
Today Calendar1.Today