Feststelleon ob mit ohne ohne Nachkomma
Gunter Avenius
Gesendet: 17.05.12 19:32
Betreff: RE: Feststelleon ob mit ohne ohne Nachkomma



Regular

Beiträge: 64
2525
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
Top of the page Bottom of the page