Get long value for a date string

[jerry chapman]

I have a date string of 2/21/2005 1:07:22 PM. When I convert it to Long I
get a value of 38405, which is 2/22/2005. How can I make the value be
2/21/2005? Can I truncate the date string to remove the time part?

 

[Jim Cone]

jerry,

Use a Double instead of a Long.

Regards,
Jim Cone
San Francisco, USA

 

[Tom Ogilvy]

sStr = "2/21/2005 1:07:22 PM"
v = int(cdate(sStr))
? v
02/21/2005

you could
dim v as Long

 

[jerry chapman]

How can I define a cell as date & time?

sStr = "2/21/2005 1:07:22 PM"
v = int(cdate(sStr))
? v
02/21/2005

you could
dim v as Long

 

[Tom Ogilvy]

activecell.numberformat = "mm/dd/yyyy hh:mm:ss"

or put a date value in it

Sub CCC()
Dim dt As Date

dt = DateSerial(2005, 2, 21) + TimeSerial(10, 30, 0)
ActiveCell.Value = dt
ActiveCell.EntireColumn.AutoFit
End Sub