DatePart関数で年初来何周目を取得  Sub test() ' DatePart関数で年初来何周目を取得    Dim myDate As Date&···