当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。

テクてく Lotus 技術者 Slack に参加しよう!

2008年5月9日金曜日

曜日の割り出し

日付の操作のうち、曜日を算出するサンプル。
このサンプルは、入力した日付の曜日を出力してくれるので、
自分の誕生日が何曜日だったのか?などというものに使うと楽しいかも。

HIDUKE := @Prompt([OkCancelEdit];"日付の入力";"日付を入力してください。";@Text(@Today;"D0S0"));

TMP1 := @Weekday(@TextToTime(HIDUKE));
TMP2 := @ReplaceSubstring(@Text(TMP1);"1":"2":"3":"4":"5":"6":"7";"日":"月":"火":"水":"木":"金":"土");
@Prompt([Ok];"曜日の割り出し";HIDUKE + "は、" + TMP2 + "曜日です。")


0 件のコメント: