Procedury Data/Czas — Programowanie Delphi

Peopleimages/E+/Getty Images

Porównuje dwie wartości TDateTime (zwraca „mniej”, „równe” lub „większe”). Ignoruje część Czas, jeśli obie wartości „spadają” tego samego dnia.

Funkcja CompareDateTime

Porównuje dwie wartości TDateTime (zwraca „mniej”, „równe” lub „większe”).

Deklaracja:
typ TVwartośćRelacja = -1..1
funkcjonować PorównajDataGodzina( stały ADate, BDate: TDateTime) : TValueRelationship

Opis:
Porównuje dwie wartości TDateTime (zwraca „mniej”, „równe” lub „większe”).

TValueRelationship reprezentuje relację między dwiema wartościami. Każda z trzech wartości TValueRelationship ma „polubioną” stałą symboliczną:
-1 [LessThanValue] Pierwsza wartość jest mniejsza niż druga wartość.
0 [EqualsValue] Dwie wartości są równe.
1 [GreaterThanValue] Pierwsza wartość jest większa niż druga wartość.

Wyniki porównania data to:

LessThanValue, jeśli ADate jest wcześniejszy niż BDate.
EqualsValue, jeśli części daty i godziny zarówno ADate, jak i BDate są takie same
GreaterThanValue, jeśli ADate jest późniejszy niż BDate.

Przykład:

|_+_|

Funkcja PorównajCzas

Porównuje dwie wartości TDateTime (zwraca „mniej”, „równe” lub „większe”). Ignoruje część Date, jeśli obie wartości występują w tym samym czasie.

Deklaracja:
typ TVwartośćRelacja = -1..1
funkcjonować Data porównania( stały ADate, BDate: TDateTime) : TValueRelationship

Opis:
Porównuje dwie wartości TDateTime (zwraca „mniej”, „równe” lub „większe”). Ignoruje część Czas, jeśli obie wartości występują w tym samym czasie.

TValueRelationship reprezentuje relację między dwiema wartościami. Każda z trzech wartości TValueRelationship ma „polubioną” stałą symboliczną:
-1 [LessThanValue] Pierwsza wartość jest mniejsza niż druga wartość.
0 [EqualsValue] Dwie wartości są równe.
1 [GreaterThanValue] Pierwsza wartość jest większa niż druga wartość.

Wyniki porównania data to:

LessThanValue, jeśli ADate wystąpi wcześniej w dniu określonym przez BDate.
EqualsValue, jeśli części czasu ADate i BDate są takie same, ignorując część Date.
GreaterThanValue, jeśli ADate występuje później w dniu określonym przez BDate.

Przykład:

|_+_|

Funkcja daty

Zwraca bieżącą datę systemową.

Deklaracja:
rodzaj TDataCzas = rodzaj Podwójnie;

funkcjonować data: TDDataCzas;

Opis:
Zwraca bieżącą datę systemową.

Integralną częścią wartości TDateTime jest liczba dni, które upłynęły od 30.12.1899. Część ułamkowa wartości TDateTime to ułamek 24-godzinnego dnia, który upłynął.

Aby znaleźć ułamkową liczbę dni między dwiema datami, po prostu odejmij te dwie wartości. Podobnie, aby zwiększyć wartość daty i godziny o określoną ułamkową liczbę dni, po prostu dodaj liczbę ułamkową do wartości daty i godziny.

Przykład: ShowMessage('Dzisiaj jest' + DateToStr(Data));

Funkcja DateTimeToStr

Konwertuje wartość TDateTime na ciąg (data i godzina).

Deklaracja:
rodzaj TDataCzas = rodzaj Podwójnie;

funkcjonować DayOfWeek(Data: TDateTime): liczba całkowita;

Opis:
Zwraca dzień tygodnia dla podanej daty.

DayOfWeek zwraca liczbę całkowitą z przedziału od 1 do 7, gdzie niedziela jest pierwszym dniem tygodnia, a sobota jest siódmym.
DayOfTheWeek nie jest zgodny ze standardem ISO 8601.

Przykład:

|_+_|

Dni Między funkcją

Podaje liczbę pełnych dni między dwiema określonymi datami.

