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;