Changing an Integer into an Excel Serial NumberLast reviewed: November 2, 1994Article ID: Q60066 |
The information in this article applies to:
SUMMARYMany 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.
|
KBCategory: kbusage
© 1998 Microsoft Corporation. All rights reserved. Terms of Use. |