Lemur zaprasza
Funkcja DateDiff Funkcja DateDiff zwraca wartość typu Variant(Long) określającą liczbę wybranych przedziałów czasowych pomiędzy dwoma podanymi datami. Składnia funkcji DateDiff: DateDiff(TypOkresu, Data1, Data2 [,PierwszyDzieńTygodnia [, PierwszyTydzieńRoku]] Argumenty funkcji DateDiff: TypOkresu - (wymagane) , Data1, Data2 - (wymagane) wyrażenia typu Variant(Date), daty wykorzystywane do obliczeń, PierwszyDzieńTygodnia - (opcjonalnie) , jeżeli nie zostanie określona przyjmowana jest Niedziela, PierwszyTydzieńRoku - (opcjonalnie) . 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 DateDiff pozwala określić liczbę jednostek wybranego TypuOkresu występującą pomiędzy dwoma podanymi datami. Np. używając funkcji DateDiff można obliczyć liczbę dni pomiędzy dwoma datami lub liczbę tygodni pozostałych do końca roku. Aby policzyć liczbę dni pomiędzy dwoma datami: data1 i data2, należy użyć wartości Dzień roku ("y") lub dzień ("d"), dla określenia TypuOkresu. Jeżeli TypOkresu jest ustawiony na Dzień tygodnia ("w"), funkcja DateDiff zwróci liczbę tygodni pomiędzy podanymi dwoma datami. Jeżeli data1 wypadnie w poniedziałek, funkcja DateDiff policzy liczbę poniedziałków do daty2. Data2 zostanie doliczona, a data1 nie. Jeżeli TypOkresu jest ustawiony na Tydzień ("ww") to funkcja DateDiff zwróci liczbę kalendarzowych tygodni pomiędzy dwoma datami. Zostanie policzona liczba niedziel pomiędzy datą1 i datą2. Data2 zostanie doliczona, jeżeli wypadnie w niedzielę, natomiast data1 nie zostanie doliczona, nawet jeżeli wypadnie w niedzielę. Jeżeli data1 odnosi się do czasu późniejszego niż data2 to funkcja DateDiff zwróci wartość ujemną. Wartość argumentu PierwszyDzieńTygodnia jest uwzględniana przy obliczeniach, jeżeli TypOkresu ma wartość "w" lub "ww". Jeżeli data1 lub data2 jest literałem, to podany rok staje się stałą częścią dat. Jednak, jeżeli data1 i data2 są zawarte pomiędzy dwoma znakami cudzysłowiu (" ") i zostanie pominięty rok, to bieżący rok jest podstawiany do daty za każdym razem, gdy wyrażenie data1 lub data2 jest obliczane. Pozwala to na tworzenie aplikacji, które mogą być wykorzystywane w różnych latach. Jeżeli porównywany jest dzień 31 grudnia z 1 stycznia kolejnych lat, funckja DateDiff z TypemOkresu ustawionym na Rok ("yyyy") zwróci wartość 1 chociaż różnica wynosi zaledwie 1 dzień. Przykład użycia funkcji DateDiff: Dim datData As Date 'deklaracja zmiennej typu Date Dim strMsg As String Dim intMsg As Integer datData=InputBox("Wprowadź datę") 'okno wprowadzania danych strMsg="Liczba dni od dziś do podanej daty" & DateDiff("d", Now, datData) 'oblicz różnicę dni między podaną datą i dziś intMsg=MsgBox(strMsg) 'wyświetl okno z wynikiem (, , funkcje , i zostały opisane w innych częPciach kursu.) Zmiennej dtaData podstawiana jest pobrana przez funkcję InputBox wartość. Następnie obliczana jest liczba dni pomiędzy pobraną datą i datą dzisiejszą (pobraną przez funkcję ). Obliczona liczba dni jest podstawiana do zmiennej tekstowej strMsg i funkcją wyświetlana na ekranie. Poprzednia | Wyżej | Strona główna | Spis treści | Index haseł | Opis VB |