| |
自分が考えていたものよりずっとすっきりしています、助かります！
まさかこちらの方までご教示頂けると思わず返信遅れてすみません。
本当に助かりました！ 有難うございます＾＾
>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 -