Forum: Sonstige Fragen zu Delphi
Delphi
by haentschman,
30. Dez 2008
- ist schon interressant in wie viele Richtungen und verschiedenen Code man Probleme lösen kann.
- vor allem wie die Ablauflogik sich von Programmierer zu Programmieren unterscheiden kann.
Unterm Strich kommt das selbe raus.... :thumb:
einen schönen Tag noch... :hi:
Forum: Sonstige Fragen zu Delphi
Delphi
by haentschman,
30. Dez 2008
ok..ok.. hatte ich übersehen.
:gruebel: wieso dieser Kuddelmuddel...
aber...schön daß wir drüber gesprochen haben. :hi:
Forum: Sonstige Fragen zu Delphi
Delphi
by haentschman,
30. Dez 2008
:gruebel:
du benutzt aber für die Initialisierung das aktuelle Datum und nicht den Eintrag aus der Liste, der bleibt völlig unberührt.
Forum: Sonstige Fragen zu Delphi
Delphi
by haentschman,
30. Dez 2008
eben nicht :P
Heute: 30.12.2008
minDate: 01.01.2009
erster Eintrag in Liste: 02.05.2009
minDate < erster Eintrag sprich... aDate > minDate
prinzipiell funktioniert das, wenn minDate einen gültiger Eintrag der Liste darstellt. So lange das nicht der Fall ist würde nur ein minDate Startwert Heute + 100 Jahre weiterhelfen. 8)
Forum: Sonstige Fragen zu Delphi
Delphi
by haentschman,
30. Dez 2008
eigentlich schon. Da ich bei meinen Überlegungen auf dieses Problem gestoßen war.
minDate := IncYear(StartOfAYear(YearOf(date)));
du initialisierst minDate mit 01.01.2009 00:00, wenn ich o.g. Funktion richtig interpretiere. (ausgegangen vom heutigen Datum)
wenn der erste höhere als heute gültige Eintrag (z.B. 02.05.2009) gefunden wird ist
if (aDate >= date) and (aDate < minDate) then...
Forum: Sonstige Fragen zu Delphi
Delphi
by haentschman,
30. Dez 2008
@DeddyH
if (aDate >= date) and (aDate < minDate) then
funktioniert so nicht wirklich, da das erste gefundene Datum in der Zukunft größer als dein Startwert von minDate sein kann.
:wink:
Forum: Sonstige Fragen zu Delphi
Delphi
by haentschman,
30. Dez 2008
:oops: ja klar doch...geht sich bei 0 los.
Larsi: schaue dir noch mal meinen Code an und versuche zu verstehen was passiert. Wenn du möchtest kommentiere ich ihn noch mal.
geprüft und für gut befunden :P
function NachstesDatum : TDate;
var
MinDate: TDate;
I: integer;
Forum: Sonstige Fragen zu Delphi
Delphi
by haentschman,
30. Dez 2008
Ich habe auch lange überlegt...
kommentierter Code von Larsi..
var
i: Integer;
g: integer;
begin
g := 1; // was das soll weiß nur Larsi, eine 0 könnte ich noch verstehen
Forum: Sonstige Fragen zu Delphi
Delphi
by haentschman,
30. Dez 2008
Ok...quäl dich nicht weiter 8) ich habe heute meinen sozialen Tag. :thumb:
zu spät... noch eine Variante für die Code Libary :mrgreen:
function NachstesDatum : TDate;
var
MinDate: TDate;
I: integer;
begin