CompareDate gibt immer 1 aus...

[Codix32]

Zitat von Dejan Vu:

Trage jeweils deine Testdaten ein, mit denen bei Dir angeblich '1' rauskommt.

Dein Beispiel funktioniert bei mir richtig.

Aber hier:

Delphi-Quellcode:

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;

Das Ergebnis bleibt immer 1.
Und eine Meldung lautet:
[Warnung] Unit1.pas(94): W1035 Rückgabewert der Funktion 'TForm1.Tagedazwischen' könnte undefiniert sein

Warum?

Aufgerufewn wird die Funktion hier:

Delphi-Quellcode:

procedure TForm1.Zeitraum(dt:TDate);
var
  vorTag:TDate;                                        
begin
Gauge1.Progress:=0; Gauge2.Progress:=0;Gauge3.Progress:=0;
 vorTag:= strtoDate('17.04.2015');
  if wievieltePackung(Tagedazwischen(dt, vorTag)) >= 1 then
     Gauge1.Progress:=  round(100 / 28 * Tagedazwischen(dt, vorTag));

Dabei spielt es keine Rolle ob ich Zeitraum(Now) oder Zeitraum(Date) schreibe.

[himitsu]

Zitat:

Warum?

Formatiere mal den Quelltext ordentlich und dann sieht du es bestimmt.


[edit]

Delphi-Quellcode:

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
    {else
      Result := ???};
end;

Delphi-Quellcode:

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  // Oder das weglassen, da eh sinnlos, aber das weiß der Compiler ja nicht.
      Result := -1;
end;

[Popov]

Zitat von himitsu:

Zitat:

Warum?

Formatiere mal den Quelltext ordentlich und dann sieht du es bestimmt.

Wollte ich gerade auch drauf hinweisen.

Aber vielleicht noch paar Hinweise und Fragen:

Delphi-Quellcode:

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;

Wenn compareDate(vor,nach) >= 0 größer, gleich Null sind, warum fragst du dann später nochmal mit compareDate(vor,nach) < 0 ob es kleiner Null ist?

Im Code compareDate(vor,nach) steht vor vor nach. In der Funktion Zeitraum ist in der Zeile wievieltePackung(Tagedazwischen(dt, vorTag)) der vorTag an zweiter Stelle. Ich weiß nicht welche Tage in dt stehen, aber ich gehe davon aus, dass es nachTage sind. Vielleicht solltest du für den Fall in der Funktion Tagedazwischen zuerst vor und nach sortieren, also prüfen ob vor auch wirklich das frühere Datum ist. Ansonsten prüfst du drauf ob das spätere Datum vor dem älteren Datum steht. Das Ergebnis wäre in dem Fall -1.

[Codix32]

Zitat von Popov:

Zitat von himitsu:

Zitat:

Warum?

Formatiere mal den Quelltext ordentlich und dann sieht du es bestimmt.

Wollte ich gerade auch drauf hinweisen.

......

Im Code compareDate(vor,nach) steht vor vor nach. In der Funktion Zeitraum ist in der Zeile wievieltePackung(Tagedazwischen(dt, vorTag)) der vorTag an zweiter Stelle. Ich weiß nicht welche Tage in dt stehen, aber ich gehe davon aus, dass es nachTage sind. Vielleicht solltest du für den Fall in der Funktion Tagedazwischen zuerst vor und nach sortieren, also prüfen ob vor auch wirklich das frühere Datum ist. Ansonsten prüfst du drauf ob das spätere Datum vor dem älteren Datum steht. Das Ergebnis wäre in dem Fall -1.

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:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  t:TDate;
begin
 if key = VK_Return then
   begin
    Try
     if Edit1.Text = '' then
        t := Date
     else
        t:= strtodate(edit1.Text);
     Zeitraum(t);
    Except
     Zeitraum(now);
    end;
   end;
end;

[Codix32]

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
Egal, was ich eingegeben habe, das Datum war immer größer.

Ich bitte euch alle um Entschuldigung.

[himitsu]

Und bezüglich des

Delphi-Quellcode:

    Except
     Zeitraum(now);
    end;

Einfach so was "Anderes" machen, ohne dem Bediener seinen Fehler zu nennen, ist nicht die feine englische Art.

Und zusätzlich ist diese Art der Fehlerbehandlung eh "ungünstig", dazumal es sowieso absichtlich ein TryStrToDate oder StrToDateDef gibt, was man besser statt einer Exception verwenden sollte.

[Codix32]

Zitat von himitsu:

Und bezüglich des

