Forum: Object-Pascal / Delphi-Language
Delphi
by Codix32,
26. Mai 2015
Himitsu, was meinst Du mit "was Anderes"?
Danke Himitsu, aber so gut bin ich nicht im Programmieren. Ich bewundere allerdings Deine Kenntnisse und habe großen Respekt. Und danke für den Tip. Allerdings hat Editkeydown genau das gemacht, was ich wollte.
Nochmals Allen vielen Dank :oops:
Forum: Object-Pascal / Delphi-Language
Delphi
by Codix32,
25. Mai 2015
Ups, ich glaube, ich habe Alzheimer, ich habe den Fehler.
Ich habe tatsächlich ein falsches Datum als festgelegten zweiten Parameter übergeben.
Das ist jetzt wirklich Höchstpeinlich :oops:
Egal, was ich eingegeben habe, das Datum war immer größer.
Ich bitte euch alle um Entschuldigung.
Forum: Object-Pascal / Delphi-Language
Delphi
by Codix32,
25. Mai 2015
Danke Popov,
Ein Ergebnis war falsch und deshalb habe ich die Funktion und es konnte nur die Funktion sein, im OnKeyDown Ereignis eines TEdits getestet und eben entdeckt, dass egal, was für ein Datum ich eingebe, ob größer oder kleiner als das 2. Datum immer eine 1 ausgegeben wird, auch wenn die beiden Datums gleich sind.
Hier der einfache Test über ein Editfeld:
procedure...
Forum: Object-Pascal / Delphi-Language
Delphi
by Codix32,
25. Mai 2015
Ich stehe auf dem Schlauch. Das geht auch nicht:
function TForm1.Tagedazwischen(vor, nach:TDate):Integer;
begin
if compareDate(vor,nach) >= 0 then
Result:= daysbetween(vor,nach)
Else
//if compareDate(vor,nach) < 0 then Result := -1;
Result := -1;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Codix32,
25. Mai 2015
Dein Beispiel funktioniert bei mir richtig.
Aber hier:
function TForm1.Tagedazwischen(vor, nach:TDate):Integer;
begin
if compareDate(vor,nach) >= 0 then Result:= daysbetween(vor,nach)
Else if compareDate(vor,nach) < 0 then Result := -1;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Codix32,
17. Mai 2015
Merkwürdiges Verhalten bei CompareDate
Egal ob der erste Datumwert kleiner, größer, oder gleich dem Zweiten ist:
Der Wert ist immer 1
Hat jemand sowas schon erlebt?
var