トップ 差分 一覧 ソース 検索 ヘルプ PDF RSS ログイン

copyDateTime2.hsp

copyDateTime2.hsp(117)


; copyDateTime2
; 2014-05-10 sugiura@nagoya-u.jp

; copyDate に時間も出るようにした。

#include "hspext.as" ; HSP拡張DLL が必要 http://www.onionsoft.net/hsp/v33/doclib/hspext.txt

width 175,40

notesel date

date = "" + gettime(0) + "-" + strf("%02d" , gettime(1)) + "-" +  strf("%02d" , gettime(3)) + " " +  strf("%02d" , gettime(4)) + "時" +  strf("%02d" , gettime(5)) + "分" +  strf("%02d" , gettime(6)) 

color 255,255,0
boxf 0,0,175,20

color 0,128,255
boxf 0,20,175,40

color 0,0,0
mes date

clipset date

pos 52,20
button goto "copy", *owari
stop

*owari
wait 30

end