'変数宣言
Dim
dt
as
string
=
""
'西暦から和暦に変換
Dim
myCi
As
New
System.Globalization.CultureInfo
(
"ja-JP"
,
True
)
myCi.DateTimeFormat.Calendar
=
New
System.Globalization.JapaneseCalendar
()
'西暦から和暦に変換
dt
=
Today.ToString
(
"yy"
,
myCi
)