Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
30. Mai 2013
Gerade mit Delphi 7 geschrieben:
uses DateUtils;
procedure CalculateNewWeekOfYear(WeekIn, YearIn, Offset: integer;
out WeekOut, YearOut: integer);
var
DateValue: TDateTime;
begin
DateValue:= IncWeek(StartOfAWeek(YearIn, WeekIn), Offset);
WeekOut := WeekOfTheYear(DateValue);
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
30. Mai 2013
Ich weiß nicht, ob ich neuerdings in Geheimschrift tippe oder einfach ignoriert werde :gruebel:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
22. Mai 2013
Oder in DateUtils (das hatten wir doch schon?).
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
22. Mai 2013
Da würde ich zuerst einen Blick in DateUtils.pas werfen.