Sub 今日､今月､今年を取得する()

    今日 = Format(Date, "yyyy年mm月dd日")
    今月 = Format(Date, "yyyy年mm月")
    今年 = Format(Date, "yyyy年")
    
    Range("B1") = 今日
    Range("B2") = 今月
    Range("B3") = 今年

End Sub