OK, wenn "g" ein Integer ist (PS: warum hast du die Variablendeklaration nicht lokal in der Prozedur drin?)
Zitat:
if RightStr(g,1)=2 or RightStr(g,1)=4 or RightStr(g,1)=5 or RightStr(g,1)=6 or RightStr(g,1)=8 or RightStr(g,1)=0 then
aber dann fehlen so oder so Klammen
if ((g mod 10)=2) or ((g mod 10)=4) or ((g mod 10)=5) or ((g mod 10)=6) or ((g mod 10)=8) or ((g mod 10)=0) then
bzw: (keinen Bereichsprüfung drin ... grund steht schonmal weiter oben)
if (g mod 10) in [2, 4, 5, 6, 8, 0] then
>
mod