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]

Delphi-Quellcode:

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 :cry:

[Stevie]

Zitat:

Zitat von JSB

Zitat:

uses DateUtils nicht vergessen...

???*NIX-VERSTEH*???

Fehler: Undefinierter Bezeichner DateOF :cry:

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

[JSB]

Tut mir leid :cry: :(

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

Alles klar Danke!!!

:dancer: :cheers: :dancer2:

[Sharky]

Zitat:

Zitat von Stevie

Delphi-Quellcode:

if DateOf(DateTimePicker1.Date) + TimeOf(DateTimePicker2.Time) > Now then

uses DateUtils nicht vergessen...

Alternativ sollte es auch so gehen ;-)

Delphi-Quellcode:

if (Trunc(DateTimePicker1.Date) + DateTimePicker2.Time) > Now then

[Stevie]

Zitat:

Zitat von Sharky

Zitat:

Zitat von Stevie

Delphi-Quellcode:

if DateOf(DateTimePicker1.Date) + TimeOf(DateTimePicker2.Time) > Now then

uses DateUtils nicht vergessen...

Alternativ sollte es auch so gehen ;-)

Delphi-Quellcode:

if (Trunc(DateTimePicker1.Date) + DateTimePicker2.Time) > Now then

Daneben! :roll: :corky:

Delphi-Quellcode:

TTime = type TDateTime;

[Sharky]

Zitat:

Zitat von Stevie

Daneben! :roll: :corky:

Delphi-Quellcode:

TTime = type TDateTime;

:shock: Ich habe das Frac vergessen ;-)

Delphi-Quellcode:

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:

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;

:stupid: