Datumsabfrage mit Access DB über Jahreswechsel

[shmia]

Zitat von mewlos26:

@shima
>die Parameter mit dem Datentyp "TDateTime" befüllt werden.
Kannst Du die Select Anweisung mit den Parametern mal anpassen und hier posten?

Hab' ich doch schon in meiner 1. Antwort getan.
Das Sourcecode Schnipsel enthält genau die Abfrage aus deinem Beispiel und ist komplett. Es fehlt nur noch Query1.Open.

Zitat von mewlos26:

>Nur für die Ein- und Ausgabe von Datum und Uhrzeit darf in ein Stringformat gewandelt werden.
Hast Du hierfür auch ein Beispiel?

Es geht hier eher um Prinzip.
In dem folgenden Beispiel wird der nächste Arbeitstag berechnet.
Alle Operationen werden mit TDateTime ausgeführt.

Delphi-Quellcode:

function NextWorkingDay(const date:TDateTime; callback:THolidayCallback):TDateTime;
begin
   Result := Int(date) + 1.0;

   while (DayOfWeek(Result) in [1,7]) do  // Samstag und Sonntag überspringen
      Result := Result + 1.0;
end;

var
   datum : TDateTime;
begin
   datum := SysUtils.Date;  // heute
   datum := NextWorkingDay(datum);
   // Erst beim Anzeigen wird das Datum in einen String verwandelt
   ShowMessage('Nächster Arbeitstag ist '+DateToStr(datum));
end;