Hour
 
Возвращает час из Date Serial(Серийной даты)

Синтаксис

Declare Function Hour ( ByVal date_serial As Double ) As Integer

Использование

#include "vbcompat.bi"
result = Hour( dateserial )

Параметры

date_serial
серийная дата

Возвращаемое значение

Возвращает час из переменной, содержащей дату в формате Date Serial(серийной даты).

Описание

Компилятор не распознает эту функцию если не включен файл vbcompat.bi.

Пример

#include "vbcompat.bi"

Dim ds As Double = DateSerial(2005, 11, 28) + TimeSerial(7, 30, 50)

Print Format(ds, "yyyy/mm/dd hh:mm:ss "); Hour(ds)


Отличия от QB

  • В QB не существует. Эта функция появилась в PDS и VBDOS

См. также