BUG: Format Function Returns Incorrect Date or Number

Last reviewed: February 16, 1998
Article ID: Q180927
The information in this article applies to:
  • Microsoft Visual Basic Control Creation, Learning, Professional, and Enterprise Editions for Windows, version 5.0
  • Microsoft Visual Basic for Applications version 5.0

SYMPTOMS

An incorrect date is returned from the Format function.

CAUSE

This problem can occur when the Grouping Symbol in the Regional Settings is set to a period (.).

For example, if your Regional Setting is "German(Standard)," the following line of code returns 5.30.1985 instead of 1.31.1997 as expected when typed into the debug window:

   ?Format("31.1.97", "m.d.yyyy")

This problem is caused by the way the Format function handles the period character when formatting. In this case, the Format function simply ignores the period characters in the value before formatting occurs. In other words, Visual Basic converts the date 31.1.97 to the Long value 31197, so you receive the same result as if you typed:

   ?Format(31197, "m.d.yyyy")

RESOLUTION

This problem can be avoided by converting the date to be formatted to a Date type before it is passed to the Format function. For example, if you have this statement:

   ?Format("31.1.97", "m.d.yyyy")

change it to:

   ?Format(CDate("31.1.97"), "m.d.yyyy")

Because the Format function is capable of formatting several data types, it is a good idea to always pass the value to be formatted as the specific data type it represents to ensure there is no ambiguity.

STATUS

Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. We are researching this bug and will post new information here in the Microsoft Knowledge Base as it becomes available.

MORE INFORMATION

Steps to Reproduce Behavior

  1. Set the Regional Setting in Control Panel to "German(Standard) ." NOTE: If you are running Windows 95, you will need to reboot after making this change.

  2. Create a new Standard EXE project. Form1 is created by default.

  3. Add the following code to Form1:

          Private Sub Form_Click()
    
              Debug.Print Format("31.1.97", "m.d.yyyy")
          End Sub
    
    

  4. Run the project and click the form. Note that the incorrect value of "5.30.1985" is displayed in the debug window.
Keywords          : GnrlVB vbwin vb5all
Version           : WINDOWS:5.0
Platform          : WINDOWS
Issue type        : kbbug


================================================================================


THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: February 16, 1998
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.