Type mismatch in function

[cyberdwarf]

Hi

Any idea why the following (cut down) function gives a "Type Mismatch" error?
I've tried almost everything, in terms of arrays, etc, but I need to pass back 3 values (int, int, double)
"GradeData" is simply a user-defined type containing 2 integers and a double..

Public Function GroupGradeCount(GroupIdent As Integer, GradeIdent As Integer, ColNum As Integer) As GradeData
    Dim Res1 As Integer
    Dim Res2 As Integer
    Dim Res3 As Double
    Dim retVar As GradeData
    Res1 = 19
    Res2 = 21
    Res3 = 100 * (Res1 / Res2)
    retVar.Count = Res1
    retVar.Total = Res2
    retVar.Percent = Res3
    GroupGradeCount = retVar
End Function

All suggestions gratefully received.

TIA

Steve

[NeoPa]

Don't you need to use Set for the last line :

Set GroupGradeCount = retVar

[MMcCarthy]

Hi

Any idea why the following (cut down) function gives a "Type Mismatch" error?
I've tried almost everything, in terms of arrays, etc, but I need to pass back 3 values (int, int, double)
"GradeData" is simply a user-defined type containing 2 integers and a double..

Public Function GroupGradeCount(GroupIdent As Integer, GradeIdent As Integer, ColNum As Integer) As GradeData
    Dim Res1 As Integer
    Dim Res2 As Integer
    Dim Res3 As Double
    Dim retVar As GradeData
    Res1 = 19
    Res2 = 21
    Res3 = 100 * (Res1 / Res2)
    retVar.Count = Res1
    retVar.Total = Res2
    retVar.Percent = Res3
    GroupGradeCount = retVar
End Function

All suggestions gratefully received.

TIA

Steve

Which line exactly is the code breaking on?

[ADezii]

Hi

Any idea why the following (cut down) function gives a "Type Mismatch" error?
I've tried almost everything, in terms of arrays, etc, but I need to pass back 3 values (int, int, double)
"GradeData" is simply a user-defined type containing 2 integers and a double..

Public Function GroupGradeCount(GroupIdent As Integer, GradeIdent As Integer, ColNum As Integer) As GradeData
    Dim Res1 As Integer
    Dim Res2 As Integer
    Dim Res3 As Double
    Dim retVar As GradeData
    Res1 = 19
    Res2 = 21
    Res3 = 100 * (Res1 / Res2)
    retVar.Count = Res1
    retVar.Total = Res2
    retVar.Percent = Res3
    GroupGradeCount = retVar
End Function

All suggestions gratefully received.

TIA

Steve

If you pass a String Variable to either of the Arguments of the GroupGradeCount Function, you will receive a Type Mismatch Error. Could this be the case? When passed 3 Integers, 2 Integers and a Double will successfully be returned by the Function via the User Defined Type. The code works fine in the below context:

Public Type GradeData
  Count As Integer
  Total As Integer
  Percent As Double
End Type

Dim M As GradeData
M = GroupGradeCount(341, 2898, 454)
MsgBox M.Count      'Integer
MsgBox M.Total      'Integer
MsgBox M.Percent    'Double