トップ 履歴 一覧 Farm ソース 検索 ヘルプ PDF RSS ログイン

copyDateDay2

*disclaimer
777322

HSP
DateDay.hsp

copyDateDay2

  • ボタンを押したら、年月日と曜日がクリップボードにコピーされる
  • 画面上には、一瞬、年月日と曜日が出て、赤くなってプログラムは自動で終了し、クリップボードには情報がコピーされているので、Ctrl+Vで好きなところに日付を入れられる。

; copyDateDay
; 2022-11-02 sugiura@nagoya-u.jp
; copyDate.hspの改良:曜日も出るように
; 2023-01-19 hspext.dllが同じフォルダー内に必要なので、その警告を付けたし 
; 2024-08-08 内容をクリップボードにコピーしたら自動で終了するようにした。

#packopt name "DateDay2"
#packopt icon "DateDay.ico"
#include "hspext.as"

exist "hspext.dll"
	if strsize = -1 {
		mes "hspext.dllファイルが必要です"
		stop
	}

width 60,40

notesel date

yobi = "日","月","火","水","木","金","土"

date = " " + gettime(0) + "-" + strf("%02d" , gettime(1)) + "-" +  strf("%02d" , gettime(3))+ " (" +   yobi(gettime(2))+ ")"

color 255,128,0
boxf 0,0,130,20

color 0,0,0
mes date

clipset date

pos 20,20
wait 100
color 255,0,0: boxf
goto *owari
;button goto "copy", *owari
stop

*owari
wait 30

end


DateDay2.exe(26)