Ich muss mich wieder bei Hr. Hansen bedanken und natürlich auch bei allen anderen die hier so viel Hilfe leisten.. 

möchte auch noch das CodeSchnibbel bereit stellen damit es eventuell andere weiter verwenden können..

let my := this;
let myDiensteinteilung := Diensteinteilung;
let myStat := Auswahl;
let myDate := Datum;
for i in select Diensttabelle where Diensteinteilung = myDiensteinteilung and Datum >= myDate do
let myX := i.DFTage;
if myStat = 2 then
i.(DFTage := myX - 1)
end;
if myStat = 1 then
i.(DFTage := myX + 1)
end
end

vielen Dank nochmals

habe das Problem endlich gelöst  der Code dafür sieht so aus wenn es jemanden hilft.

let myOlddat := date(year(Datum), month(Datum), day(Datum) - 2);
let myName := Name;
let myx := 1;
while (select Diensttabelle where Name = myName and Datum = myOlddat).Auswahl = 1 do 
myx := myx + 1;
myOlddat := myOlddat - 2
end
;
let myoldDif := (select Diensttabelle where Name = myName and Datum = myOlddat).Auswahl;
if Auswahl = "1" then
myx
else
if Auswahl = "2" then
0
else
if Auswahl = "3" then
0
else
if Auswahl = "4" then
myx
else
if Auswahl = "6" then 0 end
end
end
end
end