質問: invoke code内のプロシージャについて invoke code内で、subやclass、functionを使用すると、以下のようなエラーが必ず出ます。 1ステートメントをメソッド本体の内部に表示することはできません。本体の終了と見なします。 2’end sub’の前には、対応する’sub’を指定しなければなりません。 1は、fuction~と書いた行に出て、 2は一番最後の次の行(200行までしかコードが書かれていないなら、201行)を指して出ます。 また、2はsubを使用していなくても出ます。 エラーを回避する方法はありますでしょうか?
回答: やりかたは色々あるかもですが、こんな方法もあります。 dim firstday as func(of integer, integer, date) = _ function (inty as integer, intm as integer) as date dim day as date day = new datetime(inty, intm, 1) return day end function ' dim year as integer ' invoke codeの引数でテストしました ' dim month as integer ' dim ...