UWSC辞典

構文

dateString( 日付 )

引数

日付

和暦に変換したい日付を西暦で指定

戻値

和暦に変換した日付を返す

プログラム

//////////////////////////////////////////////////
// 【引数】
//   日付 : 和暦に変換したい日付を西暦で指定 
// 【戻値】
//   和暦に変換した日付を返す 
//////////////////////////////////////////////////
FUNCTION dateString(date)
	GETTIME(0, date)
	y = G_TIME_YY4
	SELECT TRUE
		CASE y > 2019
			jc = "令和" + (y - 2018) + "年"
		CASE y = 2019
			jc = "令和元年"
		CASE y > 1989
			jc = "平成" + (y - 1988) + "年"
		CASE y = 1989
			jc = "平成元年"
		CASE y > 1926
			jc = "昭和" + (y - 1925) + "年"
		CASE y = 1926
			jc = "昭和元年"
		CASE y > 1912
			jc = "大正" + (y - 1911) + "年"
		CASE y = 1912
			jc = "大正元年"
		CASE y > 1868
			jc = "明治" + (y - 1867) + "年"
		CASE y = 1868
			jc = "明治元年"
		DEFAULT
			RESULT = ERR_VALUE
			EXIT
	SELEND
	RESULT = jc + G_TIME_MM2 + "月" + G_TIME_DD2 + "日"
FEND//////////////////////////////////////////////////
// 【引数】
//   日付 : 和暦に変換したい日付を西暦で指定 
// 【戻値】
//   和暦に変換した日付を返す 
//////////////////////////////////////////////////
FUNCTION dateString(date)
	GETTIME(0, date)
	y = G_TIME_YY4
	SELECT TRUE
		CASE y > 2019
			jc = "令和" + (y - 2018) + "年"
		CASE y = 2019
			jc = "令和元年"
		CASE y > 1989
			jc = "平成" + (y - 1988) + "年"
		CASE y = 1989
			jc = "平成元年"
		CASE y > 1926
			jc = "昭和" + (y - 1925) + "年"
		CASE y = 1926
			jc = "昭和元年"
		CASE y > 1912
			jc = "大正" + (y - 1911) + "年"
		CASE y = 1912
			jc = "大正元年"
		CASE y > 1868
			jc = "明治" + (y - 1867) + "年"
		CASE y = 1868
			jc = "明治元年"
		DEFAULT
			RESULT = ERR_VALUE
			EXIT
	SELEND
	RESULT = jc + G_TIME_MM2 + "月" + G_TIME_DD2 + "日"
FEND