vbaで前月同日をどう書くか？そして、それをファイル名にするにはどうすればいいのか？

vbaで前月同日は以下のように１ケ月、日を戻すdateaddで取得できる。

dateadd("m",-1,Date-1)

これを利用して、fileNameという変数に前月同日の文字列を入れるには、以下のようにコーディングする。

fileDate = Year(dateadd("m",-1,Date-1)) & Format(dateadd("m",-1,Date-1,"mm") & Format(dateadd("m",-1,Date-1),"dd")

yearもformatで出した方がいいかな

fileDate = format(dateadd("m",-1,Date-1),"yyyy") & Format(dateadd("m",-1,Date-1,"mm") & Format(dateadd("m",-1,Date-1),"dd")

　実は、最後のFormat(dateadd("m",-1,Date-1),"dd")をFormat(Date-1),"dd")としてしまい、変な日付のファイル名になってしまった。ハハハ。人生にはいろんなことが起こる。一筋縄ではいかないこともある。え、こんなミス、したの？あり得ない。

ここで、一息のコーナーだ。

　先日、特定検診をした。最初は、大きな病院の検診センターみたいなところを探したのだが、いつも予約で一杯。そこで、近所の病院の特定検診にしてみた。歩いていけたし、長い待ち行列はなかったし、意外と良かった。来年もこれでいいなぁと思った。遠くの大病院よりも近くの診療所かな。検査の科目ごとに名前と住所など書類を何個も書かされたのには、閉口した。