【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






西暦から和暦に変換する

.NET でも、西暦から和暦に変換させることが可能です。

この機能を使えば、簡単に、西暦の年を和暦の年に変換
させる書類アプリケーションや、管理ソフト
など簡単に作成できます。


フォームに次の様なコードを記述します


-----------VB.NETコーディングここから-------------------


1.フォームに、テキストボックスコントロール、
    ラベルコントロール、
    ボタンコントロール
    を配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。

   ┏━━━━━━━━━━━━━━┓
   ┃TextBox1                    ┃
   ┗━━━━━━━━━━━━━━┛
   ┏━━━━━━━━━━━━━━┓
   ┃Label1                      ┃
   ┗━━━━━━━━━━━━━━┛
   ┏━━━━┓
   ┃Button1 ┃
   ┗━━━━┛



2.ボタンコントロールの
    Button1 text プロパティに「変換」と記述します。
  ※説明用のためです。必須ではありません。

   ┏━━━━━━━━━━━━━━┓
   ┃TextBox1                    ┃
   ┗━━━━━━━━━━━━━━┛
   ┏━━━━━━━━━━━━━━┓
   ┃Label1                      ┃
   ┗━━━━━━━━━━━━━━┛
   ┏━━━━┓
   ┃ 変換   ┃
   ┗━━━━┛




3.ボタンコントロールをダブルクリックして、
    ボタンのクリックイベントの編集を開始して、
    フォームの宣言部に、次のコードを記述します。
    ※フォームクラス定義(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


4.ビルドして実行します。

5.フォームに表示された
    テキストボックスに数値で「 2004 」を入れます。

6.フォームに表示された
    ボタン「変換」を押します。

7.ラベルに「平成」と表示されます





-----------VB.NETコーディングここまで-------------------

ここでは、ダミーで1月1日を想定してセットしています。

   Dim target As DateTime = New DateTime(TextBox1.Text, 1, 1)

左から、西暦年、月、日が引数です。



 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=O7u

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2018/10/21(日)00:05 更新