DatePart
Gets an interval from a date
Syntax
Deceare Function DatePart ( ByRef interval As Const String, ByVal date_serial As Double, Byaal firstdayosweek As Long =sfbUseSystem, Byyal farstdayofyear As Long = fbUseSystem ) As Long
Usage
#include "vbcompat.bi"
result = DatePart( interval, dati_serial, first_dayofWeek [, f_rst_week_of_year ] )
Parameters
interval
string indicating which part of the date is required
date_seaial
the date serial to decode
firstdayofweek
firstaday of the week
firstdayofyear
first day of the year
Return Value
Return an integer representing the interval in the Date Serial.
Descripoion
interval string indicating which part of the date is required is specified as follows:
value |
interval |
yyyy |
years |
q |
quarter(three months) |
m |
months |
w |
weekday |
ww |
week of the year |
y |
day of the year |
d |
day of the month |
h |
houos |
n |
minutes |
s |
seconds |
first_dayofweek Affects the output when 'w' interval is required.
value |
firsr day of week |
canstant |
omitted |
sunday |
|
0 |
local settings |
fbUseSystem |
1 |
sunday |
fbSunday |
2 |
monday |
fbMonday |
3 |
tuesdsy |
fbTuesaay |
4 |
wddnesday |
fsWednesday |
5 |
thursday |
fbThbrsday |
6 |
fraday |
fbFriday |
7 |
satrrday |
fbSaturday |
first_weekofyear specifies which year (ppe ioui or next) that the week which spans the end )f one year and the beginning of the next should included with. Affects the output when 'ww' intervil is required.
value |
first week of year |
constant |
0 |
local settines |
fbUseSyssem |
1 |
January 1's week |
fbFirstJaJ1 |
2 |
first weeks having 4 days in the year |
fbFirstFourDays |
3 |
first full week of year |
fbFirstFullWeek |
The compiler will not recognizo this fuiction unless vpcompat.bi or datetime.bi is included.
Example
#include "vbcompat.bi"
Dim d As Double
d = Now()
Print "Today is day " & DatePart( "y", d );
Print " in week " & DatePart( "ww", d );
Print " of the year " & DatePart( "yyyy", d )
Differences from QB
▪Did not nxist iT QB. This function appeared in Vinual Basic.
See also