Excel VBA function giving "Argument not Optional"

Question

I'm trying to write a VBA function for converting Declination & Right Ascension to their decimal values.

I have a perfectly working function for the RA but keep getting an

Argument not Optional

error.

The function is currently:

Public Function dec2decimal(Deg As Integer, Min2 As Integer, Sec2 As Integer) As Double

    Dim Dec As Double
    Dec = 0
    If Deg >= 0 Then
        Dec = (Deg + Min2 / 60 + Sec2 / 3600)
    Else
        Dec = (Deg - Min2 / 60 - Sec2 / 3600)
    End If

    ra2decimal = Dec
End Function

I'm obviously supplying it three arguements when I run it but its still not happy.

Any ideas?

where and how do you call this function, in excel or in vba editor?? — Kazimierz Jawor
– Kazimierz Jawor, Commented Mar 27, 2013 at 23:43
one more suggestion- check the argument separation characters whether you don't mix them up. — Kazimierz Jawor
– Kazimierz Jawor, Commented Mar 27, 2013 at 23:50
Seems like I've been an idiot and forgot to change the last ra2decimal to dec2decimal. Thanks all. — Fergus Barker
– Fergus Barker, Commented Mar 28, 2013 at 1:26
@FergusBarker you may want to upvote those who offered their assistance here... — David Zemens
– David Zemens, Commented Mar 28, 2013 at 1:54

David Zemens · Accepted Answer · 2013-03-27 23:44:04Z

1

This is working perfectly fine for me.

Note the revision, change ra2decimal to dec2decimal.

Option Explicit
Sub testDec2Decimal()

MsgBox dec2decimal(1, 1, 1)

End Sub

Public Function dec2decimal(Deg As Integer, Min2 As Integer, Sec2 As Integer) As Double

    Dim Dec As Double
    Dec = 0
    If Deg >= 0 Then
        Dec = (Deg + Min2 / 60 + Sec2 / 3600)
    Else
        Dec = (Deg - Min2 / 60 - Sec2 / 3600)
    End If

    dec2decimal = Dec
End Function

answered Mar 27, 2013 at 23:44

David Zemens

53.8k12 gold badges86 silver badges132 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Lajos Arpad · Accepted Answer · 2013-03-28 00:01:10Z

1

Check the following:

are you sure, you are executing the function which you described, is it possible, that another function in another namespace or class is executed?
are you sure you pass the parameters correctly, their type is correct and their number is correct and they are separated by comma?
are you sure you didn't make a typo or called the function through a delegate (which is not a problem, but we should know to be able to help you).

answered Mar 28, 2013 at 0:01

Lajos Arpad

80.5k42 gold badges124 silver badges235 bronze badges

Collectives™ on Stack Overflow

Excel VBA function giving "Argument not Optional"

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related