Forum: Datenbanken
Delphi
by himitsu,
4. Jan 2010
wollte schon "doch" sagen, aber sah grad noch 'nen Vertipper ... so, jetzt kann ich es
doch :mrgreen:
Forum: Datenbanken
Delphi
by himitsu,
4. Jan 2010
man könnte es notfalls noch etwas kürzen
procedure AddWochentage(AMonat, AWochentag: Byte; ADestList: TList<Date>);
var start: TDateTime;
i: Integer;
begin
start := EncodeDate(YearOf(Now), AMonat, 1);
for i := 0 to DaysInMonth(start) - 1 do
if DayOfWeek(start + i) - 1 = AWochentag then
ADestList.Add(start + i);
end;
Forum: Datenbanken
Delphi
by himitsu,
3. Jan 2010
select 'datumsfeld' from 'datumstabelle'
where (WOCHENTAG('datumsfeld') = :suchwochentag)
and (MONAT('datumsfeld') = MONAT(:suchdatum))
and (JAHR('datumsfeld') = JAHR(:suchdatum))
Forum: Datenbanken
Delphi
by himitsu,
3. Jan 2010
praktisch irgendwie so?
... where WOCHENTAG('datumsfeld') = 3