87,6 → 87,7 |
|
// TODO: Trennstriche zwischen Wochen oder zwischen Urlauben |
// IDEE: Wochenend-Multiplikator |
// IDEE: Manche Tage nicht mitrechnen |
|
uses |
DateUtils, StrUtils, IniFiles; |
333,6 → 334,9 |
end |
else |
begin |
if Pos(':', Text) = 0 then |
ADOTable1GEHEN.AsString := Text + ':00' |
else |
ADOTable1GEHEN.AsString := Text; |
end; |
end; |
351,6 → 355,9 |
end |
else |
begin |
if Pos(':', Text) = 0 then |
ADOTable1KOMMEN.AsString := Text + ':00' |
else |
ADOTable1KOMMEN.AsString := Text; |
end; |
end; |
395,6 → 402,9 |
end |
else |
begin |
if Pos(':', Text) = 0 then |
ADOTable1PAUSE_ENDE.AsString := Text + ':00' |
else |
ADOTable1PAUSE_ENDE.AsString := Text; |
end; |
end; |
414,6 → 424,9 |
end |
else |
begin |
if Pos(':', Text) = 0 then |
ADOTable1PAUSE_START.AsString := Text + ':00' |
else |
ADOTable1PAUSE_START.AsString := Text; |
end; |
end; |
433,6 → 446,9 |
end |
else |
begin |
if Pos(':', Text) = 0 then |
ADOTable1SONSTIGER_ABZUG.AsString := Text + ':00' |
else |
ADOTable1SONSTIGER_ABZUG.AsString := Text; |
end; |
end; |
504,6 → 520,9 |
end |
else |
begin |
if Pos(':', Text) = 0 then |
ADOTable1ZUHAUSE.AsString := Text + ':00' |
else |
ADOTable1ZUHAUSE.AsString := Text; |
end; |
end; |