XL2000: マクロで返される日付が 4 の年が初期

文書翻訳 文書翻訳
文書番号: 213593 - 対象製品
この資料は、アーカイブされました。これは "現状のまま" で提供され、更新されることはありません。
すべて展開する | すべて折りたたむ

現象

ワークシートのセルから、マクロによって返される日付の日付を使用するマクロを実行するときあります 4 年と 1 日より前の実際の日付。

原因

マクロは、[ オプション ] ダイアログ ボックスの [ 計算方法 ] タブで 1904年の日付システム を選択すると、次の条件のいずれかに該当日付が 4 年と 1 日以前のバージョンを返します。

  • マクロは Value2 プロパティを使って、日付を格納するとき。

    - または -

  • マクロは、日付を格納するとき、Excel アプリケーションのライブラリに、関数を使用します。

回避策

次のマクロかどうか、1904年に日付システムが選択されている、1900年日付システムの日付に変換および決定予想される日付を返します。

マイクロソフトは提供プログラミング言語の使用方法の一例としてのみ、姿表現または暗黙に提供します。 これはに含まれますに、黙示または商品性および特定目的に対する適合性の黙示保証は一切制限はありません。 この資料ではであると見なすは、例示されているプログラミング言語を作成したりプロシージャをデバッグするためのツールと使い慣れた。 マイクロソフト サポート エンジニアに、特定のプロシージャの機能について説明する役立ちますが追加機能を提供する構築手順、特定の要件を次の例は変更されません。
マクロを使用するには、次の手順に従います。

  1. 挿入する新しいブックを [ ファイル ] メニューの [ 新規作成 ] をクリックして、[ ブック ] をクリックして [OK] をクリックします。
  2. [ ツール ] メニューの [ オプション ] をクリックして、[ 計算方法 ] タブをクリックし、 1904年に日付システム 。 次に、 [OK] をクリックします。
  3. 次の使用例は、シート 1 に、次の日付を入力:
          A1: 7/5/96
          A2: 5/11/96
          A3: 4/28/96
    					
  4. [ ツール ] メニューの [ マクロ をポイントして [ Visual Basic エディター ] をクリックします。 Visual Basic エディターで、[ 挿入 ] メニューの [ モジュール をクリックします。
  5. 次のコードをモジュール シートに入力:
          Sub DateTest()
             'dimension date variable
             Dim dDate As Date
    
             'store minimum date in range into variable
             dDate = Application.Min(Worksheets(1).Range("A1:A3"))
    
             'display stored date
             MsgBox "Stored date" & Chr(13) & dDate
    
             'check for 1904 date system
             If Application.ThisWorkbook.Date1904 Then
    
              'convert 1904 base date to 1900 base date
              dDate = DateSerial(Year(dDate) + 4, Month(dDate), Day(dDate) + 1)
    
              'display converted date
                MsgBox "Converted date" & Chr(13) & dDate
    
             Else
                MsgBox "1904 date system is not enabled"
             End If
          End Sub
    						
  6. マクロを実行するには [ ツール ] メニューの [ マクロ をポイントし、[ マクロ ] をクリックします。 DateTest を選択し、 実行 をクリックします。
日と最初のメッセージ ボックスが表示されたら 4/27/92 は 4 年と 1 日より前 A3 をセル A1 の範囲の最初の日付。 2 番目のメッセージ ボックス正しい"変換された日付を表示 4/28/96 のします。

状況

マイクロソフトとして認識していますこの問題をこの資料の冒頭に記載されているマイクロソフト製品の問題。

詳細

アプリケーションの 1904年に日付システムを検出し、必要に応じて日付を変換自動的にします。 ユーザーは、Microsoft Excel で 1904年に日付システムを選択して、日付、ワークシートのセルから書かれているマクロを実行と場合の違いは 4 年と 1 日にあります (余分な 1 日は、閏年のアカウント)。 たとえば、9/1/96 1904年に日付システムの日付は 92/8/31 の日付を返すことがあります。

発生日付システム不一致がする Visual Basic 1904 に日付システムを選択して、マクロによって、 Value2 プロパティ、日付が格納されます。

プロパティ

文書番号: 213593 - 最終更新日: 2014年2月14日 - リビジョン: 4.2
この資料は以下の製品について記述したものです。
  • Microsoft Excel 2000 Standard Edition
キーワード:?
kbnosurvey kbarchive kbbug kbprogramming kbdtacode kbpending kbmt KB213593 KbMtja
機械翻訳の免責
重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。
英語版 KB:213593
Microsoft Knowledge Base の免責: Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。

フィードバック

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com