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