vb6.Format関数 新元号対応について

Question

いつもお世話になっております。
新井と申します。

VB.NETで「vb6.Format」関数を使用して入力したデータが
日付型か評価しているシステムがあるのですが、
元号が変わった場合、vb6.Format関数の変換に関して
Windows Updateなどで更新されるのでしょうか。

何かご存知の方がいらっしゃれば、情報をご提供いただけると幸いです。


開発ツール = Visual Basic 2008

Answer 1

こんにちは。

こちらに関連しそうな話題がありましたので、アドレスを張っておきます。

https://social.msdn.microsoft.com/Forums/ja-JP/09660092-9047-42b6-a8da-0246449e1496/vb6format?forum=vsgeneralja

Answer 2

新しい元号は Windows Update によってレジストリの下記の場所に情報が追加されるようです。

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Calendars\Japanese\Eras\

仮に新しい元号を、上記レジストリに登録して確認してみましたが、

.NET Framework のバージョンによらず、VB6.Format は新しい元号を取得できませんでした。

元号を取得する別の方法

Dim jp As New CultureInfo("ja-jp", True)
jp.DateTimeFormat.Calendar = New JapaneseCalendar()
Dim dt As Date = Now
Label2.Text = dt.ToString("gy年MM月dd日", jp)

上記のコード かつ .NET Framework 4以降で正しく元号を取得できました。現時点では VB6.Format は新しい元号に対応できていないようですので、コードを修正する必要がありそうです。

参考サイト:
https://social.msdn.microsoft.com/Forums/ja-JP/a93ec79d-69a5-4bb7-ae5d-a8aabfdcb9dd
http://dobon.net/vb/dotnet/string/datetimeformat.html

Answer 3

現状、その仕組みが用意されていないもの、予定が公表されていないものについてどうなるかはわかりません。

予防的に対応されるのであれば、現状でもレジストリを書くだけで切り替わる仕組みが用意されている手段に乗り換えることが楽でしょう。

それ以外の方法は現時点で確かなことはわかりません。
対応されるかされないかは Microsoft の決定次第ですが、現時点で具体的な予定は明かされていませんので、Microsoft の有償サポートで聞き出す以外の手はないでしょう。
（ただし、聞いても教えてくれるかはわかりません）

Answer 4

皆様ご回答ありがとうございます。

「vb6.Format」関数を使用しない方法を提案しようと思います。

また何かありましたらよろしくお願いいたします。