3.5.5. Дата и время.
Для работы с датами и временем в VB существуют несколько операторов и функций. Функция Now параметров не имеет и возвращает
Одновременно полную текущую дату и полное текущее время. Если объявлена переменная: Dim dat As Data, то, присвоив ей значение dat = Now, можно вывести его, например, в текстовое окно: Text1.Text = dat.
Функция Date также параметров не имеет и возвращает только полную текущую дату. Аналогично предыдущему, можно записать:
dat = Date и Text1.Text = dat.
Функция Time также лишена параметров и возвращает полное текущее время:
Dim tm As Date
tm = Time: Text1.Text = tm
Выделить год, номер месяца и число из функции Now можно так:
Dim god%, mes%, den%
god = Year(Now): mes = Month(Now): den = Day(Now)
Аналогично выделить часы, минуты и секунды из функции Time так:
Dim h%, m%, s%
h = Hour(Time): m = Minute(Time): s = Second(Time)
Для определения дня недели можно использовать функцию DatePart.
Эта функция имеет 4 параметра. Из них 2 первых – обязательные. Обращение к ней для определения дня недели может иметь вид:
Dim t%
t = DatePart(“w”, Now)
В t вернется целочисленное значение дня недели, где отсчет начинается с воскресенья, т.е. воскресенью соответствует значение 1.
Первый параметр функции DatePart может принимать значения в соответствии с таблицей:
Таб. 3.5.5.1.
-
Параметр
Значение
параметра
Пример использования
yyyy
год
god=DatePart(“yyyy”, Date)
q
квартал
kv= DatePart(“q”, Date)
m
месяц
mes=DatePart(“m”, Date)
y
день в году
dg=DatePart(“y”, Date)
d
день
den=DatePart(“d”, Date)
w
день недели
dn=DatePart(“w”, Date)
ww
неделя
ned=DatePart(“ww”, Date)
h
час
ch=DatePart(“h”, Date)
n
минута
min=DatePart(“n”, Date)
s
секунда
sec=DatePart(“s”, Date)
Если нужно получить все значения для сегодняшнего дня, то в качестве второго параметра можно использовать Now вместо Date. Следующий код позволяет вывести в текстовые окна все компоненты даты и времени:
Option Base 1
Private Sub Command1_Click()
ms = Array("Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", _
"Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь")
dn = Array("Воскресенье", "Понедельник", "Вторник", "Среда", _
"Четверг", "Пятница", "Суббота")
Text1 = Now
Text10 = Date
Text11 = Year(Now)
Text12.Text = ms(Month(Now))
Text13.Text = dn(DatePart("w", Now))
Text14 = Day(Now)
Text20 = Time
Text21 = Hour(Time)
Text22 = Minute(Time)
Text23 = Second(Time)
End Sub
Private Sub Command2_Click()
End
End Sub
Форма с результатом имеет вид:
