frage zu einem programmcode...

[Sharky]

Hai KosMottchen,

erst einmal: "Herzlich Willkommen in der Delphi-PRAXiS"

Zu den Berechnungen haben ja andere schon etwas gesagt.
Aber Du hast auch "logik" Fehler im Code

Delphi-Quellcode:

.
.
if m=1 then m:=13;
// januar umrechnen in m:=13

if m=2  then m:=14; 
// februar umrechnen in m:=14

if m=1  then j:=j-1;
// wenn januar dann jahr :=j-1

if m=2  then j:=j-1
.
.

Bei der ersten IF-Abfrage prüfst Du ob m=1 ist und setzt die Variable dann auf 13. Dadurch wird die nächste Abfrage auf m=1 natürlich nie mehr zutreffen. Das sebe gilt für m=2.

Du musst die Operationen also in eine Abfrage packen:

Delphi-Quellcode:

begin
  .
  if (m = 1) then
  begin
    m := 13;
    j := j - 1;
  end;
  if (m = 2) then
  begin
    m := 14;
    j := j - 1;
  end;
end;

Das nur als anmerkung zu deinen IF-Abfragen. Über die Richtigkeit der Berechnungen möchte ich damit nichts sagen