| マイクロソフト西暦 2000 年対応情報開示リソース センター
|
Visual Basic 3.0 16-bit Win
|
開発製品:
Visual Basic |
バージョン:
3.0 16-bit Win |
デザイン時: 非対応 |
|
このツールを使って ｢マイクロソフト西暦 2000 年対応」 に準拠するアプリケーションを構築できますか
はい |
|
言語:
English, French, German, Italian, Spanish |
対応期間: 2000 年 1 月 1 日 2 桁の年を利用する場合 |
発売日:
1993 |
|
必要なソフトウェア: 以下を参照 |
|
依存する製品: MS-DOS, Windows 3.1, Windows NT 4 Service Pack 4 および対応ソフトウェアアップデート, Windows NT 3.51 Service Pack 5 および対応ソフトウェアアップデート, Windows 95 OSR2, Windows 98 および対応ソフトウェアアップデート |
|
依存するクロック:
システムクロック, Visual Basic runtime, (OLE) Automation Libraries |
|
カテゴリ: 開発製品 |
この情報は次の製品に適用されます
Microsoft Visual Basic 3.0 および 2.0 の Standard Edition および Professional Edition
Windows バージョン 1.0 の Microsoft Visual Basic プログラミング システム
既知の問題:
VB 3.0、2.0、1.0:
Visual Basic 3.0 以前のバージョンでは、下 2 桁の西暦はすべて 1900 年代に変換されます。
KB #Q162718 を参照してください。
Visual Basic バージョン 1、2、3 での西暦 2000 年対応の VB アプリケーションの作成
マイクロソフトでは、Visual Basic 3.0 以前のバージョンは西暦 2000 年問題に非対応として分類されていますが、以下に説明するガイドラインに従うことにより、開発者は西暦 2000 年に完全に対応するアプリケーションを作成することができます。Visual Basic 3.0 以前のバージョンでは、渡された下 2 桁の日付 (45 年 7 月 3 日など) は、1900 年代と解釈されます。多くの場合、4 桁の日付フィールドに変換することでアプリケーションを簡単に変更して、西暦 2000 年に対応するように再コンパイルできます。
下 2 桁の西暦の変換
------------------------------------------------------------------
Visual Basic のすべてのバージョンで 1999 年 (4 桁の日付形式) 以降の日付を処理することができますが、下 2 桁の日付 (45 年 7 月 3 日などの日付) が渡されるとその日付に対応する世紀を Visual Basic が判断することになります。
バージョン 3.0 以前のすべての Visual Basic for Windows ( Visual Basic for MS-DOS や QuickBasic などの前身を含みます) では、下 2 桁の西暦は常に1900 年代に解釈されていました。各バージョンのランタイム ライブラリにこの規定を実装するコードが組み込まれており、オペレーティング システムのバージョンや、現在のシステムの日付で表示される世紀に依存しませんでした。
Visual Basic 3.0 から 4.0 にバージョンアップする間に、Visual Basic for Applications および OLE オートメーションという 2 つの新しいテクノロジが追加されました。
このテクノロジが追加される前は、Visual Basic のランタイム ライブラリには 2 桁の西暦を 4 桁に変換するコードが含まれていました。しかし、OLE オートメーションによって、ほかのアプリケーションからさまざまな機能へアクセスできるようになったため、Visual Basic for Applications では 2 桁の西暦を 4 桁に変換するコードを実装する必要がなくなりました。このコードがなくても、OLE オートメーション ライブラリから呼び出すことが可能になったのです。
Visual Basic 4.0 は、OLE オートメーションの相互運用性を念頭において開発されており、ほとんどの場合、下 2 桁の西暦から 4 桁の西暦への変換を OLE オートメーション ライブラリに依存し始めました。例外は Visual Basic ランタイム ライブラリに実装されていた DateSerial 関数ですが、これは、当時の OLE オートメーション ライブラリでは Visual Basic に必要な機能に対応できなかったためです。
Visual Basic 4.0 の開発時に新しい規則が設定されました。下 2 桁の西暦はシステムの日付で表されている世紀に変換されるため、暦年 ("00/1/1" という日付) は現在の世紀と解釈されていました。この新しい規則は、Visual Basic 4.0 および Visual Basic for Applications で使用する OLE オートメーション ライブラリにも適用されました。また、Visual Basic 4.0 ランタイム ライブラリの DateSerial 関数にも、この規則が適用されています。
マイクロソフトは、OleAut32.dll のバージョン 2.20.4049 の OLE オートメーション (現在は単にオートメーションと呼びます) ライブラリの既定の規則に変更を加えました。この変更は 32 ビット版のアプリケーションに対してのみ加えられ、オートメーション ライブラリに依存している 16 ビット版のアプリケーションには影響はありません。この変更により、00 ～ 29 の下 2 桁の西暦は 2000 年代と解釈され、たとえば 17 と入力した場合は 2017 に変換されます。一方、30 ～ 99 は 1900 年代と解釈され、72 は 1972 に変換されます。この新しいオートメーション ライブラリでは、Visual Basic が DateSerial 関数に要求していた機能を提供できるようになりました。したがって、Visual Basic 5.0 やその後のバージョンでは、ランタイム ライブラリの DateSerial 関数にこの規則は適用されていません。
このアップデート版のオートメーション ライブラリは、Internet Explorer Version 3.0 以上、Windows NT 3.51 Service Pack 5、Windows NT 4.0、Windows 95 OSR 2、Office 97、Visual Basic 5.0 およびそのほかの製品に含まれています。
詳しくは技術サポート情報 Q162718 を参照してください。
Visual Basic を使用する開発者に与える影響
--------------------------------------------------------------
Visual Basic の 3.0 以前のバージョンでは、下 2 桁の西暦はすべて 1900 年代に変換されます。
Visual Basic 4.0 (16 ビット) では、2 桁の西暦はすべてシステムで表示されている現在の日付の世紀に変換されます。Visual Basic では、使用する関数によって日付が変換されます。この場合、16 ビット版オートメーション ライブラリまたはランタイム ライブラリのいずれかの既定に基づきます。
16 ビット版オートメーション ライブラリでの既定は、Visual Basic 4.0 のリリース後変更されていないため、どの日付関数を使用しても動作は同じです。
Visual Basic 4.0 (32 ビット版) は、オートメーション ライブラリの既定に基づいて下 2 桁の西暦を 4 桁の西暦に変換します。ただし、DateSerial 関数を使用する場合を除きます。この関数は、下 2 桁の西暦をシステムの日付で表わされている現在の世紀に変換します。Visual Basic 4.0 に付属の 32 ビット版のオートメーション ライブラリ (OleAut32.dll バージョン 2.10) は、すべての下 2 桁の西暦をシステムの日付で表わされている現在の西暦に変換しました。新しい 32 ビット版オートメーションライブラリ (OleAut32.dll バージョン 2.20 以上) では、下 2 桁の西暦が 30 ～ 99 の場合には 1900 年代に変換され、00 ～ 29 の場合には 2000 年代に変換されます。
Visual Basic 5.0 では、オートメーションライブラリの既定に基づいて、すべての日付関数の下 2 桁の西暦が 4 桁に変換されます。Visual Basic 5.0 に付属のバージョン 2.20.4054 では、下 2 桁の西暦が 30 ～ 99 であれば 1900 年代に、00 ～ 29 であれば 2000 年代にそれぞれ変換されます。
規定を変更するには
------------------------------------
ユーザーは、Visual Basic に固有の既定の規則のほかに、独自の規則を使用することができます。たとえば、00 ～ 49 の下 2 桁の西暦を入力した場合に 2000 ～ 2049 年に変換したり、50 ～ 99 を 1950 ～ 1999 年に変換することができます。
この場合、ユーザーから日付文字列の入力を受け取ると、文字列の形式が検査され、西暦に入力された桁数が確認されます。このサンプル アプリケーションの例の場合、45 年 1 月 11 日は 1945 年ではなく 2045 年になります。アプリケーションのコード内で、適切な 4 桁の西暦を表わす文字列に変更され、その 4 桁の日付文字列が日付変数に変換されます。
コードの例
-----------
以下のコードでは、ユーザーが cmdConvertDate をクリックすると、txtDate というテキストボックスに入力されたデータが評価されます。日付に下 2 桁の西暦が含まれている場合は、サンプルの規則に従って 4 桁の西暦に変換されます。次にコードは、最初に入力された日付、サンプルの規則に従ってコードにより変換された 4 桁の西暦、および Visual Basic に固有の既定により変換された 4 桁の西暦を表示します。
最後に、txtDate に表示された日付は、適切な 4 桁の西暦が付加されて、確定した日付に変換されます。
このコードでは、yy/mm/dd の形式で日付を入力する必要がありますが、これ以外の形式にも簡単に変更できます。
Private Sub cmdConvertDate_Click()
Dim strYear As String
Dim intSlash As Integer
If IsDate(txtDate) or txtDate = "00/2/29" Then
'Find first date separator.
intSlash = InStr(txtDate, "/")
If intSlash > 0 Then
'Find second date separator.
intSlash = InStr(intSlash + 1, txtDate, "/")
If intSlash > 0 Then
'Extract the year from the date.
strYear = Mid(txtDate, intSlash + 1)
If Len(strYear) = 2 Then
If CInt(strYear) < 50 Then
' Less than 50: year = 20XX.
strYear = "20" & strYear
Else
' Greater than 50: year = 19XX.
strYear = "19" & strYear
End If
End If
MsgBox "入力された日付: " & txtDate
MsgBox "年 (ユーザー規則): " & strYear
MsgBox "年 (VB の規定): " & Year(txtDate)
Else
MsgBox "予期しない日付形式です"
End If
Else
MsgBox "予期しない日付形式です"
End If
Else
MsgBox "無効な日付です"
End If
' Clarify date in txtDate.
txtDate.Text = Left(txtDate.Text, intSlash) & strYear
End Sub
製品ガイドに戻る
カテゴリの記号について：
*
ユーザーが必要な操作を行うことで対応できる製品。
修正プログラムのロードや文書の参照など、指示された操作を行う必要があります。
#
マイクロソフトの対応基準に対して許容範囲の差異がある製品。
製品の主要な機能 (データ保全性など) や安定性 (信頼性など) に影響を与えない程度に限られます。
+
頒布予定の修正プログラムで対応できる製品。
修正プログラムが公開された時点で、できるだけ早期の対応が必要です。
注意:上記の対応状況分類では、必要な対応操作が行われることを前提としています。
|