title image


Smiley Leidiges Thema: Runden
Ohjeohje!Habe folgende Funktion erstellt:Function AufXStellenRunden(varZahl As Variant, intStellen As Integer) As DoubleDim X As DoubleDim dblErgebnis As DoubleDim Zahlzwi As DoubleDim Neg As BooleanOn Error GoTo Error_handlerIf varZahl Zahlzwi = varZahl * -1 Neg = TrueElse Zahlzwi = varZahl Neg = FalseEnd IfIf IsNull(Zahlzwi) Then dblErgebnis = 0Else If intStellen X = 10 ^ (Abs(intStellen)) dblErgebnis = Int(Zahlzwi / X + 0.5) * X Else X = 10 ^ intStellen dblErgebnis = Int(Zahlzwi * X + 0.5) / X End IfEnd IfIf Neg = True Then dblErgebnis = dblErgebnis * -1End IfAufXStellenRunden = dblErgebnisExit_AufXStellenRunden:Exit FunctionError_handler:MsgBox "Der Fehler '" & Error(Err) & "' trat beim Runden auf."AufXStellenRunden = varZahlResume Exit_AufXStellenRundenEnd FunctionDiese funktioniert beim Testen einwandfrei!Aber ich möchte diese nun in eine Abfrage einbauen!In meiner Abfrage hab ich ein berechnetes Feld namens Laufzeit erstellt. Dort möchte ich auf diese Funktion zugreifen. Folgendes hab ich in diesem Feld in der Entwurfsansicht eingegeben:Laufzeit: AufXStellenRunden((([Vertragsende]-[Vertragsbeginn])/30,4167);0)Wenn ich die Abfrage nun ausführen möchte, bekomme ich folgende Fehlermeldung:"Undefinierte Funktion 'AufXStellenRunden' in Ausdruck."Aber ich hab diese Funktion doch definiert!Hab ich etwas übersehen?GrußEriklP.S: Die Felder Vertragsende und Vertragsbeginn sind Felder mit dem Datentyp Datum/Uhrzeit.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: