DateDiff

From NSB App Studio
Jump to: navigation, search

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

Description

DateDiff returns the number of intervals between two dates. The required parameter, interval, is a string expression: see table below. The required parameters, date1 and date2, can be any expressions that represent dates. The optional parameter firstdayofweek is Sunday, if not specified. The optional firstweekofyear is the week containing January 1, if not specified.

Interval Values

Value Description
yyyy Year
q Quarter
m Month
y Day of year
d Day
w Weekday
ww Week of year
h Hour
n Minute
s Second

firstdayofweek constants

Constant Value Description
vbUseSystem 0 NLS API setting
vbSunday 1 Sunday
vbMonday 2 Monday
vbTuesday 3 Tuesday
vbWednesday 4 Wednesday
vbThursday 5 Thursday
vbFriday 6 Friday
vbSaturday 7 Saturday

firstweekofyear constants

Constant Value Description
vbUseSystem 0 NLS API setting
vbFirstJan1 1 Week with January 1
vbFirstFourDays 2 First week of year with at least 4 days
vbFirstFulWeek 3 First full week of year

Example (Basic)

Rem DateDiff Example
'DateDiff calc difference between 2 dates
Dim Born
Born = InputBox("Enter your birthdate")
Born = CDate(Born)
Print "Since " & Born & " there have been"
Print DateDiff("d", Born, Now) & " days"
Print "or"
Print DateDiff("n", Born, Now) & " minutes"

Example (JavaScript)

// DateDiff Example
/* DateDiff calc difference between 2 dates */

var Born;
Born = prompt('Enter your birthdate','');
var Today = new Date();
Born = new Date(Born);
nDays = (Today - Born) / (24*60*60*1000);
nMinDiff = Math.floor(nDays*24*60);
nDaysDiff = Math.floor(nDays);
NSB.Print('Since ' + Born + ' there have been');
NSB.Print(nDaysDiff + ' days');
NSB.Print('or');
NSB.Print(nMinDiff + ' minutes');

Output

Since 12/27/1970 there have been
10096 days
or
14539612 minutes
(''sample date output is system dependant'')

Related Items

DateAdd, DatePart