Funkcja DatePart

Funkcja DatePart zwraca wartość typu Variant(Integer) określającą liczbę wybranych przedziałów czasowych podanej daty.

Składnia funkcji DatePart:

DatePart(TypOkresu, Data [,PierwszyDzieńTygodnia [, PierwszyTydzieńRoku]]

Argumenty funkcji DatePart:
TypOkresu - (wymagane) wyrażenie tekstowe określające rodzaj dodawanego przedziału czasu,
Data - (wymagane) wyrażenia typu Variant(Date), data wykorzystywana do obliczeń,
PierwszyDzieńTygodnia - (opcjonalnie) Stała określająca pierwszy dzień tygodnia, jeżeli nie zostanie określona przyjmowana jest Niedziela,
PierwszyTydzieńRoku - (opcjonalnie) Stała określająca pierwszy tydzień roku. Jeżeli nie zostanie określona przyjmowany jest tydzień w którym występuje 1 stycznia.

Dostępne wartości określające TypOkresu:

Wartość	Opis
yyyy	Rok
q	Kwartał
m	Miesiąc
y	Dzień roku
d	Dzień
w	Dzień tygodnia
ww	Tydzień
h	Godzina
n	Minuta
s	Sekunda

Dostępne wartości określające PierwszyDzieńTygodnia:

Stała	Wartość	Opis
vbUseSystem	0	Użyj ustawień NLS API
vbSunday	1	Niedziela (domyślna)
vbMonday	2	Poniedziałek
vbTuesday	3	Wtorek
vbWednesday	4	Środa
vbThursday	5	Czwartek
vbFriday	6	Piątek
vbSaturday	7	Sobota

Dostępne wartości określające PierwszyTydzieńRoku:

Stała	Wartość	Opis
vbUseSystem	0	Użyj ustawień NLS API
vbFirstJan	1	Tydzień zawierający 1 stycznia (domyślnie)
vbFirstFourDays	2	Pierwszy tydzień, w którym są co najmniej 4 dni nowego roku
vbFirstFullWeek	2	Pierwszy pełny tydzień nowego roku.

Funkcja DatePart pozwala "podzielić" datę na części i obliczyć liczbę jednostek podanego TypuOkresu zawartych we wprowadzonej dacie. Np. można użyć funkcję DatePart aby obliczyć dzień tygodnia, dzień roku lub bieżącą godzinę.

Wartość argumentu PierwszyDzieńTygodnia będzie uwzględniany w obliczeniach, jeżeli wartość TypuOkresu jest ustawiona na "w" lub "ww".
Jeżeli data jest literałem, to podany rok staje się stałą częścią daty. Jeżeli jednak, data jest zawarta pomiędzy dwoma znakami cudzysłowiu (" ") i zostanie pominięty rok, to bieżący rok jest wykorzystywany podczas obliczeń. Pozwala to na tworzenie aplikacji, które mogą być wykorzystywane w różnych latach.

Przykład użycia funkcji DatePart:

Dim intMsg As Integer
intMsg=MsgBox(DatePart("q",Now))  'wyświetlenie bieżącego kwartału
intMsg=MsgBox(DatePart("y",Now))  'wyświetlenie numeru dnia w roku
intMsg=MsgBox(DatePart("ww",Now))  'wyświetlenie numeru tygodnia w roku

(Zmienne, typy zmiennych, funkcje Now() i MsgBox() zostały opisane w innych częściach kursu.)

Przez użycie funkcji MsgBox() wyświetlane są liczby określające bieżący kwartał, numer dnia w roku i numer tygodnia w roku na podstawie bieżącej daty pobranej przez funkcję Now().

na górę strony...