【VBScript】西暦から和暦へ変換する

2023年2月4日VBScript

西暦から和暦へ変換する

VBScriptで、西暦から和暦へ変換する関数と実行例です。

'西暦から和暦に変換する関数
Function SeirekiToWareki(sDate)

	dt = CDate(sDate)

	If dt <= DateSerial(1912, 7, 29) Then
	   gg = "明治"
	   yy = Year(dt) - 1867
	ElseIf dt >= DateSerial(1912, 7, 30) And dt <= DateSerial(1926, 12, 24) Then
	   gg = "大正"
	   yy = Year(dt) - 1911
	ElseIf dt >= DateSerial(1926, 12, 25) And dt <= DateSerial(1989, 1, 7) Then
	   gg = "昭和"
	   yy = Year(dt) - 1925
	ElseIf dt >= DateSerial(1989, 1, 8) And dt <= DateSerial(2019, 3, 3) Then
	   gg = "平成"
	   yy = Year(dt) - 1988
	ElseIf dt >= DateSerial(2019, 4, 1) Then
	   gg = "令和"
	   yy = Year(dt) - 2018
	End If

	SeirekiToWareki = gg & yy & "年" & DatePart("m", sDate) & "月" & DatePart("d", sDate) & "日"

End Function


'実行例
WScript.Echo SeirekiToWareki("2022/9/26")    '令和4年9月26日