Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement