![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
ユーザの誕生日を覚えさせよう。
他の日付でも基本はいっしょ。
時刻を覚えさせる場合にも応用できるかも。
※関数のis_empty、is_digit、substr、nswitch、calcを使っています。
動かない場合はSAORIの設定を見直してみてください。
＃「OnUserInput」が他に既にある場合は書き足すか書き換えます。 ＊OnUserInput ＞（Ｒ０）を空打ちされた【タブ】（is_empty,（Ｒ１）） ＄（Ｒ０）【タブ】（Ｒ１） ＞（Ｒ０）を教えてもらった ＊誕生日入力開始 ：\![open,inputbox,ユーザ誕生月日]誕生日と月を３桁以上で入力してね ＊ユーザ誕生月日を空打ちされた ：教えてくれないんだ……。 ＊ユーザ誕生月日を教えてもらった ＄仮ユーザ誕生月＝（iflist、（length,（ユーザ誕生月日））、==4、（substr,（ユーザ誕生月日）,０,２）、==2、（substr,（ユーザ誕生月日）,０,１）、（if、（compare_head,（ユーザ誕生月日）,０）==１、（substr,（ユーザ誕生月日）,１,１）、（substr,（ユーザ誕生月日）,０,１））） ＄仮ユーザ誕生日＝（if、（length,（ユーザ誕生月日））==４、（substr,（ユーザ誕生月日）,２,２）、（substr,（ユーザ誕生月日）,１,２）） ＄ユーザ誕生月日【タブ】 ＞ユーザ誕生月日がおかしい【タブ】!（不正誕生月日チェック） ＞誕生日入力確認 ＊ユーザ誕生月日がおかしい ：（仮ユーザ誕生月）月（仮ユーザ誕生日）日ってなに？ ちゃんとした日付を教えてよ！ ＄仮ユーザ誕生月【タブ】 ＄仮ユーザ誕生日【タブ】 ＠不正誕生月日チェック （when,（is_digit（バイト値、１）（仮ユーザ誕生月））&&（is_digit（バイト値、１）（仮ユーザ誕生日）） ,（when,（仮ユーザ誕生月）＞＝１&&（仮ユーザ誕生月）＜＝１２&&（仮ユーザ誕生日）＞＝１ ,（calc,（仮ユーザ誕生日）＜＝（nswitch,（仮ユーザ誕生月）,３１,２９,３１,３０,３１,３０,３１,３１,３０,３１,３０,３１）） ,０ ） ） ＊誕生日入力確認 ＄ユーザ誕生月【タブ】（仮ユーザ誕生月） ＄ユーザ誕生日【タブ】（仮ユーザ誕生日） ＄仮ユーザ誕生月【タブ】 ＄仮ユーザ誕生日【タブ】 ：（ユーザ誕生月）月（ユーザ誕生日）日だね！ おぼえたよ！
長所
短所
※関数のnswitchを使っています。
動かない場合はSAORIの設定を見直してみてください。
＊誕生日の月を選ぶ ：生まれた月を選んでね！\_q \q[１,誕生日の日を選ぶ] \q[２,誕生日の日を選ぶ] \q[３,誕生日の日を選ぶ] \q[４,誕生日の日を選ぶ] \q[５,誕生日の日を選ぶ] \q[６,誕生日の日を選ぶ] \q[７,誕生日の日を選ぶ] \q[８,誕生日の日を選ぶ] \q[９,誕生日の日を選ぶ] \q[１０,誕生日の日を選ぶ] \q[１１,誕生日の日を選ぶ] \q[１２,誕生日の日を選ぶ] ＊誕生日の日を選ぶ ＄ユーザ誕生月＝（選択ラベル） ：今度は生まれた日を選んでね\_q \q[１,誕生日確認] \q[２,誕生日確認] \q[３,誕生日確認] \q[４,誕生日確認] \q[５,誕生日確認] \q[６,誕生日確認] \q[７,誕生日確認] \q[８,誕生日確認] \q[９,誕生日確認] \q[１０,誕生日確認] \q[１１,誕生日確認] \q[１２,誕生日確認] \q[１３,誕生日確認] \q[１４,誕生日確認] \q[１５,誕生日確認] \q[１６,誕生日確認] \q[１７,誕生日確認] \q[１８,誕生日確認] \q[１９,誕生日確認] \q[２０,誕生日確認] \q[２１,誕生日確認] \q[２２,誕生日確認] \q[２３,誕生日確認] \q[２４,誕生日確認] \q[２５,誕生日確認] \q[２６,誕生日確認] \q[２７,誕生日確認] \q[２８,誕生日確認] \q[２９,誕生日確認]（誕生日の日を選ぶ＿末日） ＠誕生日の日を選ぶ＿末日 （nswitch、（誕生月） 、\q[３０,誕生日確認] \q[３１,誕生日確認] 、 、\q[３０,誕生日確認] \q[３１,誕生日確認] 、\q[３０,誕生日確認] 、\q[３０,誕生日確認] \q[３１,誕生日確認] 、\q[３０,誕生日確認] 、\q[３０,誕生日確認] \q[３１,誕生日確認] 、\q[３０,誕生日確認] \q[３１,誕生日確認] 、\q[３０,誕生日確認] 、\q[３０,誕生日確認] \q[３１,誕生日確認] 、\q[３０,誕生日確認] 、\q[３０,誕生日確認] \q[３１,誕生日確認] ） ＊誕生日確認 ＄ユーザ誕生日＝（選択ラベル） ：（ユーザ誕生月）月（ユーザ誕生日）日生まれなんだー。
長所
短所
#ref(): File not found: "848596638.png" at page "誕生日を覚えさせる"
※関数のsplitを使っています。
動かない場合はSAORIの設定を見直してみてください。
＃「OnUserInput」が他に既にある場合は書き換えるなどします。 ＊OnUserInput ＄（Ｒ０）【タブ】（Ｒ１） ＞（Ｒ０）を教えてもらった ＊誕生日入力開始 ：\![open,dateinput,ユーザ誕生月日]誕生日を教えてね。 ＊ユーザ誕生月日を教えてもらった ＄ダミー行【タブ】（nop,（split（バイト値、１）（ユーザ誕生月日）（バイト値、１）,）） ＄ユーザ誕生月【タブ】（Ｓ１） ＄ユーザ誕生日【タブ】（Ｓ２） ＄ユーザ誕生月日【タブ】 ：（ユーザ誕生月）月（ユーザ誕生日）日だね！ おぼえたよ！
長所
短所
ＳＳＰ本体設定で入力されている情報を取得することも可能です。
下記のページを参照してください。
SSPに入力されたユーザ情報を使う
長所
短所
ようこそ里々wikiへ！
初めての方へ
