Second
 
Получает секунды из Date Serial(серийной даты)

Синтаксис

Declare Function Second ( ByVal date_serial As Double ) As Integer

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

#include "vbcompat.bi"
result = Second( date_serial )

Параметры

date_serial
серийная дата (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 "); Second(ds)


Отличия от QB

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

См. также