Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'meiji, taisho, showa, heisei, reiwaをInteger宣言。
Dim meiji, taisho, showa, heisei, reiwa As Integer
'TextBox1に何も入れずに［文字コードを表示］をクリックしたら、
'「調べたい西暦を入力してください」をLabel19に表示。
If TextBox1.Text = Nothing Then
Label19.Text = "調べたい西暦を入力してください"
Exit Sub
End If
'Label19をリセット。
'明治元年は1868年でExcelのシリアル値である1900年1月1日基準以前なので、
'1900を引いて、後から32を足すことで逃げ道としました。
’スマートではないですが、動けばOKということで・・・。
'大正元年（1912） 、昭和元年（1926）、平成元年（1989）、令和（2019）は
'そのまま計算してから1を加えます。そうしないと元年が加算されないので。
Label19.ResetText()
meiji = Val(TextBox1.Text - 1900) + 32
taisho = Val(TextBox1.Text - 1912) + 1
showa = Val(TextBox1.Text - 1926) + 1
heisei = Val(TextBox1.Text - 1989) + 1
reiwa = Val(TextBox1.Text - 2019) + 1
'それぞれの年号に計算値を入れて完了Label1.Text = meiji
Label2.Text = taisho
Label3.Text = showa
Label4.Text = heisei
Label5.Text = reiwa
End Sub
-----------------Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'TextBox1、Label1〜Label5、Label19をリセット
TextBox1.ResetText()
Label1.ResetText()
Label2.ResetText()
Label3.ResetText()
Label4.ResetText()
Label5.ResetText()
Label19.ResetText()
End Sub
-----------------Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
'終了
End
End Sub
End Class
-----------------
西暦を入力して［変換］をクリックすれば上の様な表示になります。
Todays Wareki V101
