Page 37 - 6735
P. 37

l = DateDiff("h", #8/12/1978#, Now) 'кількість інтервалів
           між датами (годин)
           i = DatePart("m", Date) 'компонент дати (місяць)
           d = DateAdd("m", 10, Date) 'додає до дати інтервал (10
           місяців)
           T = TimeValue("3:31:30 PM") 'перетворює рядок у формат
           часу
           End Sub

                       Функції для створення діалогових вікон

              В  прикладі  показані  функції  для  створення  діалогових  вікон
           (рис. 1.4). Функція InputBox створює діалогове вікно для введення
           даних. Функція MsgBox створює діалогове вікно з повідомленням і
           кнопками, а також повертає код натиснутої кнопки.

           Dim x As Double
           Dim i As Byte

           Public Sub main()
           x = InputBox("введіть x", "x", 0) 'виводить діалогове
           вікно з полем введення і повертає введене значення
           i = MsgBox("x=" & x, vbYesNoCancel, "Аргумент") 'виводить
           діалогове вікно з повідомленням і кнопками Yes/No/Cancel
           MsgBox (i) 'код натиснутої кнопки
           End Sub














                                          37
   32   33   34   35   36   37   38   39   40   41   42