Delphi-Quellcode:

    Except
     Zeitraum(now);
    end;

Einfach so was "Anderes" machen, ohne dem Bediener seinen Fehler zu nennen, ist nicht die feine englische Art.

Himitsu, was meinst Du mit "was Anderes"?

Zitat von himitsu:

Und zusätzlich ist diese Art der Fehlerbehandlung eh "ungünstig", dazumal es sowieso absichtlich ein TryStrToDate oder StrToDateDef gibt, was man besser statt einer Exception verwenden sollte.

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

[Codix32]

Zitat von himitsu:

Zitat:

Warum?

Formatiere mal den Quelltext ordentlich und dann sieht du es bestimmt.


[edit]

Delphi-Quellcode:

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
    {else
      Result := ???};
end;

Delphi-Quellcode:

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  // Oder das weglassen, da eh sinnlos, aber das weiß der Compiler ja nicht.
      Result := -1;
end;

Ich stehe auf dem Schlauch. Das geht auch nicht:

Delphi-Quellcode:

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;

Es bleibt 1, auch wenn das erste Datum größer als das 2. ist.
Result := -1 wird nicht ausgegeben.
Die Fehlermeldung ist allerdings weg.

Normalerweise wird die Procedure Zeitraum(date), in der die Function liegt im OnCreate der Form aufgerufen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderIcons := [biSystemmenu];
  Statusbar1.panels[0].text:='Datum: '+ DatetoStr(Date);
  Statusbar1.panels[1].text:='Woche: '+ InttoStr(WeekOf(Date));
  Zeitraum(Date);          //<- Enthält die Function Tagedazwischen
  fuelleLabels;
end;

Hier die Procedure:

Delphi-Quellcode:

procedure TForm1.Zeitraum(dt:TDate);
var
  vorTag:TDate;                     //<- 1 Tag vor der 1. Tablette
begin
 Gauge1.Progress:=0; Gauge2.Progress:=0;Gauge3.Progress:=0;
 vorTag:= strtoDate('17.04.2015');
  if wievieltePackung(Tagedazwischen(dt, vorTag)) >= 1 then
     Gauge1.Progress:=  round(100 / 28 * Tagedazwischen(dt, vorTag));
  if wievieltePackung(daysbetween(dt, vorTag)) >= 2 then
     Gauge2.Progress:=  round(100 / 28 * Tagedazwischen(dt, vorTag+incday(27)));
  if wievieltePackung(daysbetween(dt, vorTag)) > 2 then
     Gauge3.Progress:= round(100 / 28 * Tagedazwischen(dt, vorTag+incDay(55)));
     Gauge4.Progress:= round(100 / 84 * Tagedazwischen(dt, vorTag));
  if  Tagedazwischen(dt, vortag) <= 84 then
     Label14.caption:= ' Tabletten genommen: ' + inttostr(Tagedazwischen(dt, vortag))+ '/84'
  else
    Label14.caption:= ' Tabletten genommen: 84/84';
    Label15.Caption:= inttostr(compareDate(dt, vortag));
end;

[Dalai]

Zitat von Codix32:

Aber hier:

Delphi-Quellcode:

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;

Das Ergebnis bleibt immer 1.

Das Ergebnis wovon genau? CompareDate? DaysBetween? Und warum rufst du CompareDate doppelt auf?

Zitat:

Und eine Meldung lautet:
[Warnung] Unit1.pas(94): W1035 Rückgabewert der Funktion 'TForm1.Tagedazwischen' könnte undefiniert sein

Warum?

Weil du zwei if-Bedingungen stehen hast und Result jeweils von der Erfüllung selbiger abhängt. Die Warnung mag zwar für die menschliche Logik nicht zutreffen, aber das weiß der Compiler ja nicht.

Zitat:

Aufgerufewn wird die Funktion hier:

Delphi-Quellcode:

procedure TForm1.Zeitraum(dt:TDate);
var
  vorTag:TDate;                                        
begin
Gauge1.Progress:=0; Gauge2.Progress:=0;Gauge3.Progress:=0;
 vorTag:= strtoDate('17.04.2015');
  if wievieltePackung(Tagedazwischen(dt, vorTag)) >= 1 then
     Gauge1.Progress:=  round(100 / 28 * Tagedazwischen(dt, vorTag));

Mach mal eine Ersetzung der Variablen mit deinen Eingabedaten auf Papier (oder im Editor) und überlege, was jeweils bei den Funktionen rauskommt und vergleiche das mit deinen Erwartungen. Kann man auch im Debugger machen, wenn man will.

MfG Dalai