Vraag : Het terugkeren van de functie de fout van de Wanverhouding van het Type

Ik heb de code u verder ziet, geschreven in VB6. Ik bevolk int. veranderlijke FILENOVal met de terugkeerwaarde van de functie PadValue. Het schijnt dat geen kwestie hoe ik probeer om de waarden in de vraag aan de functie te gieten, ik de fout van de Wanverhouding van het Type krijg. De code zal niet zelfs in de functie zelf gaan, sterft het bij de vraag. Om het even welk helpen?
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Dim FILENOVal als Geheel

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

Overheidsfunctie PadValue (ByVal len als Geheel) als Koord
        Schemerige ReturnValue als Koord
        Schemerige lenVal als Geheel
        Schemerige I als Geheel

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

        Als len <> 5 toen
            Voor I = 1 aan lenVal
                ReturnValue &= „0“
            Daarna
        Eind als

        PadValue = ReturnValue
    De Functie van het eind

Antwoord : Het terugkeren van de functie de fout van de Wanverhouding van het Type

VAL keert een type van DUBBEL terug, dat niet binnen van een GEHEEL zonder beknotting zal passen. Probeer gebruikend CINT inseated van VAL.
Andere oplossingen  
 
programming4us programming4us