Delphi-programmering: dato / tid rutiner

Sammenligner to TDateTime-værdier (returnerer "mindre", "lige" eller "større"). Ignorerer tidsdelen, hvis begge værdier "falder" på samme dag.

Sammenligner to TDateTime-værdier (returnerer "mindre", "lige" eller "større").

Erklæring:
type TValueRelationship = -1..1
fungere CompareDateTime (const ADate, BDate: TDateTime): TValueRelationship

Beskrivelse:
Sammenligner to TDateTime-værdier (returnerer "mindre", "lige" eller "større").

TValueRelationship repræsenterer forholdet mellem to værdier. Hver af tre TValueRelationship-værdier har en "ønsket" symbolsk konstant:
-1 [LessThanValue] Den første værdi er mindre end den anden værdi.
0 [EqualsValue] De to værdier er ens.
1 [GreaterThanValue] Den første værdi er større end den anden værdi.
Sammenlign dato resultater i:

LessThanValue, hvis ADate er tidligere end BDate.
Lige Værdi hvis dato og klokkeslæt dele af både ADate og BDate er de samme
GreaterThanValue, hvis ADate er senere end BDate.

Eksempel:

var ThisMoment, FutureMoment: TDateTime; ThisMoment: = Nu; FutureMoment: = IncDay (ThisMoment, 6); // tilføjer 6 dage. // CompareDateTime (ThisMoment, FutureMoment) returnerer LessThanValue (-1) // CompareDateTime (FutureMoment, ThisMoment) returnerer GreaterThanValue (1)





instagram viewer

Sammenligner to TDateTime-værdier (returnerer "mindre", "lige" eller "større"). Ignorerer datodelen, hvis begge værdier forekommer på samme tid.

Erklæring:
type TValueRelationship = -1..1
fungere CompareDate (const ADate, BDate: TDateTime): TValueRelationship

Beskrivelse:
Sammenligner to TDateTime-værdier (returnerer "mindre", "lige" eller "større"). Ignorerer tidsdelen, hvis begge værdier forekommer på samme tid.

TValueRelationship repræsenterer forholdet mellem to værdier. Hver af tre TValueRelationship-værdier har en "ønsket" symbolsk konstant:
-1 [LessThanValue] Den første værdi er mindre end den anden værdi.
0 [EqualsValue] De to værdier er ens.
1 [GreaterThanValue] Den første værdi er større end den anden værdi.
Sammenlign dato resultater i:

LessThanValue, hvis ADate forekommer tidligere på dagen specificeret af BDate.
Lige Værdi, hvis tidsdele af både ADate og BDate er ens, ignorerer dato-delen.
GreaterThanValue, hvis ADate forekommer senere på dagen specificeret af BDate.

Eksempel:

var ThisMoment, AnotherMoment: TDateTime; ThisMoment: = Nu; AnotherMoment: = IncHour (ThisMoment, 6); // tilføjer 6 timer. // CompareDate (ThisMoment, AnotherMoment) returnerer LessThanValue (-1) // CompareDate (AnotherMoment, ThisMoment) returnerer GreaterThanValue (1

Returnerer den aktuelle systemdato.

Erklæring:
type TDateTime = type Dobbelt;

fungere dato: TDateTime;

Beskrivelse:
Returnerer den aktuelle systemdato.

Den integrerede del af en TDateTime-værdi er antallet af dage, der er gået siden 12/30/1899. Den brøkdel af en TDateTime-værdi er brøkdel af en 24 timers dag, der er gået.

For at finde det fraktionerede antal dage mellem to datoer skal du blot trække de to værdier fra. For at øge en dato- og tidsværdi på et bestemt antal dage skal du blot tilføje brøkstallet til dato- og tidsværdien.

Eksempel: ShowMessage ('Today is' + DateToStr (Date));

Konverterer en TDateTime-værdi til en streng (dato og tid).

Erklæring:
type TDateTime = type Dobbelt;

fungere DayOfWeek (Dato: TDateTime): heltal;

Beskrivelse:
Returnerer ugedagen for en given dato.

DayOfWeek returnerer et heltal mellem 1 og 7, hvor søndag er den første ugedag og lørdag er den syvende.
DayOfTheWeek er ikke i overensstemmelse med ISO 8601 standarden.

Eksempel:

const Days: matrix [1..7] af streng = ('Søndag Mandag Tirsdag Onsdag Torsdag Fredag ​​Lørdag') ShowMessage ('Today is' + dage [DayOfWeek (dato)]); //I dag er det mandag

Angiver antallet af hele dage mellem to specificerede datoer.

Erklæring:
fungere DaysBetween (const ANow, AThen: TDateTime): Heltal;

Beskrivelse:
Angiver antallet af hele dage mellem to specificerede datoer.

Funktion tæller kun hele dage. Hvad dette betyder er, at det vil returnere 0 som resultat for forskellen mellem 05/01/2003 23:59:59 og 05/01/2003 23:59:58 - hvor den faktiske forskel er en * hel * dag minus 1 sekund .

Eksempel:

