VB.NETで和暦を扱うには
'-----和暦の処理-----
Dim wareki As New System.Globalization.JapaneseCalendar
'--------------------
'-----元号の取得-----
Dim warekiGengou As Integer = wareki.GetEra(System.DateTime.Today)
'1:明治、2:大正、3:昭和、4:平成が戻り値として返ってきます。
'--------------------
'-----年(和暦)の取得-----
Dim warekiYear As Integer = wareki.GetYear(System.DateTime.Today)
'------------------------
とします。