Regular
Beiträge: 66
Ort: Röthenbach a.d.Peg. | Hallo,
in eine kleine Funktion gepackt:
Public Function fncTest(dblIn As Double) As Boolean
If dblIn - Int(dblIn) = 0 Then
fncTest = True
Else
fncTest = False
End If
End Function
Aufruf mit :
var=fncTest (dblDeinWert)
-----
Gruß
Gunter
--
Access FAQ: http://www.donkarl.com
http://www.avenius.de - http://www.AccessRibbon.de
http://www.ribboncreator.de - http://www.ribboncreator2010.de
http://www.ribboncreator2016.de - http://www.ribboncreator2019.de
|
Feststelleon ob mit ohne ohne Nachkomma