Function Ergebniss(Zahlenwert as single) as single
Dim Wert as string
Dim Erg as string
Wert=Cstr(Zahlenwert)
If instr(wert,".")>0 then 
  Nachkomma=Mid(Wert,Instr(wert,".")+1)
  Vorkomma=Left(Wert,Instr(wert,".")-1)
  Erg="0,"&Nachkomma
 
  If Val(Nachkomma)=0 then 
     If Val(Vorkomma)=1 then 
        Erg=1
     end if
  end if
Else
  If Val(wert)=1 then erg =1
End if  
Ergebniss=csng(erg)
End function

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)