Entering dates

[NorthMelbourne]

Prior to an upgrade from XL97 to XL2000 I was able to enter a date such as April 8 2002 as 080402. Now XL is interpreting 080402 as 80402 (dropping the leading 0) and the formatted result is February 17 2120. Any ideas on how I might be able to enter dates without requiring separater symbols such as '/' and '-'.

Any feedback will be much appreciated.
NM

 

[Scott Huish]

If the field you want to enter the date this way in cell A1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo notdate
If Target.Address <> "$A$1" Then
x = Str(Range("A1"))
x = Format(x, "00\/00\/00")
x = DateValue(x)
Range("A1").Value2 = x
Range("A1").NumberFormat = "m/d/yy"
End If
notdate:
End Sub

 

[erik.van.geit]

format the cells where you want to enter dates as 00-00-00
(menu format / cellproperties / tab "number" ==> choose custom and type 00-00-00)
but the problem is that you can't count correctly with them entered in this way
example 31-04-04 - 30-04-04 should be 1 but you'll get 10000

regards,
Erik

 

[Scott Huish]

With the format cells option, if you need to refer to that value as a date, you can refer to it with a formula like this:

=DATEVALUE(TEXT(A1,"00-00-00"))