- 構文
- dateString( 日付 )
- 引数
- 日付
- 和暦に変換したい日付を西暦で指定
- 戻値
- 和暦に変換した日付を返す
プログラム
//////////////////////////////////////////////////
// 【引数】
// 日付 : 和暦に変換したい日付を西暦で指定
// 【戻値】
// 和暦に変換した日付を返す
//////////////////////////////////////////////////
FUNCTION dateString(date)
GETTIME(0, date)
DIM y = G_TIME_YY
DIM m = G_TIME_MM
DIM d = G_TIME_DD
DIM dt = ""
SELECT TRUE
CASE GETTIME(0, date) >= GETTIME(0, "2019/05/01")
dt = "令和" + IIF(y - 2018 = 1, "元", y - 2018) + "年"
CASE GETTIME(0, date) >= GETTIME(0, "1989/01/18")
dt = "平成" + IIF(y - 1988 = 1, "元", y -1988) + "年"
CASE GETTIME(0, date) >= GETTIME(0, "1926/12/25")
dt = "昭和" + IIF(y - 1925 = 1, "元", y -1925) + "年"
CASE GETTIME(0, date) >= GETTIME(0, "1912/07/30")
dt = "大正" + IIF(y - 1911 = 1, "元", y - 1911) + "年"
CASE GETTIME(0, date) >= GETTIME(0, "1868/01/25")
dt = "明治" + IIF(y - 1867 = 1, "元", y - 1867) + "年"
SELEND
RESULT = dt + m + "月" + d + "日"
FEND
//////////////////////////////////////////////////
// 【引数】
// expr : 評価する式
// truepart : 評価した式がTrueのときに返す値
// falsepart : 評価した式がFalseのときに返す値
// 【戻値】
// truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき
//////////////////////////////////////////////////
FUNCTION IIF(expr, truepart, falsepart)
IFB EVAL(expr) THEN
RESULT = truepart
ELSE
RESULT = falsepart
ENDIF
FEND
この記事は役に立ちましたか?