Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16768 / 76732 ←次へ | 前へ→

【65428】Function プロシージャ
質問  NGI  - 10/5/20(木) 11:10 -

引用なし
パスワード
   いつもお世話になっております。
まだまだ初心者で、いざfunctionプロシージャに挑戦してみたのですが、
結果として、「Typeブロック外では無効なステートメントです。」
というコンパイルエラーができてしまいます。

具体的にしようと思った作業は、日付データをとってきて、
15日よりも前ならその次の一日、15日よりもあとならば、
その次の末日を返す部分をfunctionで出そうと思ったのです。

あまりに稚拙な質問かと思いますが、何卒よろしくお願いします。


Sub tenki_01()

  Dim DTMinashi As Date
  Dim DT As Date
  
  DT = Range("D5").Value
  DTMinashi = Minashi(DT)
  Range("K5").Value = DTMinashi


End Sub


Function Minashi(DT As Date) As Date
  DTMinashi As Long
    If Day(DT) < 15 Then
      DTMinashi = DateSerial(Year(DT), Month(DT), 1)
    Else
      DTMinashi = DateSerial(Year(DT), Month(DT) + 1, 0)
    End If
  Minashi = DTMinashi
End Function
1 hits

【65428】Function プロシージャ NGI 10/5/20(木) 11:10 質問
【65429】Re:Function プロシージャ Jaka 10/5/20(木) 11:19 発言
【65430】Re:Function プロシージャ NGI 10/5/20(木) 11:40 質問
【65431】Re:Function プロシージャ Jaka 10/5/20(木) 12:03 発言
【65433】Re:Function プロシージャ NGI 10/5/20(木) 13:18 お礼

16768 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free