Format関数で日付を和暦形式に変換

前回VBAでFormat関数の第2引数を変えることにより
日付をいろいろな形式で表示できるとお伝えしましたが、
以下のように様々な和暦の形式にも表示できます。

Sub SampleFormat1()
    Dim strSeireki As String
    
    strSeireki = "1990/3/4"
    
    '年号なし-スラッシュ区切り
    Debug.Print Format(strSeireki, "e/m/d")
    
    '年号(アルファベット1文字)-スラッシュ区切り
    Debug.Print Format(strSeireki, "ge/m/d")
    
    '年号(漢字1文字)-スラッシュ区切り
    Debug.Print Format(strSeireki, "gge/m/d")
    
    '年号(漢字2文字)-スラッシュ区切り
    Debug.Print Format(strSeireki, "ggge/m/d")
       
    '年号(漢字2文字)-e年m月d日
    Debug.Print Format(strSeireki, "ggge年m月d日")
    
    '年号(アルファベット1文字)-スラッシュ区切り-年月日各2桁
    Debug.Print Format(strSeireki, "gee/mm/dd")
    
    '年号(アルファベット1文字)-ドット区切り-年月日各2桁
    Debug.Print Format(strSeireki, "gee.mm.dd")
End Sub

上記の結果としてイミディエイトペインに

2/3/4
H2/3/4
平2/3/4
平成2/3/4
平成2年3月4日
H02/03/04
H02.03.04

と表示されます。