無理矢理…

 ★ こんなものも使ってました ★ 
 ご訪問頂きありがとうございます。アラクリカエシキ(阿良々木)です。
 前々回の記事で令和対応に触れましたが↓こんなのも作ってました。
reiwa.jpg

 ユーザー定義関数で令和元年はのりきりました。
 ↑は画像ですが追記欄にコード載せてます。
Function 和暦(日付 As Date) As String
Select Case True
Case 日付 >= DateValue("2019/05/01")
和暦 = "令和" & Year(日付) - 2018
If 和暦 = "令和1" Then
和暦 = "令和元"
End If
Case 日付 >= DateValue("1989/01/08")
和暦 = "平成" & Year(日付) - 1988
Case 日付 >= DateValue("1929/12/25")
和暦 = "昭和" & Year(日付) - 1925
Case 日付 >= DateValue("1912/07/30")
和暦 = "大正" & Year(日付) - 1911
Case 日付 < DateValue("1904/01/02")
和暦 = "ERROR"
Case Else
和暦 = "明治" & Year(日付) - 1867
End Select
If 和暦 = "ERROR" Then
和暦 = "令和  年 月 日"
Else
和暦 = 和暦 & "年" & Month(日付) & "月" & Day(日付) & "日"
End If
End Function
関連記事
スポンサーサイト



コメントの投稿

非公開コメント

プログラム作ってましたかー

アラクリカエシキさま、凄すぎ!!

プログラム超絶でありましたよー

Re: プログラム作ってましたかー

がちょーさま、こんばんは^^

職場で実際に使ってました。

令和になってもなかなかアップデートされなくて(;^_^A

いつもコメントありがとうございます。
訪問者さま
カレンダー
08 | 2020/09 | 10
- - 1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 - - -
プロフィール

arakurikaesiki

Author:arakurikaesiki
阿良々木(あらくりかえしき)と申します。趣味はらくがき/アクアリウム、好きな小説は物語シリーズです。あと、仕事で楽したいためにExcelのVBAをちょくちょくいじってます。
なお、当ブログはリンクフリーです、よろしければリンク貼ってください。
また、ブロともさまも募集中です。コメントとかもらえるとすごく喜びます。

ブロとも様募集中ですm(_)m

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
季節の変わり目 Sep 01, 2020
ロード長くね? Aug 19, 2020
ルフィを描いてみた Aug 17, 2020
囲んで塗る? Aug 14, 2020
100.00cm Aug 12, 2020
サメ Aug 08, 2020
チョット多すぎる Aug 08, 2020
・・・・・・ Aug 06, 2020
すず Aug 03, 2020
記憶を辿って Aug 03, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
2006位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
64位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
更新通知登録ボタン

更新通知で新しい記事をいち早くお届けします

検索フォーム