267013 ランダム
 HOME | DIARY | PROFILE 【フォローする】 【ログイン】

【毎日開催】
15記事にいいね!で1ポイント
10秒滞在
いいね! --/--
おめでとうございます!
ミッションを達成しました。
※「ポイントを獲得する」ボタンを押すと広告が表示されます。
x
X

PR

Profile

兎の道化師

兎の道化師

Category

Recent Posts

Keyword Search

▼キーワード検索

Freepage List

2025.01.09
XML
テーマ:つぶやき(12609)
って、日本って、いまだに和暦を
メインで使ってる感じだから

今年って令和何年だっけ?

新聞取ってないし
スマホやパソコンの日付表示見ても
西暦だからわからんし

ま、ググればわかるけど
それもめんどくさいなら・・・・・

<西暦和暦変換.vbs>ーーーーーーーーーーーーーーーー

a = inputbox("西暦を入力","西暦から和暦へ変換")
if a > 2018 then
 b = a - 2018
 msgbox a&"年は令和"&b&"年です"
 else
if a > 1988 then
 b = a - 1988
  msgbox a&"年は平成"&b&"年です"
 else
 if a > 1925 then
  b = a - 1925
   msgbox a&"年は昭和"&b&"年です"
  else
  if a > 1911 then
   b = a - 1911
    msgbox a&"年は大正"&b&"年です"
   else
   if a > 1867 then
    b = a - 1867
     msgbox a&"年は明治"&b&"年です"
   else
     msgbox "年号が範囲外です"
    end if
   end if
  end if
 end if
end if

ーーーーーーーーーーーーーーーーーーーーーーーーーーーー





お気に入りの記事を「いいね!」で応援しよう

Last updated  2025.01.09 01:36:16
コメント(0) | コメントを書く
[💻パソコン・スマホとか] カテゴリの最新記事



© Rakuten Group, Inc.
X