Создание пользовательских форм в Visual Basic for Applications. Любин А.Н. - 33 стр.

UptoLike

ВУЗ: 

МАМИ | Москва

Составители: 

Рубрика: 

33
Dim retval ' возвращаемое значение
Today=Date ' узнаем текущую системную дату
Millenium="01.01.01"
retval=DateDiff ("d",Today,Millenium)
Работа vba программы «Остаток дней»
При нажатии на клавишу с названием «VBA-программа «Оста-
ток дней»» (см. рис. 33) на листе Excel появиться пользовательская
форма. При вводе в неѐ интересующей Вас даты, например,
12.03.2012, с учѐтом того, что текущая дата 04.01.2012, форма
примет следующий вид, см. рис.35.
Рис. 35 
   Dim retval     ' возвращаемое значение
   Today=Date     ' узнаем текущую системную дату
   Millenium="01.01.01"
   retval=DateDiff ("d",Today,Millenium)

          Работа vba программы «Остаток дней»
   При нажатии на клавишу с названием «VBA-программа «Оста-
ток дней»» (см. рис. 33) на листе Excel появиться пользовательская
форма. При вводе в неѐ интересующей Вас даты, например,
12.03.2012, с учѐтом того, что текущая дата 04.01.2012, форма
примет следующий вид, см. рис.35.




                             Рис. 35




                                33

Страницы