Abfrage von Datum und Uhrzeit von 2 DTPicker

[JSB]

Ich habe 2 DateTimePicker und gebe in einem NUR das Datum und in dem andern NUR die Zeit ein. Ich möchte aber wissen ob das angegebene Datum und die angegebene Zeit in der Zukunft liegen. Wie gestalte ich die Abfrage

[Stevie]

if DateOf(DateTimePicker1.Date) + TimeOf(DateTimePicker2.Time) > Now then uses DateUtils nicht vergessen...

[JSB]

Zitat:

uses DateUtils nicht vergessen...

???*NIX-VERSTEH*???

Fehler: Undefinierter Bezeichner DateOF

[Stevie]

Zitat von JSB:

Zitat:

uses DateUtils nicht vergessen...

???*NIX-VERSTEH*???

Fehler: Undefinierter Bezeichner DateOF

Du sollst die unit DateUtils einbinden, damit genau das nicht passiert!

[JSB]

Tut mir leid

Ist mir erst später aufgefallen (Bin erst jetzt in den Betrieb gegangen )

Alles klar Danke!!!

[Sharky]

Zitat von Stevie:

if DateOf(DateTimePicker1.Date) + TimeOf(DateTimePicker2.Time) > Now then uses DateUtils nicht vergessen...

Alternativ sollte es auch so gehen
if (Trunc(DateTimePicker1.Date) + DateTimePicker2.Time) > Now then

[Stevie]

Zitat von Sharky:

Zitat von Stevie:

if DateOf(DateTimePicker1.Date) + TimeOf(DateTimePicker2.Time) > Now then uses DateUtils nicht vergessen...

Alternativ sollte es auch so gehen
if (Trunc(DateTimePicker1.Date) + DateTimePicker2.Time) > Now then

Daneben!
TTime = type TDateTime;

[Sharky]

Zitat von Stevie:

Daneben!
TTime = type TDateTime;

Ich habe das Frac vergessen
if (Trunc (DateTimePicker1.Date) + Frac (DateTimePicker2.Time)) > Now then

[Stevie]

Oh, kannte ich auch noch nicht, die Funktion... Fein, das erspart in diesem Fall die DateUtils...

[Sharky]

Zitat von Stevie:

Oh, kannte ich auch noch nicht, die Funktion... Fein, das erspart in diesem Fall die DateUtils...

Delphi-Quellcode:

function DateOf(const AValue: TDateTime): TDateTime;
begin
  Result := Trunc(AValue);
end;

function TimeOf(const AValue: TDateTime): TDateTime;
begin
  Result := Frac(AValue);
end;