Delphi-programmering: routine voor datum / tijd

Vergelijkt twee TDateTime-waarden (retourneert "minder", "gelijk" of "groter"). Negeert het tijdgedeelte als beide waarden op dezelfde dag "vallen".

Vergelijkt twee TDateTime-waarden (retourneert "minder", "gelijk" of "groter").

Verklaring:
type TValueRelationship = -1..1
functie CompareDateTime (const ADate, BDate: TDateTime): TValueRelationship

Omschrijving:
Vergelijkt twee TDateTime-waarden (retourneert "minder", "gelijk" of "groter").

TValueRelationship vertegenwoordigt de relatie tussen twee waarden. Elk van de drie TValueRelationship-waarden heeft een symbolische constante "geliket":
-1 [LessThanValue] De eerste waarde is kleiner dan de tweede waarde.
0 [EqualsValue] De twee waarden zijn gelijk.
1 [GreaterThanValue] De eerste waarde is groter dan de tweede waarde.
CompareDate resulteert in:

LessThanValue als ADate eerder is dan BDate.
Is gelijk aan Waarde als de datum- en tijddelen van zowel ADate als BDate hetzelfde zijn
GreaterThanValue als ADate later is dan BDate.

Voorbeeld:

var ThisMoment, FutureMoment: TDateTime; ThisMoment: = Nu; FutureMoment: = IncDay (ThisMoment, 6); // voegt 6 dagen toe. // CompareDateTime (ThisMoment, FutureMoment) retourneert LessThanValue (-1) // CompareDateTime (FutureMoment, ThisMoment) retourneert GreaterThanValue (1)

Vergelijkt twee TDateTime-waarden (retourneert "minder", "gelijk" of "groter"). Negeert het datumgedeelte als beide waarden tegelijkertijd voorkomen.

Verklaring:
type TValueRelationship = -1..1
functie CompareDate (const ADate, BDate: TDateTime): TValueRelationship

Omschrijving:
Vergelijkt twee TDateTime-waarden (retourneert "minder", "gelijk" of "groter"). Negeert het tijdgedeelte als beide waarden tegelijkertijd voorkomen.

TValueRelationship vertegenwoordigt de relatie tussen twee waarden. Elk van de drie TValueRelationship-waarden heeft een symbolische constante "geliket":
-1 [LessThanValue] De eerste waarde is kleiner dan de tweede waarde.
0 [EqualsValue] De twee waarden zijn gelijk.
1 [GreaterThanValue] De eerste waarde is groter dan de tweede waarde.
CompareDate resulteert in:

LessThanValue als ADate eerder op de door BDate gespecificeerde dag plaatsvindt.
Is gelijk aan Waarde als tijddelen van zowel ADate als BDate hetzelfde zijn, waarbij het datumgedeelte wordt genegeerd.
GreaterThanValue als ADate later op de door BDate gespecificeerde dag optreedt.

Voorbeeld:

var ThisMoment, AnotherMoment: TDateTime; ThisMoment: = Nu; AnotherMoment: = IncHour (ThisMoment, 6); // voegt 6 uur toe. // CompareDate (ThisMoment, AnotherMoment) retourneert LessThanValue (-1) // CompareDate (AnotherMoment, ThisMoment) geeft als resultaat GreaterThanValue (1

Retourneert de huidige systeemdatum.

Verklaring:
type TDateTime = type Dubbele;

functie datum: TDateTime;

Omschrijving:
Retourneert de huidige systeemdatum.

Het integrale deel van een TDateTime-waarde is het aantal dagen dat is verstreken sinds 30-12-1899. Het fractionele deel van een TDateTime-waarde is een fractie van een 24-uurs dag die is verstreken.

Om het fractionele aantal dagen tussen twee datums te vinden, trekt u eenvoudig de twee waarden af. Evenzo, om een ​​datum- en tijdwaarde met een bepaald fractioneel aantal dagen te verhogen, voegt u eenvoudigweg het fractionele getal toe aan de datum- en tijdwaarde.

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

Converteert een TDateTime-waarde naar een tekenreeks (datum en tijd).

Verklaring:
type TDateTime = type Dubbele;

functie DayOfWeek (Datum: TDateTime): geheel getal;

Omschrijving:
Retourneert de dag van de week voor een bepaalde datum.

DayOfWeek retourneert een geheel getal tussen 1 en 7, waarbij zondag de eerste dag van de week is en zaterdag de zevende.
DayOfTheWeek voldoet niet aan de ISO 8601-norm.

Voorbeeld:

const Days: array [1..7] van string = ('Zondag maandag dinsdag woensdag donderdag vrijdag zaterdag') ShowMessage ('Today is' + Days [DayOfWeek (Date)]); //Vandaag is het maandag

Geeft het aantal hele dagen tussen twee opgegeven datums.

Verklaring:
functie DaysBetween (const ANow, AThen: TDateTime): Integer;

Omschrijving:
Geeft het aantal hele dagen tussen twee opgegeven datums.

Functie telt alleen hele dagen. Wat dit betekent is dat het 0 als resultaat retourneert voor het verschil tussen 01/05/2003 23:59:59 en 05/01/2003 23:59:58 - waarbij het werkelijke verschil één * hele * dag min 1 seconde is .

Voorbeeld:

