;月ごとの最初の日付 dim month_d,13 month_d=0,0,31,59,90,120,151,181,212,243,273,304,334 ;この日まで何日か yy=2001 mm=1 dd=1 ;現在時刻 gettime y,0 gettime m,1 gettime d,3 ;計算 N_time=y*365+(y/4)-(y/100)+(y/400)+month_d.m+d N_time-=m<3&(y\4==0)&((y\100!=0)|(y\400==0)) ; B_time=yy*365+(yy/4)-(yy/100)+(yy/400)+month_d.mm+dd B_time-=mm<3&(yy\4==0)&( yy\100!=0 |(yy\400==0)) ; inte=B_time-N_time mes "あと"+inte+"日" stop