System.Globalization 名前空間が提供する CultureInfo クラスは各地域の文化固有の情報を扱うことができます
インスタンス作成時のパラメータに "ja-JP" を付けると 日本語の日本に関する固有情報を扱うことができるようになります
この情報も 標準では西暦 (グレゴリオ暦) となるので JapaneseCalendar クラスを使用して和暦変換します
後は CultureInfo を使用して DateTime 型の値を ToString メソッドで指定した書式に変換します
年号を取得する場合には 書式文字列は "gg" となります
Imports System.Globalization Dim culture As CultureInfo = New CultureInfo("ja-JP", True) culture.DateTimeFormat.Calendar = New JapaneseCalendar Dim st_Nengo As String = System.DateTime.Today.ToString("gg", culture)