| |
いつもお世話になっております。
まだまだ初心者で、いざ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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
