30. April 2012 15:41
1. Mai 2012 07:14
IF Workdate IN [VonDatum..BisDatum] THEN BEGIN
...
END;
IF BisZeit > VonZeit THEN BEGIN
IF (VonZeit <= Time) AND (Time <= BisZeit) THEN BEGIN
...
END;
END ELSE BEGIN
IF (BisZeit <= Time) AND (Time <= VonZeit) THEN BEGIN
...
END;
END;
2. Mai 2012 12:23
2. Mai 2012 18:55
FromDateTime := CREATEDATETIME(FromDate,FromTime);
UntilDateTime := CREATEDATETIME(UntilDate,UntilTime);
IF (FromDateTime <= CURRENTDATETIME) AND (CURRENTDATETIME <= UntilDateTime) THEN BEGIN
...
END;