Function Vorkomma(wert As Double) As Integer

'Date: 11.08.2003
'descr: Funktion ist aus einer Abfrage herraus aufrufbar.
'       Hier werden einfach die Nachkommastellen abgeschnitten
'	!!!!!Achtung  kein Runden!!!!!!

'Aufruf: Vorkomma([FELD])

On Error GoTo fehler

Vorkomma = fix(wert)

Exit Function

fehler:
Exit Function

End Function