return array à partir d'une fonction en VBA

Tous,

Je voudrais écrire une fonction qui retourne un tableau d'entiers, de sorte que je peux index, mais je ne suis pas au courant de la syntaxe de VBA. Voici le pseudo-code:

function getStats() as integer
    dim returnVal(4) as integer
    returnVal(0)=c2percent14
    returnVal(1)=c3percent14
    returnVal(2)=c4percent14
    returnVal(3)=c5percent14
    getStats=returnVal
end function

msgbox getStats(3)

où ces valeurs sont des nombres entiers, ou devrait être, et puis je peux indexer le tableau de résultats pour la stat que je veux. Merci.

-Rik

InformationsquelleAutor Rik | 2015-07-22
  1. 6
    Function getStats() As Variant

    getStats est maintenant un Tableau et pas un Entier

    InformationsquelleAutor Tim
  2. 24

    Donner la fonction, le type d'un tableau:

    function getStats() as integer()    
    dim returnVal(4) as integer

    returnVal(0) = c2percent14
    returnVal(1) = c3percent14
    returnVal(2) = c4percent14
    returnVal(3) = c5percent14

    getStats = returnVal

end function

Sub mysub()

   Dim myArray(4) As String

   myArray = getStats()

   msgbox myArray(3)

end sub
    • Sont à la fois des réponses robustes dans leur utilisation? Ou bien est-on la préférence sur les autres/ont-ils des propriétés différentes qui conduisent à certains cas d'utilisation dans lequel on peut être avantageux ou disadavantageous?
    • J'utilise MS-Access 365: Dim montableau(4) Que la Chaîne ne fonctionne plus. Pour moi œuvres: Dim montableau Comme Variante
    • Vous pouvez utiliser Dim myArray() As String vous juste ne pouvez pas dicter ce tableau de taille sera retourné.
    InformationsquelleAutor moffeltje