Finns det någon möjlighet att kunna returnera mer än ett värde från en funktion, då menar jag två beräknade värde och inte en flagga

/Ingrid

<code>
Dim c As Integer
Dim d As Integer
Dim e As Boolean

e = MinFunktion(c, d)






Function MinFunktion(ByRef a As Integer, ByRef b As Integer) As Boolean
a = 1
b = 2
MinFunktion = True
End Function
</code>

/Johan

Tack

/Ingrid

Det är ful-programering att ändra på parametrar. :oP
Jag skulle föreslå att man istället skapar en klass eller en UDT(User Defined Type).

Type MyType
    ValueA As Double
    ValueB As Double
End Type

Function MyFunction(X As Double, Y As Double) As MyType
    MyFunction.ValueA = X + Y
    MyFunction.ValueB = X * Y
End Function

Sub TestMyFunction()
Dim Result As MyType
    
    Result = MyFunction(1, 2)
    
    Debug.Print "Value A: " & Result.ValueA
    Debug.Print "Value B: " & Result.ValueB
End Sub

He j Andreas,
är det meningen att man ska deklarera den egna typen i en egen modul?

/Ingrid

Ja, om typen skall vara tillgänglig från andra moduler/klasser.
Anropas metoden internt innom furmuläret/klassen behöver inte datatypen vara deklarerad publik. Därför kan den då deklareras i furmuläret/klassen.