3

赤緯と赤経を 10 進値に変換するための VBA 関数を作成しようとしています。

私は RA に対して完全に機能する機能を持っていますが、

引数がオプションではありません

エラー。

現在の機能は次のとおりです。

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

私はそれを実行するときに明らかに3つの引数を提供していますが、それでもまだ満足していません。

何か案は？

4

2 に答える 2

1

これは私にとって完全にうまく機能しています。

リビジョンをメモし、 に変更ra2decimalし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
于 2013-03-27T23:44:04.503 に答える
1

以下を確認してください。

  • 説明した関数を実行していますか?別の名前空間またはクラスの別の関数が実行される可能性はありますか?

  • パラメータを正しく渡していますか?それらのタイプは正しく、番号も正しく、カンマで区切られていますか?

  • タイプミスをしたり、デリゲートを介して関数を呼び出したりしていませんか (これは問題ではありませんが、お手伝いできることを知っておく必要があります)。

于 2013-03-28T00:01:10.403 に答える