Forum: Datenbanken
Delphi
by Wolfgang Mix,
3. Jan 2010
... und wenn du das hier umstrickst?
// Source: http://www.mycsharp.de/wbb2/thread.php?threadid=74208
// Translated by DeddyH - Delphi-PRAXiS
// Useful. if you search for f.e. last thursday in August of 2009
function LastDayOfWeekOfMonth(year,month: Integer;DayOfWeek: TWeekDay):TDate;
var temp: TDate;
begin
temp := IncMonth(EncodeDateTime(year,month,1,0,0,0,0));
Result :=...
Forum: Datenbanken
Delphi
by Wolfgang Mix,
3. Jan 2010
... und wenn selbst nicht, dann bastelt man das eben selber.
Modulo 7 kennt jede Programmiersprache ...
Forum: Datenbanken
Delphi
by Wolfgang Mix,
3. Jan 2010
Meinst Du
If DayOfTheWeek = 4 Then ...