Здесь считывается дата, выбранная

Пример 18

Здесь считывается дата, выбранная в элементе управления Calendar, вычисляется стоимость доставки в этот день и результат отображается в стандартном текстовом поле HTML: Sub ShipDate_Click()
Dim shiptime
shiptime = ShipDate.Value - Date ,
If shiptime < 0 Then
MsgBox "Невозможно доставить задним числом"
Elself shiptime < 5 Then
frmShip.txtCost.Value = 12
Else
frmShip.txtCost.Value = 8
End If
End Sub