西暦から和暦に変換する .NET でも、西暦から和暦に変換させることが可能です。この機能を使えば、簡単に、西暦の年を和暦の年に変換させる書類アプリケーションや、管理ソフトなど簡単に作成できます。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、テキストボックスコントロール、 ラベルコントロール、 ボタンコントロール を配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。 ┏━━━━━━━━━━━━━━┓ ┃TextBox1 ┃ ┗━━━━━━━━━━━━━━┛ ┏━━━━━━━━━━━━━━┓ ┃Label1 ┃ ┗━━━━━━━━━━━━━━┛ ┏━━━━┓ ┃Button1 ┃ ┗━━━━┛２．ボタンコントロールの Button1 text プロパティに「変換」と記述します。 ※説明用のためです。必須ではありません。 ┏━━━━━━━━━━━━━━┓ ┃TextBox1 ┃ ┗━━━━━━━━━━━━━━┛ ┏━━━━━━━━━━━━━━┓ ┃Label1 ┃ ┗━━━━━━━━━━━━━━┛ ┏━━━━┓ ┃ 変換 ┃ ┗━━━━┛３．ボタンコントロールをダブルクリックして、 ボタンのクリックイベントの編集を開始して、 フォームの宣言部に、次のコードを記述します。 ※フォームクラス定義(Public Class Form1)より、 上に記述してください。 'インポート Imports System Imports System.Globalization さらに、次のコードを記述します。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim culture As CultureInfo = New CultureInfo("ja-JP", True) culture.DateTimeFormat.Calendar = New JapaneseCalendar If (TextBox1.Text < 1900) Then MsgBox("1900年以上から指定してください") Exit Sub End If Dim dt As DateTime = New DateTime(TextBox1.Text, 1, 1) Dim Wareki As String = dt.ToString("ggyy年", culture) Label1.Text = Wareki End Sub４．ビルドして実行します。５．フォームに表示された テキストボックスに数値で「 2004 」を入れます。６．フォームに表示された ボタン「変換」を押します。７．ラベルに「平成」と表示されます-----------VB.NETコーディングここまで-------------------ここでは、ダミーで１月１日を想定してセットしています。 Dim target As DateTime = New DateTime(TextBox1.Text, 1, 1)左から、西暦年、月、日が引数です。
Copyright(c)2001-2003 Ai Net Makoto 記事・情報の無断転載を禁止します。
