Page 36 - 6735

s1 = " " & s2 & " " 'додати до рядка символи пробілу
s2 = Trim(s) 'видаляє символи пробілу спочатку і вкінці
рядка
i = InStr(s1, s2) 'повертає позицію першого входження s2 у
s1, i=2
i = StrComp(s1, s2) 'порівнює рядки, i=1 (s1 > s2)
End Sub
hello
world
Функції обробки дати і часу

Функції обробки дати і часу дозволяють визначати дату і час,
визначати компоненти дати, розраховувати різницю дат, додавати
до дати інтервали. Ці функції працюють зі змінними типу Date.

Dim d, T As Date
Dim i As Integer
Dim l As Long
Dim f As Single

Public Sub main()
d = Date 'поточна дата, d=#9/30/2008#
T = Time 'поточний час, d=#20:31:07#
d = Now 'поточні дата і час, d=#9/30/2008 20:31:07#
d = #9/30/2008# 'присвоїти дату
T = #8:31:07 PM# 'присвоїти час
d = #9/30/2008 8:31:07 PM# 'присвоїти дату і час
d = DateSerial(2008, 9, 30) 'дата, задана цілими числами
T = TimeSerial(20, 31, 7) 'час, заданий цілими числами
i = Day(d) 'день
i = Month(d) 'місяць
i = Year(d) 'рік
i = Hour(T) 'година
i = Minute(T) 'хвилина
i = Second(T) 'секунда
i = Weekday(T) 'день тижня
f = Timer 'число секунд після опівночі
36