| |
KTさんのご指摘のとおり、@_TIME システム変数を利用すれば実現できます。
参考までに、誕生日入力サンプルと、現在の日付が誕生日だった場合に
別ラベルへジャンプするサンプルを以下に書いておきます。
スタート。
#月の入力
\INPUT.STR($L(1), "誕生日の月を1〜12で入力してください。", "", "月の入力")
@L(1) = @($L(1))
\GO.IF(@L(1)>=1 && @L(1)<=12, 日の入力, 月の入力エラー)
#月の入力エラー
\DIALOG("月の入力に誤りがあります。")
\GO(月の入力)
#日の入力
\INPUT.STR($L(2), "誕生日の日を1〜31で入力してください。", "", "日の入力")
@L(2) = @($L(2))
\GO.IF(@L(2)>=1 && @L(2)<=31, 入力終了, 日の入力エラー)
#日の入力エラー
\DIALOG("日の入力に誤りがあります。")
\GO(日の入力)
#入力終了
入力した月日は _[@L(1)]月_[@L(2)]日です。
//今日が誕生日かどうかチェック
\GO.IF(@_TIME(0,1)==@L(1) && @_TIME(0,2)==@L(2), 誕生日イベント, 通常イベント)
#誕生日イベント
今日は誕生日ですね。おめでとうこざいます。
#通常イベント
今日もいい天気。
|
|
|
- 2011/10/21(金) 3:55 -
