Frage : Funktions-zurückgehende Art Fehlanpassungsstörung

Ich habe den Code, den Sie unten sehen, geschrieben in VB6. Ich bevölkere den int variables FILENOVal mit dem Rückholwert von der PadValue Funktion. Es scheint, dass, egal wie ich versuche, die Werte im Anruf zur Funktion zu werfen, ich die Art Fehlanpassungsstörung erhalte. Der Code nicht sogar steigt in die Funktion selbst, es stirbt am Anruf ein. Irgendwelche helfen? 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Dim FILENOVal als ganze Zahl

FILENOVal = PadValue (Val (Len (adoRst („FILENO“))))

Allgemeine Funktion PadValue (ByVal len als ganze Zahl), als Schnur
        Schwaches ReturnValue als Schnur
        Schwaches lenVal als ganze Zahl
        I als ganze Zahl verdunkeln

        ReturnValue = ""
        I = 1
        lenVal = 5 - len

        Wenn <> 5 dann len
            Für i = 1 zu lenVal
                ReturnValue &= „0“
            Zunächst
        Beenden wenn

        PadValue = ReturnValue
    Enden-Funktion

Antwort : Funktions-zurückgehende Art Fehlanpassungsstörung

VAL bringt eine Art DOPPELTES zurück, die Innere einer GANZEN ZAHL nicht ohne Verstümmelung passt. Versuch using CINT inseated von VAL.
Weitere Lösungen  
 
programming4us programming4us