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.

 

[Av8tordude]

That isn't formula, it is VBA

This gives me an error, however, it seems the code I put together seems to resolve the issue..

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

 

[MARK858]

Now that I am home to test....

ActiveCell = DateValue("02/13/2020") + (Now - Int(Now))

and format the cell as required.

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

will put the data in as text and not a real date.

 

[Av8tordude]

thank you for that info. I was concern what the ramification of my formatting would be.

Thank you for helping.

Now that I am home to test....

ActiveCell = DateValue("02/13/2020") + (Now - Int(Now))

and format the cell as required.

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

will be the data in as text and not a real date.

 

[CephasOz]

......and the code from post #9?

 

[MARK858]

.....and the code from post #9?

Left that for the OP to respond so I haven't tested, but it should work correctly.

As should

ActiveCell = DateValue("02/13/2020") + TimeValue(Now)

 

[Av8tordude]

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)

This would work too, but Mark answer was more to what I was looking for. However, I appreciate you help me out with a possible solution

 

[CephasOz]

What was it about the answer from @MARK858 that better fit your needs?