Delphi Programiranje: datum / vrijeme rutine

Usporedi dvije vrijednosti TDateTime (vraća „manje“, „jednako“ ili „veće“). Zanemaruje dio vremena ako obje vrijednosti „padnu“ na isti dan.

Usporedi dvije vrijednosti TDateTime (vraća „manje“, „jednako“ ili „veće“).

Deklaracija:
upišite TValueRelationhip = -1..1
funkcija CompareDateTime (const ADate, BDate: TDateTime): TValueRelationhip

Opis:
Usporedi dvije vrijednosti TDateTime (vraća „manje“, „jednako“ ili „veće“).

TValueRelationhip predstavlja odnos između dvije vrijednosti. Svaka od tri vrijednosti TValueRelationship ima simboličku konstantu "sviđa":
-1 [LessThanValue] Prva vrijednost je manja od druge vrijednosti.
0 [EqualsValue] Dvije vrijednosti su jednake.
1 [GreaterThanValue] Prva vrijednost veća je od druge vrijednosti.
Usporedite datume u:

LessThanValue ako je ADate stariji od BDate.
EqualsValue ako su dijelovi datuma i vremena ADate i BDate isti
GreaterThanValue ako je ADate kasniji od BDate.

Primjer:

var ThisMoment, FutureMoment: TDateTime; ThisMoment: = Sada; FutureMoment: = IncDay (ThisMoment, 6); // dodaje 6 dana. // CompareDateTime (ThisMoment, FutureMoment) vraća LessThanValue (-1) // CompareDateTime (FutureMoment, ThisMoment) vraća GreaterThanValue (1)





instagram viewer

Usporedi dvije vrijednosti TDateTime (vraća „manje“, „jednako“ ili „veće“). Zanemari dio datuma ako se obje vrijednosti pojavljuju istovremeno.

Deklaracija:
upišite TValueRelationhip = -1..1
funkcija CompareDate (const ADate, BDate: TDateTime): TValueRelationhip

Opis:
Usporedi dvije vrijednosti TDateTime (vraća „manje“, „jednako“ ili „veće“). Ignorira dio vremena ako se obje vrijednosti pojavljuju istovremeno.

TValueRelationhip predstavlja odnos između dvije vrijednosti. Svaka od tri vrijednosti TValueRelationship ima simboličku konstantu "sviđa":
-1 [LessThanValue] Prva vrijednost je manja od druge vrijednosti.
0 [EqualsValue] Dvije vrijednosti su jednake.
1 [GreaterThanValue] Prva vrijednost veća je od druge vrijednosti.
Usporedite datume u:

LessThanValue ako se ADate dogodi ranije u danu koji je odredio BDate.
EqualsValue ako su vremenski dijelovi i ADate i BDate isti, zanemarujući datumski dio.
GreaterThanValue ako se ADate pojavi kasnije u danu koji je odredio BDate.

Primjer:

var ThisMoment, AnotherMoment: TDateTime; ThisMoment: = Sada; AnotherMoment: = IncHour (ThisMoment, 6); // dodaje 6 sati. // CompareDate (ThisMoment, AnotherMoment) vraća LessThanValue (-1) // CompareDate (AnotherMoment, ThisMoment) vraća GreaterThanValue (1

Vraća trenutni datum sustava.

Deklaracija:
tip TDateTime = tip Dvostruko;

funkcija datum: TDateTime;

Opis:
Vraća trenutni datum sustava.

Sastavni dio vrijednosti TDateTime je broj dana koji su prošli od 30.12.1899. Frakcijski dio vrijednosti TDateTime dio je 24 sata koji je protekao.

Da biste pronašli frakcijski broj dana između dva datuma, jednostavno oduzmite dvije vrijednosti. Isto tako, da biste povećali vrijednost datuma i vremena za određeni frakcijski broj dana, jednostavno dodajte frakcijski broj vrijednosti datuma i vremena.

Primjer: ShowMessage ('Danas je' + DateToStr (Datum));

Pretvara vrijednost TDateTime u niz (datum i vrijeme).

Deklaracija:
tip TDateTime = tip Dvostruko;

funkcija DayOfWeek (Datum: TDateTime): cijeli broj;

Opis:
Vraća dan u tjednu za određeni datum.

DayOfWeek vraća cijeli broj između 1 i 7, gdje je nedjelja prvi dan u tjednu, a subota sedma.
DayOfTheWeek nije u skladu s ISO 8601 standardom.

Primjer:

const Dani: niz [1..7] of string = ('Nedjelja ponedjeljak utorak srijeda četvrtak petak subota') ShowMessage ('Danas je' + Dani [DayOfWeek (Datum)]); //Danas je ponedjeljak

Daje broj cijelih dana između dva navedena datuma.

Deklaracija:
funkcija Dani između (const ANow, AThen: TDateTime): Integer;

Opis:
Daje broj cijelih dana između dva navedena datuma.

Funkcija broji samo čitave dane. To znači da će vratiti 0 kao rezultat razlike između 01.05.2003 23:59:59 i 01.05.2003 23:59:58 - gdje je stvarna razlika jedan * cijeli * dan minus 1 sekunda ,

Primjer:

