Pr9

   Проект дата и время.

На форме два столбика надписей и одна кнопка управления.

Левый столбик

Label5,    label6,      label7,              label8

Имеет тексты

Дата,     время,    дата и время,    число дней от 2001

Правый столбик

Label1, Label2, Label3, Label4

Будет показывать значения функций времени и дат.

 

Private sub button1_click()

Dim dat1 as date

        Dat2 as date

Label1.text=date(now)

Label2.text=time(now)

Label3.text=now

Dat1=date(2001,1,1)

Dat2=date(now)

Label4.text=dat2-dat1

End