How to enter data 'ranges' in tables ...?

[boblarson]

Then a slight fix is in order:

Function ReturnMidpoint(varInput As Variant) As Long
    Dim strHold As String
    Dim strCase As String
    Dim lng    As Long
    If Len(varInput & vbNullString) > 0 Then
        If InStr(1, varInput, "-") > 0 Then
            Dim varSplit As Variant
            varSplit = VBA.Split(varInput, "-")
            ReturnMidpoint = ((varSplit(1) - varSplit(0)) / 2) + varSplit(0)
        Else
            For lng = 1 To Len(varInput)
                strCase = Mid(varInput, lng, 1)
                Select Case strCase
                    Case 0 To 9
                        strHold = strHold & strCase
                    Case "."
                        strHold = strHold & strCase
                End Select
            Next
            If strHold <> varInput Then
                ReturnMidpoint = strHold / 2
            Else
                ReturnMidpoint = varInput
            End If
        End If
    Else
        ReturnMidpoint = 0
    End If
End Function

[Captain Database ...!!]

Okay, now it's returning just the first number of the fructification level; showing 2 if the level is 2.5. I thought that this would be just a format-issue, although when I changed it to standard the number resulting from 2.5 was still 2.00. If it's a range, I need the midpoint; otherwise, any non-range data may be repeated as-is:

Fructification Level ----> Fructification Number
4 ----> 4
4.5 ----> 4.5
0 - 10 ----> 5

[boblarson]

Sorry, I forgot that it compared the incoming with the outgoing. So for those with decimal places I need to modify this part:

 If strHold <> varInput Then

to this:

 If strHold <> varInput And Instr(1, strHold, ".") = 0 Then

[Captain Database ...!!]

Okay, I have it written like the attached (correct?) ...

...but for some reason I'm still not getting the decimals; is an earlier clause

preventing the later from taking effect?

[boblarson]

Boy do I feel dumb. It is necessary to change the type:

Function ReturnMidpoint(varInput As Variant) As Long

to

Function ReturnMidpoint(varInput As Variant) As Double

[Captain Database ...!!]

Yupp .. that did 'er ... thanx .. lol .. and, clearly, I'm the dumb one ..