Deklaracja:
funkcjonować DniMiędzy(const Anow, AThen: TDateTime): Liczba całkowita;

Opis:
Podaje liczbę pełnych dni między dwiema określonymi datami.

Funkcja liczy tylko całe dni. Oznacza to, że zwróci 0 jako wynik różnicy między 05/01/2003 23:59:59 a 05/01/2003 23:59:58 - gdzie rzeczywista różnica wynosi jeden *cały* dzień minus 1 sekunda .

Przykład:

|_+_|

Funkcja DataFunkcji

Zwraca tylko część Date wartości TDateTime, ustawiając część Time na 0.

Deklaracja:
funkcjonować DateOf(Data: TDateTime) : TDateTime

Opis:
Zwraca tylko część Date wartości TDateTime, ustawiając część Time na 0.

DateOf ustawia część czasu na 0, co oznacza północ.

Przykład:

|_+_|

Funkcja DecodeDate

Oddziela wartości Year, Month i Day od wartości TDateTime.

Deklaracja:
procedura DecodeDate(Data: TDateTime; był Rok, miesiąc, dzień: słowo);;

Opis:
Oddziela wartości Year, Month i Day od wartości TDateTime.

Jeśli dana wartość TDateTime jest mniejsza lub równa zero, wszystkie parametry powrotu rok, miesiąc i dzień są ustawiane na zero.

Przykład:

|_+_|

Funkcja EncodeDate
Tworzy wartość TDateTime z wartości Year, Month i Day.

Deklaracja:
funkcjonować EncodeDate (rok, miesiąc, dzień: słowo): TDateTime

Opis:
Tworzy wartość TDateTime z wartości Year, Month i Day.

Rok musi zawierać się w przedziale od 1 do 9999. Prawidłowe wartości miesiąca to od 1 do 12. Wartości prawidłowych dni to od 1 do 28, 29, 30 lub 31, w zależności od wartości miesiąca.
Jeśli funkcja nie powiedzie się, EncodeDate zgłasza wyjątek EConvertError.

Przykład:

|_+_|

Funkcja FormatDateTime
Formatuje wartość TDateTime na ciąg.

Deklaracja:
funkcjonować FormatDataGodzina( stały Fmt: ciąg; Wartość: TDateTime): strunowy ;

Opis:
Formatuje wartość TDateTime na ciąg.

FormatDateTime używa formatu określonego przez parametr Fmt. Specyfikatory obsługiwanego formatu można znaleźć w plikach pomocy Delphi.

Przykład:

|_+_|

Funkcja IncDay

Dodaje lub odejmuje określoną liczbę dni od wartości daty.

Deklaracja:
funkcjonować IncDay(ADate: TDateTime; Dni: Liczba całkowita = 1) : TDateTime;

Opis:
Dodaje lub odejmuje określoną liczbę dni od wartości daty.

Jeśli parametr Dni jest ujemny, zwracana data to

Przykład:

|_+_|

Teraz funkcja

Zwraca bieżącą datę i godzinę systemową.

Deklaracja:
rodzaj TDataCzas = rodzaj Podwójnie;

funkcjonować Teraz: TDataCzas;

Opis:
Zwraca bieżącą datę i godzinę systemową.

Integralną częścią wartości TDateTime jest liczba dni, które upłynęły od 30.12.1899. Część ułamkowa wartości TDateTime to ułamek 24-godzinnego dnia, który upłynął.

Aby znaleźć ułamkową liczbę dni między dwiema datami, po prostu odejmij te dwie wartości. Podobnie, aby zwiększyć wartość daty i godziny o określoną ułamkową liczbę dni, po prostu dodaj liczbę ułamkową do wartości daty i godziny.

Przykład: ShowMessage('Teraz jest ' + DateTimeToStr(Now));

Lata Między funkcją

Podaje liczbę pełnych lat między dwiema określonymi datami.

Deklaracja:
funkcjonować Lata Między( stały SomeDate, AnotherDate: TDateTime): Liczba całkowita;

Opis:
Podaje liczbę pełnych lat między dwiema określonymi datami.

YearsBetween zwraca przybliżenie oparte na założeniu 365,25 dni w roku.

Przykład:

|_+_|