Microsoft KB Archive/60066

{|
 * width="100%"|

Changing an Integer into an Excel Serial Number

 * }

-

The information in this article applies to:


 * Microsoft Excel for Windows, versions 2.x, 3.0, 4.0, 5.0
 * Microsoft Excel for OS/2, versions 2.2, 2.21, and 3.0

-

SUMMARY
Many programs export dates as integers. The following macro transforms an integer date into an Excel serial number. This assumes the integer date is in the active cell of the worksheet in the form 900221 (year|month|day):

  A1: =ACTIVE.CELL A2: =TRUNC(A1*0.0001)            ; Extracts first two digits A3: =TRUNC((A1-(A2*10000))*0.01) ; Extracts second two digits A4: =A1-(TRUNC(A1*0.01)*100)     ; Extracts last two digits A5: =DATE(A2,A3,A4)              ; Converts to serial number A6: =FORMULA(A5)                 ; Puts serial number in active cell A7: =RETURN

The macro can be adapted for other integer date formats by changing the references in the DATE function.

Note: this information applies to version 5.0 when you use Microsoft Excel version 4.0 macro language.

Additional query words: 2.0 2.00 2.01 2.1 2.10 2.2 2.20 2.21 3.0 4.0 4.0a 4.00a 5.0

Keywords :

Version :

Platform :

Issue type :

Technology :