Microsoft KB Archive/84115

= BUG: Omitting Year for DateValue May Give Unexpected Results =

Article ID: 84115

Article Last Modified on 12/12/2003

-

APPLIES TO


 * Microsoft Visual Basic 2.0 Standard Edition
 * Microsoft Visual Basic 3.0 Professional Edition
 * Microsoft Visual Basic 2.0 Professional Edition
 * Microsoft Visual Basic 3.0 Professional Edition
 * Microsoft Visual Basic 1.0 Standard Edition

-



This article was previously published under Q84115





SYMPTOMS
If you omit the year portion of the DateValue function argument, DateValue uses the current year from the computer's system date. However, if you also pass an invalid day for the month, DateValue interprets the month as the year and the day will default to 1. For example, 3/30 will be interpreted as 3/30/92, but 3/44 will not produce an error message, and will be interpreted as 3/1/44.



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



MORE INFORMATION
The DateValue function returns a serial number that represents the date of the string argument. The date string can be in various forms. For example:   3/30/92 3/30/1992  March 30, 1992 Mar. 30, 1992 30-Mar-1992 30 March 92 The year portion of the string argument may be omitted, in which case the current year of the computer's system date is used. For example, 3/30 will cause DateValue to return the serial number that represents 3/30/92 (if 1992 is the year of the system date).

However, if the year is omitted and the day is not a valid day for that month of the current year, the month will be interpreted as the year and the day will default to 1. So 3/44 will be interpreted as 3/1/44.

Steps to Reproduce Problem
 Start Visual Basic or from the File menu, choose New Project (ALT, F, N) if Visual Basic is already running. Form1 is created by default.  Add the following code to the Form_Load event procedure: Sub Form_Load Debug.Print &quot;3/30 =&quot;; DateValue(&quot;3/30&quot;) Debug.Print &quot;3/30/92 =&quot;; DateValue(&quot;3/30/92&quot;) Debug.Print Debug.Print &quot;3/44 =&quot;; DateValue(&quot;3/44&quot;) Debug.Print &quot;3/1/44 =&quot;; DateValue(&quot;3/1/44&quot;) End Sub  Press F5 to run the program.

Notice in the Immediate window that the serial numbers returned by the DateValue function for 3/30 and 3/30/92 are the same (assuming 1992 is the current year of the system date), and the serial numbers for 3/44 and 3/1/44 are the same. Also, no error message was produced.

Additional query words: buglist1.00 buglist2.00 buglist3.00 2.00 3.00

Keywords: kbbug KB84115

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.