DatePart
Получает интервал от даты
Declare Function DatePart ( ByRef interval As Const String, ByVal date_serial As Double, ByVal firstdayofweek As Integer = fbUseSystem, ByVal firstdayofyear As Integer = fbUseSystem ) As Integer
#include "vbcompat.bi"
result = DatePart( interval, date_serial, first_dayofWeek [, first_week_of_year ] )
interval
Строка interval(интервала), указывающая, какая часть даты требуется, определяется следующим образом:
first_dayofweek влияет на вывод, когда требуется 'w'
интервал.
first_weekofyear определяет, как неделя охватывает конец
одного года и начала следующего. Влияет на вывод при требуемом интервале 'ww'.
Компилятор не распознает эту функцию если не включен vbcompat.bi
или datetime.bi.
Синтаксис
Declare Function DatePart ( ByRef interval As Const String, ByVal date_serial As Double, ByVal firstdayofweek As Integer = fbUseSystem, ByVal firstdayofyear As Integer = fbUseSystem ) As Integer
Использование
#include "vbcompat.bi"
result = DatePart( interval, date_serial, first_dayofWeek [, first_week_of_year ] )
Параметры
interval
Строка, указывающая какая часть даты требуется
date_serialСерийная дата для декодирования
firstdayofweekпервый день недели
firstdayofyearпервый день в году
Возвращаемое значение
Описание
Строка interval(интервала), указывающая, какая часть даты требуется, определяется следующим образом:
| значение | интервал |
| yyyy | годы |
| q | квартал(три месяца) |
| m | месяцы |
| w | день недели |
| ww | неделя года |
| y | день года |
| d | день месяца |
| h | часы |
| n | минуты |
| s | секунды |
| значение | первый день недели | константа |
| опущен | воскресенье | |
| 0 | локальные настройки | fbUseSystem |
| 1 | воскресенье | fbSunday |
| 2 | понедельник | fbMonday |
| 3 | вторник | fbTuesday |
| 4 | среда | fbWednesday |
| 5 | четверг | fbThursday |
| 6 | пятница | fbFriday |
| 7 | суббота | fbSaturday |
| значение | первая неделя года | константа |
| 0 | локальные настройки | fbUseSystem |
| 1 | неделя, на которую приходится 1 января (по умолчанию) | fbFirstJan1 |
| 2 | неделя, на которую приходится, по крайней мере, четыре дня нового года (соответствует стандарту ISO 8601) | fbFirstFourDays |
| 3 | первая полная неделя в новом году | fbFirstFullWeek |
Пример
#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 )
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 )
Отличия от QB
- В QB не существует. Эта функция появилась в Visual Basic.
См. также