Habe gerade einen Blackout.

Problem:
Wenn Januar oder Februar im Schaltjahr vorliegt,
soll eine Schaltjahreskorrektur vorgenommen werden (1),
andernfalls 0.

Wörtlich übersetzt:

markieren

Delphi-Quellcode:

  //Logikfehler
{  if (monat=1) or (monat=2) and isleapyear(jahr) then
    schaltjahrkorrektur:=1
   else schaltjahrkorrektur:=0; }

Funktioniert so nicht.

Mit einer Hilfskrücke k Klappt es (Dirty Code).

markieren

Delphi-Quellcode:

  if (monat=1) or (monat=2) then k:=1 else k:=0;
  if isleapyear(jahr) and (k=1) then
    schaltjahrkorrektur:=1
  else schaltjahrkorrektur:=0;

Wie "denkt" der Compiler?

Hi,

auch wenn ich den Sinn der Sache nicht ganz verstehe, vermut ich dass der Fehler in der Klammerung besteht - and klammert stärker als or.

Es steht also aktuell quasi das da:

markieren

Delphi-Quellcode:

if (monat=1) or ((monat=2) and isleapyear(jahr)) then
    schaltjahrkorrektur:=1
   else schaltjahrkorrektur:=0;

aber du willst

markieren

Delphi-Quellcode:

if ((monat=1) or (monat=2)) and isleapyear(jahr) then
    schaltjahrkorrektur:=1
   else schaltjahrkorrektur:=0;

LG,
Frederic

if (monat=1) or (monat=2) and isleapyear(jahr) then Ich versuche sowas zu vermeiden, und mache es so
if ((monat=1) or (monat=2)) and isleapyear(jahr) then Ist glaube ich verständlicher zu lesen.

Sorry, auch mit deinen Klammern funktioniert es nicht.

LG

Wolfgang

@Popov und @fkerber

Ihr hattet recht, es ist ein Klammerproblem.
Mit Popovs Klammern funzt es:

Danke an Euch

LG

Wolfgang

Nur der Vollständigkeit halber:

markieren

Delphi-Quellcode:

const
  CORRECTIONVALUE: array[Boolean] of integer = (0, 1);
...
  schaltjahrkorrektur := CORRECTIONVALUE[(monat in (1,2)) and IsLeapYear(jahr)];

Danke Detlef,

in (1,2) hatte ich auch versucht,
allerdings mit []

Du hast natürlich Recht, das kommt davon, wenn man direkt im Editor tippt. Vielleicht wäre das so aber lesbarer:

markieren

Delphi-Quellcode:

const
  CORRECTIONVALUE: array[Boolean] of integer = (0, 1);
  POSSIBLYWRONGMONTHS = [MonthJanuary, MonthFebruary];
...
  schaltjahrkorrektur := CORRECTIONVALUE[(monat in POSSIBLYWRONGMONTHS) and IsLeapYear(jahr)];

Hmm, sollte Result:= ((Month in [1,2]) and IsLeapYear(Year)) nicht ausreichen?

Edit: also mein Delphi führt folgendes korrekt aus

markieren

Delphi-Quellcode:

function schaltjahrkorrektur(Month, Year: Integer): Boolean;
begin
  Result:= ((Month in [1,2]) and IsLeapYear(Year));
end;

Wieso sollte es auch nicht, ich habe ja zugegebenermaßen einen Syntaxfehler gemacht. Die 2. Konstante habe ich nur eingeführt, um Magic Values zu vermeiden, man kann natürlich auch auf das Set verzichten und gleich die Konstanten nehmen, aber ich habe so etwas lieber zentral, falls man öfter darauf zugreift (DRY).