• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 162
  • Last Modified:

y2k problem

I record a macro in excel2000 My 1st column has data & time as dd/mm/yyyy HH:MM:SS.sss AM/PM.By format cell I format to date.When I do in windows98 the data is converted as ex 29/06/2001.When I do the same in windows95 the data is converted as ex 29/06/1900.Why is this so.In both PC I instaled Office2000.But the OS is windows98 & winwows95.I copy the macro & run it in VB6.
0
ns_kishorekumar
Asked:
ns_kishorekumar
  • 3
  • 2
1 Solution
 
deightonCommented:
You might need to apply a Y2K upgrade to the win 95 O/S
0
 
ns_kishorekumarAuthor Commented:
How to apply the update for y2k
Buy the date is displayed as  dd/mm/yyyy ie I am getting 29/06/2001.If I see the regional settings.
0
 
deightonCommented:
So if you format date

01/15/00 to dd/mm/yyyy it becomes 15/01/1900 in win 95 & 15/01/2000 in the win 98 machine - is that the problem?

Is the date on the win 95 machine correct?
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
deightonCommented:
Could you sho9w us the macro?
0
 
hongjunCommented:
ns_kishorekumar,

Use my below link to test Y2k compatibility.
http://www.freevbcode.com/ShowCode.Asp?ID=627

Then use this to convert your system to Y2k compatible if it is not.
http://www.freevbcode.com/ShowCode.Asp?ID=205

hongjun
0
 
ns_kishorekumarAuthor Commented:
here is the macro.
This is a csv file format.My fist column has data & time
I copy the 1st column and insert it as 1st column And make the 1column as data by format cells and the 2nd column is formated to time.
Columns("A:A").Select
Selection.Copy
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.NumberFormat = "dd/mm/yyyy"
Columns("B:B").Select
Selection.NumberFormat = "hh:mm:ss AM/PM"
Range("C:C,E:E,F:F,H:H,I:I,K:K,L:L").Select
Range("L1").Activate
ActiveWindow.SmallScroll ToRight:=11
Range("C:C,E:E,F:F,H:H,I:I,K:K,L:L,N:N,O:O,Q:Q,R:R,T:T,U:U").Select
Range("U1").Activate
ActiveWindow.SmallScroll ToRight:=5
Range("C:C,E:E,F:F,H:H,I:I,K:K,L:L,N:N,O:O,Q:Q,R:R,T:T,U:U,W:W,X:X,Z:Z,AA:AA"). _
Select
Range("AA1").Activate
ActiveWindow.SmallScroll ToRight:=9
Range( _
     "C:C,E:E,F:F,H:H,I:I,K:K,L:L,N:N,O:O,Q:Q,R:R,T:T,U:U,W:W,X:X,Z:Z,AA:AA,AC:AC,AD:AD,AF:AF,AG:AG,AI:AI,AJ:AJ" _
     ).Select
Range("AJ1").Activate
ActiveWindow.SmallScroll ToRight:=2
Selection.Delete Shift:=xlToLeft
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now