DateAdd

FreeBASIC

DateAdd
 
Offset a date with a specified interval

Syntax

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

Usage

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

Parameters

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:

valueinterval
yyyyyears
qquarter(three months)
mmonths
wwweeks
d,w,ydays
hhours
nminutes
sseconds


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

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 )


Differences from QB

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

See also