今回は「明治100年（1968年／昭和43年）」という表現で思いついた無駄プログラムです。最後にダウンロードのリンクを貼っています。
画面設計はこんな感じです。Labelの順番がグチャグチャなのは、設計なしで作成した結果で特に意味はありません。
ソースの「-----------------」は区切り線なので記述の必要はありません。
青字は自動入力部分で修正の必要はありません。
黒字が入力部分です。
赤字はコメント文なので記述の必要はありません。
-----------------
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
-----------------
起動直後のパレット
西暦を入力せずに［変換］をクリックすると「調べたい西暦を入力してください」が表示されます。デザイン面でLabel19のプロパティでFontColorを「Red」に設定しておきます。
西暦を入力して［変換］をクリックすれば上の様な表示になります。
Todays Wareki V101クリックするといきなりダウンロードが始まります。実際のプログラム完成日は2022年8月8日です。
Windows版です。
Visual Studio 2022 V17.3.1
