Delphi Recursive procedure die nicht macht was sie soll

Thema durchsuchen

Ansicht

Themen-Optionen

Recursive procedure die nicht macht was sie soll

Ein Thema von gangs-taas · begonnen am 26. Jan 2010 · letzter Beitrag vom 26. Jan 2010

Antwort

Medium

Registriert seit: 23. Jan 2008
3.688 Beiträge

Delphi 2007 Enterprise

Re: problem mit rocedure

26. Jan 2010, 15:41

Das gesamte Problem lässt sich viel einfacher lösen. Ein TDateTime ist ein Float-Wert, und der Vorkommaanteil gibt die Anzahl der Tage seit einem Datum an (welches genau weiss ich grad nicht, ist auch unwichtig hier für).

Also: DateOfFirstDayOfTheWeek := TestDate - DayOfTheWeek(TestDate) + 1;

Edit: Was ist eigentlich eine "rocedure"?

"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)