Проект № 9 «Дата»

1. Разместить на форме кнопку cmd1 и ввести событийную процедуру cmd1_Click(): Dim dtmA, dtmB As Date Sub cmd1_Click() dtmA = date dtmB = #1/1/2001# Print “Сегодня “; dtmA Print “С начала третьего тысячилетия прошло “; dtmA – dtmB; “ дней “ End Sub 2. Запустить проект и щёлкнуть по кнопке Дата. На форме будет напечатано текущее число и количество дней, прошедших с начала третьего тысячилетия.