DateAdd
 
Смещение даты с заданным интервалом

Синтаксис

Declare Function DateAdd ( ByRef interval As Const String, ByVal number As Double, ByVal date_serial As Double ) As Double

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

#include "vbcompat.bi"
result = DateAdd( interval, number, date_serial )

Параметры

interval
Строка, указывающая, какой период времени соответствует одной единице number
number
Количество интервалов для добавления базовой даты. Число будет округлено до ближайшего целого числа.
date_serial
Базовая дата

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

Возвращает Date Serial(серийную дату) , соответствующую полученной date_serial плюс number(кол-во)  intervals(интервалов).

Описание

Интервал определяется следующим образом:

значениеинтервал
yyyy годы
qквартал (три месяца)
m месяцы
wwнедели
d,w,y дни
hчасы
n минуты
sсекунды


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

Пример

#include "vbcompat.bi"

Const fmt = "ddddd ttttt"
Dim d As Double
d = Now()

Print "1 hour from now is ";
Print Format( DateAdd( "h", 1, d ), fmt )

Print "1 day from now is ";
Print Format( DateAdd( "d", 1, d ), fmt )

Print "1 week from now is ";
Print Format( DateAdd( "ww", 1, d ), fmt )

Print "1 month from now is ";
Print Format( DateAdd( "m", 1, d ), fmt )


Отличия от QB

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

См. также