ocr: test.xls - Modulel Lode) L IL X (General) Convert date Sub Convert datel () Check the active cell; if it's empty, exit loop Do - Until IsEmptylactivecell) Extract the first two digits yr = - Fix - (ActiveCell * 0.0001) Extract the second two digits mo = Right (Fix((Activecell - (yr * 10UUU)) * 0.01), 2) Extract the last two digits dy = ActiveCell - (Fix (Activecell * 0.01) * 100) 'Put the result in the original cell in Excel date tormat ActiveCell.Value = DateSerial (yr, mo, dy) Move down one ro to the next cell ActiveCell.Offset (1, 0).Select Return to top of loop Loop End Sub
