DateAddfunction

Offset a date with a specified interval

Date and Time Functionsfunctiondocumented

Syntax

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

Parameters

Name		Description
`interval`		string indicating which period of time corresponds to one unit of
`number`
`number`		the number of intervals to add to the base date. The number will be rounded to the nearest integer.
`date_serial`		the base date

Return value

Returns a Date Serial corresponding to the received date_serial plus the number of intervals.

Description

Interval is specified as follows:

value	interval
yyyy	years
q	quarter(three months)
m	months
ww	weeks
d,w,y	days
h	hours
n	minutes
s	seconds

The compiler will not recognize this function unless vbcompat.bi or datetime.bi is included.

Remarks

Usage



#include "vbcompat.bi"

result = DateAdd( interval, number, date_serial )

Differences from QB

Did not exist in QB. This function appeared in Visual Basic.

Example

#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 )

Reference

Documented in KeyPgDateAdd.html