Converting a Date to a number

[RGButzArchInc]

Usng VBA I wouldl ike to convert a date (string) to a serial number. I want to manipulate the number(s) arithmeticaly. The code in question is in a for next loop. i.e.

Current_Aspect -= Range("U & i")value.

I have tried using various funtions, both excel (application.value, etc) and VBA functions.I have also tried manpulating the data type to no avail. Any and all advice is greatly apprecited.

 

[shg]

Assuming i contains a valid row number,

Current_Aspect = Cells(i, "U").Value

 

[ParamRay]

.
.

You can achieve this in Excel by formatting the cell containing the date as "General".

Alternatively, you could use a formula such as =VALUE(TEXT(A1,"General"))

 

[Rick Rothstein]

Assuming i contains a valid row number,

Current_Aspect = Cells(i, "U").Value

For that to work, Current_Aspect must be declared as a Date variable.

If you leave Current_Aspect as a Variant, it gets assigned a String value as can be seen here...

Sub Test()
  Dim D As Variant
  D = Range("A1").Value
  MsgBox D + 1
End Sub

Change Variant to Date and the code will then work.

 

[RGButzArchInc]

ADVERTISEMENT

Assuming i contains a valid row number,

Current_Aspect = Cells(i, "U").Value

Pleas forgive my lack of experience but why use the Cells object instead of h Range object in my code?

 

[RGButzArchInc]

.
.

You can achieve this in Excel by formatting the cell containing the date as "General".

Alternatively, you could use a formula such as =VALUE(TEXT(A1,"General"))

I would like to learn how to convert the date into an integer inorder to arithmaticaly manipulate said items.

 

[ParamRay]

I would like to learn how to convert the date into an integer inorder to arithmaticaly manipulate said items.

This formula will convert the date into an integer:

=VALUE(TEXT(A1,"General"))