|
■No56980 (皐 さん) に返信
'--- 整数を年、月、日で分割
Dim YrMn as Integer = 20110212 \ 100 '<--- 20110112ではなく20110212にしました。
Dim Dy as Integer = 20110212 mod 100
Dim Mn as Integer = YrMn mod 100
Dim Yr as Integer = YrMn \ 100
'--- 日付に変換
Dim dtRes as new Date(Yr, Mn, Dy)
'--- 和暦用カレンダーでフォーマット
Dim culture As New Globalization.CultureInfo("ja-JP", True)
culture.DateTimeFormat.Calendar = New Globalization.JapaneseCalendar()
Dim strFmtDate as String = dtRes.ToString("ggyy年MM月dd日", culture)
|