Ich hab die TMS PLanner Komponente bei mir drauf.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
| sqlstatement := 'SELECT * FROM DMESSE WHERE ID=1';
try
with dmMesse.qryRaum do
begin
Close;
SQL.Clear;
SQL.Add(sqlstatement);
Open;
while not EOF do
begin
dtVon := fieldbyname('STANDOEFFNUNG').asDateTime;
dtBis := fieldbyname('STANDSCHLIESSEN').asDateTime;
Next;
end;
end;
except
ShowMessage('Fehler bei Verbindung mit der Datenbank');
end;
stemp := '00:15:00';
tTemp := StrToTime(stemp);
fVon := dtVon / tTemp;
fBis := (dtBis / tTemp)-1;
ShowMessage('Beginn: ' + FloatToStr(fVon));
ShowMessage('Ende: ' + FloatToStr(fBis));
DBPlanner1.Display.DisplayStart := trunc(fVon);
DBPlanner1.Display.DisplayEnd := trunc(fBis); |
mit folgendem Code lese ich aus einer Datenbank die Anfangs- und Endzeit aus, welche ich dann über Display Start bzw. End in den Planner schreibe, was aber nicht immer funktioniert. Normal müsste mein Planner bei 09:00 Anfangen und bei 19:00 aufhören.
Wenn ich mir die float Werte ausgebene lass bekomm ich auch die rictigen Werte, nur mit DisplayStart, bzw. End scheint was nicht zu stimmen.
Teilweise funktioniert es und teilweise geht der Planner von 12:00 - 03:00 einen Tag weiter, also 49 Stunden, ich hab bis jetzt noch nicht rausgefunden wann dieser Fehler auftritt.
