Extract only Date From Date & Time

[abi_learn_vba]

Hi,

I have an Cell with value as

"4/13/2011 9:45:01 AM".

As you see it contains date and time. I need to get only date from the cell using a VBA code, like assigning the date to a variable. I know we can do this using INT() function in excel, not sure how this can be used in VBA.

Can any one help me.

-Abi

 

[VoG]

Try like this

Sub test()
Dim X As Double, D As Date
X = Range("A1").Value
D = CLng(X)
Range("A2").Value = D
End Sub

 

[doofusboy]

Another way [assuming date/time is in cell A1]:

Range("A2").Value = Split(Range("A1").Value," ")(0)

 

[abi_learn_vba]

Thanks for your responses..

VoG, your suggestion works fine if the time is in AM, if it is in PM it takes the next date.

For eg. "4/12/2011 12:30:00 PM" with this value as input i get 4/13/2011 as output.

Though doofusboy suggestion works fine, i just wanted to know why the output is varies.

Thanks .........

 

[VoG]

Maybe

D = Application.RoundDown(X, 0)

 

[CWatts]

Maybe i'm missing something, but VBA has an int function as well.

Just use something like Variable = Int(Range("A1"))

 

[Scott R]

FYI, VBA also has an INT function.

 

[abi_learn_vba]

Thank you that works fine...


Cheers...
-Abi