![](/forum/profile/get-photo.asp?memberid=29&type=profile&rnd=116) Regular
Beiträge: 66
![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) 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
|