前日翌日日付の算出(BASIC!)

snippet-hizuke.txt

REM Start of BASIC! Program

y$="2016"
m$="02"
d$="28"
h$="00"
n$="00"
s$="00"
today$=y$+m$+d$+h$+n$+s$


print "基準となる時間:";today$

yy=val(y$)
mm=val(m$)
dd=val(d$)
hh=val(h$)
nn=val(n$)
ss=val(s$)


aaa=time(yy,mm,dd,hh,nn,ss)

bbb=aaa+24*60*60*1000

tomo$=using$("","%tY%tm%td%tH%tM%tS",int(bbb),int(bbb),int(bbb),int(bbb),int(bbb),int(bbb))

print "24時間後の時間:";tomo$

tomohzk$=using$("","%tY%tm%td",int(bbb),int(bbb),int(bbb))

print "翌日の日付:";tomohzk$

ccc=aaa-24*60*60*1000

zen$=using$("","%tY%tm%td%tH%tM%tS",int(ccc),int(ccc),int(ccc),int(ccc),int(ccc),int(ccc))

print "24時間前の時間:";zen$

zenhzk$=using$("","%tY%tm%td",int(ccc),int(ccc),int(ccc))

print "前日の日付:";zenhzk$


end