format date with time VBA

[Av8tordude]

If I enter =NOW in a cell and change the format to general it displays a decimal. I would like to be able to select my own date, but include the current time. How can I do this in VBA

i.e. I want to enter 02/13/2020 and current time

Currently, I format my date as format(Date, "mm/dd/yy") however, the time stamp is not showing when i change the format to general.

 

[CephasOz]

Try using a format of "mm/dd/yy hh:mm".

 

[Av8tordude]

Doesn't work. the current time is 12:19 pm

 

[gamer11acct]

I'm using Excel 2016. What version are you using?

 

[MARK858]

Format the cell as a number with at least 6 decimal places and post what it returns.

Also post your full code.

 

[Av8tordude]

I'm using excel 2019.

This is what I've put together. I don't want to use =NOW() because I will choose the date, I just want to the current time to be added to the date I choose.

ActiveCell = "02/13/2020" & Format(Now, "hh:mm:ss")

View attachment 18719

I'm using Excel 2016. What version are you using?

 

[MARK858]

What does the below give you when you format the cell as mm/dd/yyyy hh:mm?

=Datevalue("02/13/2020") + Timevalue(Now - Int(Now))

 

[Av8tordude]

I'm trying to do this in VBA not as a formula

 

[CephasOz]

You can use the format in VBA. For example:

Activecell = Format(Now(),"mm/dd/yy hh:mm")

or

ActiveCell.NumberFormat = "mm/dd/yy hh:mm"
ActiveCell.Value = Now

So, with your requirement of setting the date, you could use

ActiveCell.NumberFormat = "mm/dd/yy hh:mm"
ActiveCell.Value = DateSerial(2020, 2, 13) + Now - Int(Now)

 

[MARK858]

I'm trying to do this in VBA not as a formula

That isn't formula, it is VBA