Hallo,
die Abfrage könnte auch so aussehen:
Delphi-Quellcode:
function TSemesters.IsValidDateToSemester(SemesterId: TSemesterID;
Date: TDateTime): Boolean;
var SemesterInfo : TSemesterValue;
begin
... // SemesterInfo ist ein Record. SemesterBegin und SemesterEnd vom Typ TDate
Result := {Math.}InRange(Date, StartOfTheDay(SemesterInfo.SemesterBegin),
EndOfTheDay(SemesterInfo.SemesterEnd));
end;
Gruß Hawkeye