1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Start:
900 div 100 -> 9 Std.
900 mod 100 -> 0 Min.

Ende:
915 div 100 -> 9 Std.
915 mod 100 -> 15 Min.

Pause: 0,25

Start = 9 * 60 + 0;  // 540 Minuten
Ende  = 9 * 60 + 15; // 555 Minuten
Pause = 0,25 * 60;   //  15 Minuten					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function getDauer(Person : String):Integer;
Var Ora : TOracleQuery;
      I : Integer; 
Begin 
Ora := TOracle.Create;
With Ora.SQL do 
 Begin 
  Add('Select Round((SYSDATE - A.StartOperation)*24*60) Dauer');
  Add('from relODCAssign A'); 
  Add('Where A.Personnr = '+''''+Person+'''');
 end;
Ora.Execute;
I := Ora.Field['DAUER'].asInteger;
Ora.Free;

result := I;
end;					

1:
2:
3:

select von, bis 
from   t_pausenzeiten
where  (von < :arbeitszeit_bis) and (bis > :arbeitszeit_von)					

1:
2:
3:

if von < arbeitszeit_von then von := arbeitszeit_von;
if bis > arbeitszeit_bis then bis := arbeitszeit_bis;
pausenzeit = bis - von;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

//Zeit jeweils in Minuten
//Bsp.: Arbeitsbeginn = 8:15 Uhr => Arbeitsbeginn:=8*60+15;
//Das Ergebnis ist die effektive Pausenzeit und muss von der Arbeitszeit abgezogen werden
Function Pausenzeit(Arbeitsbeginn, Arbeitsende, Pausenbeginn, Pausenende:Integer):Integer;
Begin
 Result:=0;

 IF (Arbeitsbeginn<=Pausenbeginn) AND (Arbeitsende>Pausenbeginn) then
     Result:=Pausenende-Pausenbeginn else
 IF (Arbeitsbeginn<Pausenende) AND (Arbeitsende>Pausenbeginn) then
     Result:=Pausenende-Arbeitsbeginn;

 IF (Arbeitsende>Pausenbeginn) AND (Arbeitsende<Pausenende) then
     Result:=Result-(Pausenende-Arbeitsende);

End;