var dtNow, dtBirth: TDateTime; DaysFromBirth: cijeli broj; dtNow: = Sada; dtBirth: = EncodeDate (1973, 1, 29); DaysFromBirth: = Dani između (dtNow, dtBirth); ShowMessage ('Žarko Gajić' postoji '' + IntToStr (DaysFromBirth) + 'cijeli dani!');

Vraća samo datum Datum vrijednosti TDateTime postavljanjem Vremenskog dijela na 0.

Deklaracija:
funkcija DateOf (Datum: TDateTime): TDateTime

Opis:
Vraća samo datum Datum vrijednosti TDateTime postavljanjem Vremenskog dijela na 0.

DateOf postavlja vremenski dio na 0, što znači ponoć.

Primjer:

var ThisMoment, ThisDay: TDateTime; ThisMoment: = Sada; // -> 06/27/2003 10:29:16:138. Ovaj dan: = DateOf (ThisMoment); // Ovaj dan: = 27.06.2003 00: 00: 00: 000

Odvaja vrijednosti za godinu, mjesec i dan od vrijednosti TDateTime.

Deklaracija:
postupak DecodeDate (Datum: TDateTime; var Godina, mjesec, dan: riječ) ;;

Opis:
Odvaja vrijednosti za godinu, mjesec i dan od vrijednosti TDateTime.

Ako je zadana vrijednost TDateTime nula ili jednaka nuli, parametri godine, mjeseca i dana vraćaju se na nulu.

Primjer:

var Y, M, D: Riječ; DecodeDate (Datum, Y, M, D); ako je Y = 2000 tada. ShowMessage ('Ti si u' krivom 'stoljeću!);

EncodeDate funkcija
Stvara vrijednost TDateTime iz godina, mjeseca i dana.

Deklaracija:
funkcija EncodeDate (godina, mjesec, dan: riječ): TDateTime

Opis:
Stvara vrijednost TDateTime iz godina, mjeseca i dana.

Godina mora biti između 1 i 9999. Valjane mjesečne vrijednosti su 1 do 12. Vrijedne dnevne vrijednosti su 1 do 28, 29, 30 ili 31, ovisno o vrijednosti mjeseca.
Ako funkcija ne uspije, EncodeDate podiže iznimku EConvertError.

Primjer:

var Y, M, D: Riječ; dt: TDateTime; y: = 2001; M: = 2; D: 18; dt: = EncodeDate (Y, M, D); ShowMessage ('Borna će biti. jednogodišnji na '+ DateToStr (dt))

FormatDateTime funkcija
Formatira vrijednost TDateTime u niz.

Deklaracija:
funkcija FormatDateTime (const Fmt: string; Vrijednost: TDateTime): niz;

Opis:
Formatira vrijednost TDateTime u niz.

FormatDateTime koristi format naveden parametrom Fmt. Pogledajte podržane specifikacije formata pogledajte Delphi datoteke pomoći.

Primjer:

var s: string; d: TDateTime;... d: = A; // danas + trenutno vrijeme. s: = FormatDateTime ( 'dddd', d); // s: = srijeda. s: = FormatDateTime ("" Danas je "dddd" minuta "nn", d) // s: = Danas je srijeda, 24. minuta

Dodaje ili oduzima određeni broj dana od vrijednosti datuma.

Deklaracija:
funkcija IncDay (ADate: TDateTime; Dani: Integer = 1): TDateTime;

Opis:
Dodaje ili oduzima određeni broj dana od vrijednosti datuma.

Ako je parametar Dani negativan, vraćeni datum je

Primjer:

var Datum: TDateTime; EncodeDate (Datum, 2003, 1, 29) // 29. siječnja 2003. IncDay (datum, -1) // 28. siječnja 2003. godine

Vraća trenutni datum i vrijeme sustava.

Deklaracija:
tip TDateTime = tip Dvostruko;

funkcija Sada: TDateTime;

Opis:
Vraća trenutni datum i vrijeme sustava.

Sastavni dio vrijednosti TDateTime je broj dana koji su prošli od 30.12.1899. Frakcijski dio vrijednosti TDateTime dio je 24 sata koji je protekao.

Da biste pronašli frakcijski broj dana između dva datuma, jednostavno oduzmite dvije vrijednosti. Isto tako, da biste povećali vrijednost datuma i vremena za određeni frakcijski broj dana, jednostavno dodajte frakcijski broj vrijednosti datuma i vremena.

Primjer: ShowMessage ('Sada je' + DateTimeToStr (Sada));

Daje broj cijelih godina između dva navedena datuma.

Deklaracija:
funkcija YearsBetween (const SomeDate, AnotherDate: TDateTime): Integer;

Opis:
Daje broj cijelih godina između dva navedena datuma.

YearsBet između vraća aproksimaciju na temelju pretpostavke od 365,25 dana godišnje.

Primjer:

var dtSome, dtDrugo: TDateTime; DaysFromBirth: cijeli broj; dtSome: = EncodeDate (2003, 1, 1); dtAgether: = EncodeDate (2003, 12, 31); YearsBet Between (dtSome, dtAgether) == 1 // neiskočna godina. dtSome: = EncodeDate (2000, 1, 1); dtAgether: = EncodeDate (2000, 12, 31); YearsBet Between (dtSome, dtAgether) == 0 // skočna godina