"Funktion steht in Ausdrücken nicht zur Verfügung"

13/03/2010 - 10:25 von Michael Waffenschmidt | Report spam
Hallo NG,
ich habe eine hübsche Funktion geschrieben um das Alter in Laufzeit zu
errechen und anzuzeigen:

Public Function age(birthday As Date) As Variant
age = DateDiff("yyyy", birthday, Now())
If DatePart("y", birthday) > DatePart("y", datum) Then age = age - 1
If age <= 0 Then age = ""
End Function

Funktioniert auch so weit... aber nur auf XP und W7 ... auf Vista
nicht !?
Bringt die Meldung: "Funktion steht in Ausdrücken nicht zur Verfügung"
Hat jemand eine Idee ?
 

Lesen sie die antworten

#1 Gunter Avenius
13/03/2010 - 10:32 | Warnen spam
Hallo Michael,

Michael Waffenschmidt schrieb folgendes:
ich habe eine hübsche Funktion geschrieben um das Alter in Laufzeit zu
errechen und anzuzeigen:

Public Function age(birthday As Date) As Variant
age = DateDiff("yyyy", birthday, Now())
If DatePart("y", birthday) > DatePart("y", datum) Then age = age - 1
If age <= 0 Then age = ""
End Function

Funktioniert auch so weit... aber nur auf XP und W7 ... auf Vista
nicht !?
Bringt die Meldung: "Funktion steht in Ausdrücken nicht zur Verfügung"
Hat jemand eine Idee ?



Überprüfe Deine Verweise auf dem Win Vista PC.
siehe auch: www.donkarl.com?FAQ7.1

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com

http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de - http://www.ribboncreator2010.de

Ähnliche fragen