スーパーpre記法テスト

メモ

なぜかウチみたいなド文系ブログへのリンク元に「VBA 西暦変換」が増えてきた。
せっかくなのではてなのスーパーpre記法を試してみようかと思う。

Function func西暦変換() As Date

  Dim varSeireki As Variant
  Dim X As String
    varSeireki = InputBox("西暦を入力")
    If IsDate(varSeireki) = True Then
        'インプットボックスに入力された文字列を
        '「(年号)yy年mm月dd日」の形式に変換
        X = MsgBox(Format(varSeireki, "gggee年mm月dd日"))
    Else
        MsgBox "入力内容に誤りがあります。"
    End If
End Function

「>|VB|」って嘘っぱちだけど、どんな風に表示されるかしら。