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

Проект № 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. Запустить проект и щёлкнуть по кнопке Дата. На форме будет напечатано текущее число и  количество дней, прошедших с начала третьего тысячилетия. Поместить на форму текстовое поле txtTime. Ввести событийную процедуру tmr1_Timer(): Проект № 10 «Секундомер» 1. Разместить на форме объект Timer и присвоить ему имя tmr1, а свойству Interval – значение 1000.  Sub tmr1_Timer() txtTime.Text = Time$ End Sub 2. Запустить проект. В текстовое окно с интервалом в одну секунду будет выводится сист емное  время компьютера. Проект № 9 «Дата» 3. Разместить на форме кнопку cmd1  и ввести событийную процедуру cmd1_Click(): Dim dtmA, dtmB As Date Sub cmd1_Click() dtmA = date dtmB = #1/1/2001# Print “Сегодня “; dtmA Print “С начала третьего тысячилетия прошло “; dtmA – dtmB; “ дней “ End Sub 4. Запустить проект и щёлкнуть по кнопке Дата. На форме будет напечатано текущее число и  количество дней, прошедших с начала третьего тысячилетия. Поместить на форму текстовое поле txtTime. Ввести событийную процедуру tmr1_Timer(): Проект № 10 «Секундомер» 2. Разместить на форме объект Timer и присвоить ему имя tmr1, а свойству Interval – значение 1000.  Sub tmr1_Timer() txtTime.Text = Time$ End Sub 2. Запустить проект. В текстовое окно с интервалом в одну секунду будет выводится сист емное  время компьютера.