|
1ケ月のサイクルが21〜20日で、
21日から20日がワンサイクルの月次決算の会社です。
一度教えていただいたつもりですが、分からないことが発生しました。
このサイクルでファイルをフォルダーに収納しています。
このコードでClngの必要性があるのでしょうか?無くっても良いような
気がするのですが・・・
Clngはどのような役割をしているのでしょうか?
ご存知でしたら教えてください。
Dim dt1 As Date
Dim dt2 As Date
dt1 = Cells(4, 4).Value
dt2 = dt1
If Day(dt1) > 20 Then
dt2 = DateSerial(Year(dt1), Month(dt1) + 1, Day(dt1))
dt2 = DateSerial(Year(dt2), Month(dt2) + CLng(Day(dt1) <> Day(dt2)), Day(dt2))
End If
On Error Resume Next
ActiveWorkbook.SaveAs Filename:= _
"U:\AAA" & Format(dt2, "e-m") & "月分\BB明細表" & _
Format(Date, "mm-dd") & ".xls"
On Error GoTo 0
|
|