Forum: Object-Pascal / Delphi-Language
Delphi
by Duffy,
31. Jul 2003
Hallo AndreasZZZ,
so, jetzt der letzte Versuch ...
function Get_next_Wochentag_pro_Monat(iWelcher, iWochentag: Integer; BaseDate: TDateTime): TDateTime;
var
I: Integer;
BaseDay, BaseMonth, BaseYear: Word;
Day, Month, Year: Word;
Times: Integer;
begin
Result := 0;
Forum: Object-Pascal / Delphi-Language
Delphi
by Duffy,
31. Jul 2003
Hallo AndreasZZZ,
jetzt geht es, ich glaube aber Du solltest aber auch Einsatz zeigen.
function Get_next_Wochentag_pro_Monat(iWelcher, iWochentag: Integer; BaseDate: TDateTime): TDateTime;
var
I: Integer;
Day, Month, Year: Word;
Times: Integer;
begin
if not(iWelcher in ) then
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Duffy,
30. Jul 2003
Hallo AndreasZZZ,
ich nehme an, daß es sich hier um eine Hausaufgabe handelt. Aber da Dir noch keiner einen Lösungsansatz geboten hat, habe ich mal auf die Schnelle deine Funktion realisiert. Zumindest bringt sie die gewünschten Ergebnisse.
Vielleicht weiß noch jemand einen anderen Lösungsansatz. Mir fiel jedenfalls im Moment auch nichts Besseres ein, als durch den Monat zu iterieren und die...