var dtNow, dtBirth: TDateTime; DaysFromBirth: geheel getal; dtNow: = Nu; dtBirth: = EncodeDate (1973, 1, 29); DaysFromBirth: = DaysBetween (dtNow, dtBirth); ShowMessage ('Zarko Gajic "bestaat"' + IntToStr (DaysFromBirth) + 'hele dagen!');

Retourneert alleen het datumgedeelte van de TDateTime-waarde door het tijdgedeelte in te stellen op 0.

Verklaring:
functie DateOf (Date: TDateTime): TDateTime

Omschrijving:
Retourneert alleen het datumgedeelte van de TDateTime-waarde door het tijdgedeelte in te stellen op 0.

DateOf stelt het tijdsgedeelte in op 0, wat middernacht betekent.

Voorbeeld:

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

Scheidt jaar-, maand- en dagwaarden van een TDateTime-waarde.

Verklaring:
procedure DecodeDate (Datum: TDateTime; var Jaar, maand, dag: Word) ;;

Omschrijving:
Scheidt jaar-, maand- en dagwaarden van een TDateTime-waarde.

Als de gegeven TDateTime-waarde kleiner is dan of gelijk is aan nul, worden de terugkeerparameters voor jaar, maand en dag allemaal op nul gezet.

Voorbeeld:

var Y, M, D: Word; DecodeDate (Datum, Y, M, D); als Y = 2000 dan. ShowMessage ('Je zit in een "verkeerde" eeuw!);

EncodeDate-functie
Maakt een TDateTime-waarde op basis van de waarden Jaar, Maand en Dag.

Verklaring:
functie EncodeDate (Year, Month, Day: Word): TDateTime

Omschrijving:
Maakt een TDateTime-waarde op basis van de waarden Jaar, Maand en Dag.

Het jaar moet tussen 1 en 9999 liggen. Geldige maandwaarden zijn 1 tot en met 12. Geldige dagwaarden zijn 1 tot en met 28, 29, 30 of 31, afhankelijk van de maandwaarde.
Als de functie mislukt, genereert EncodeDate een EConvertError-uitzondering.

Voorbeeld:

var Y, M, D: Word; dt: TDateTime; y: = 2001; M: = 2; D: = 18; dt: = EncodeDate (Y, M, D); ShowMessage ('Borna zal zijn. een jaar oud op '+ DateToStr (dt))

FormatDateTime-functie
Maakt een TDateTime-waarde op in een tekenreeks.

Verklaring:
functie FormatDateTime (const Fmt: string; Waarde: TDateTime): draad;

Omschrijving:
Maakt een TDateTime-waarde op in een tekenreeks.

FormatDateTime gebruikt de indeling die is opgegeven door de parameter Fmt. Zie Delphi Help-bestanden voor de ondersteunde formaatspecificaties.

Voorbeeld:

var s: string; d: TDateTime;... d: = Nu; // vandaag + huidige tijd. s: = FormatDateTime ('dddd', d); // s: = woensdag. s: = FormatDateTime ('"Vandaag is" dddd "minuut" nn', d) // s: = Vandaag is het woensdag minuut 24

Hiermee wordt een bepaald aantal dagen opgeteld bij of afgetrokken van een datumwaarde.

Verklaring:
functie IncDay (ADate: TDateTime; Dagen: geheel getal = 1): TDateTime;

Omschrijving:
Hiermee wordt een bepaald aantal dagen opgeteld bij of afgetrokken van een datumwaarde.

Als de parameter Dagen negatief is, is de geretourneerde datum

Voorbeeld:

var Datum: TDateTime; EncodeDate (Date, 2003, 1, 29) // 29 januari 2003. IncDay (datum, -1) // 28 januari 2003

Retourneert de huidige systeemdatum en -tijd.

Verklaring:
type TDateTime = type Dubbele;

functie Nu: TDateTime;

Omschrijving:
Retourneert de huidige systeemdatum en -tijd.

Het integrale deel van een TDateTime-waarde is het aantal dagen dat is verstreken sinds 30-12-1899. Het fractionele deel van een TDateTime-waarde is een fractie van een 24-uurs dag die is verstreken.

Om het fractionele aantal dagen tussen twee datums te vinden, trekt u eenvoudig de twee waarden af. Evenzo, om een ​​datum- en tijdwaarde met een bepaald fractioneel aantal dagen te verhogen, voegt u eenvoudigweg het fractionele getal toe aan de datum- en tijdwaarde.

Voorbeeld: ShowMessage ('Now is' + DateTimeToStr (Now));

Geeft het aantal hele jaren tussen twee opgegeven datums.

Verklaring:
functie Jaren Tussen (const SomeDate, AnotherDate: TDateTime): Integer;

Omschrijving:
Geeft het aantal hele jaren tussen twee opgegeven datums.

YearsBetween geeft een benadering terug op basis van een aanname van 365,25 dagen per jaar.

Voorbeeld:

var dtSome, dtAnother: TDateTime; DaysFromBirth: geheel getal; dtSome: = EncodeDate (2003, 1, 1); dtAnother: = EncodeDate (2003, 12, 31); YearsBetween (dtSome, dtAnother) == 1 // niet-schrikkeljaar. dtSome: = EncodeDate (2000, 1, 1); dtAnother: = EncodeDate (2000, 12, 31); YearsBetween (dtSome, dtAnother) == 0 // schrikkeljaar