var dtNow, dtBirth: TDateTime; DaysFromBirth: heltal; dtNow: = Nu; dtBirth: = EncodeDate (1973, 1, 29); DaysFromBirth: = DaysBetween (dtNow, dtBirth); ShowMessage ('Zarko Gajic' eksisterer '' + IntToStr (DaysFromBirth) + 'hele dage!');

Returnerer kun datodelen af ​​TDateTime-værdien ved at indstille tidsdel til 0.

Erklæring:
fungere DateOf (Date: TDateTime): TDateTime

Beskrivelse:
Returnerer kun datodelen af ​​TDateTime-værdien ved at indstille tidsdel til 0.

DateOf indstiller tidsdelen til 0, hvilket betyder midnat.

Eksempel:

var ThisMoment, ThisDay: TDateTime; ThisMoment: = Nu; // -> 06/27/2003 10:29:16:138. ThisDay: = DateOf (ThisMoment); // Denne dag: = 06/27/2003 00: 00: 00: 000

Adskiller værdier for år, måned og dag fra en TDateTime-værdi.

Erklæring:
procedure DecodeDate (Dato: TDateTime; Var År, måned, dag: Word) ;;

Beskrivelse:
Adskiller værdier for år, måned og dag fra en TDateTime-værdi.

Hvis den givne TDateTime-værdi er mindre end eller lig med nul, indstilles år, måned og dagreturparametre til nul.

Eksempel:

var Y, M, D: Word; DekodeDato (Dato, Y, M, D); hvis Y = 2000 så. ShowMessage ('Du er i et "forkert" århundrede!);

EncodeDate-funktion
Opretter en TDateTime-værdi ud fra år, måned og dag.

Erklæring:
fungere EncodeDate (År, måned, dag: Word): TDateTime

Beskrivelse:
Opretter en TDateTime-værdi ud fra år, måned og dag.

Året skal være mellem 1 og 9999. Gyldige månedsværdier er 1 til 12. Gyldige dagsværdier er 1 til 28, 29, 30 eller 31, afhængigt af månedsværdien.
Hvis funktionen mislykkes, rejser EncodeDate en undtagelse fra EConvertError.

Eksempel:

var Y, M, D: Word; dt: TDateTime; y: = 2001 M: = 2; D: = 18; dt: = EncodeDate (Y, M, D); ShowMessage ('Borna vil være. et år gammel på '+ DateToStr (dt))

FormatDateTime-funktion
Formaterer en TDateTime-værdi til en streng.

Erklæring:
fungere FormatDateTime (const Fmt: streng; Værdi: TDateTime): snor;

Beskrivelse:
Formaterer en TDateTime-værdi til en streng.

FormatDateTime bruger det format, der er specificeret af Fmt-parameteren. Gå til Delphi Help-filer for de understøttede formatspecifikationer.

Eksempel:

var s: streng; d: TDateTime;... d: = Nu; // i dag + aktuel tid. s: = FormatDateTime (dddd ", d); // s: = onsdag. s: = FormatDateTime ('"I dag er" dddd "minut" nn', d) // s: = I dag er onsdagens minut 24

Tilføjer eller trækker et givet antal dage fra en datoværdi.

Erklæring:
fungere IncDay (ADate: TDateTime; Dage: Heltal = 1): TDateTime;

Beskrivelse:
Tilføjer eller trækker et givet antal dage fra en datoværdi.

Hvis parameteren Days er negativ, er den returnerede dato

Eksempel:

var Dato: TDateTime; EncodeDate (Dato, 2003, 1, 29) // 29. januar 2003. IncDay (dato, -1) // 28. januar 2003

Returnerer den aktuelle systemdato og -tid.

Erklæring:
type TDateTime = type Dobbelt;

fungere Nu: TDateTime;

Beskrivelse:
Returnerer den aktuelle systemdato og -tid.

Den integrerede del af en TDateTime-værdi er antallet af dage, der er gået siden 12/30/1899. Den brøkdel af en TDateTime-værdi er brøkdel af en 24 timers dag, der er gået.

For at finde det fraktionerede antal dage mellem to datoer skal du blot trække de to værdier fra. For at øge en dato- og tidsværdi på et bestemt antal dage skal du blot tilføje brøkstallet til dato- og tidsværdien.

Eksempel: ShowMessage ('Nu er' + DateTimeToStr (Nu));

Angiver antallet af hele år mellem to specificerede datoer.

Erklæring:
fungere YearsBetween (const SomeDate, AnotherDate: TDateTime): Heltal;

Beskrivelse:
Angiver antallet af hele år mellem to specificerede datoer.

YearsBetween returnerer en tilnærmelse baseret på en antagelse på 365,25 dage om året.

Eksempel:

var dtSome, dtAnother: TDateTime; DaysFromBirth: heltal; dtSome: = EncodeDate (2003, 1, 1); dtAnother: = EncodeDate (2003, 12, 31); YearsBetween (dtSome, dtAnother) == 1 // ikke-springår. dtSome: = EncodeDate (2000, 1, 1); dtAnother: = EncodeDate (2000, 12, 31); YearsBetween (dtSome, dtAnother) == 0 // springår