どちらかというと、自分がやるならばDo-Whle関数など使うやり方はしないなぁhhttp://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_t05.htmのように、西暦1年1月1日を起算日として計算してしまう。