werTime
ct.DateSerial = DateSerial(2019, 2, 4)
Print Format(ct.DateSerial, &quot;yyyy/mm/dd&quot;) 
ct.DateSerial = DateValue(&quot;4/2/2019&quot;)
Print Format(ct.DateSerial, &quot;yyyy/mm/dd&quot;) 
ct.DateSerial = TimeValue(&quot;11:59:59PM&quot;)
Print Format(dt, &quot;hh:mm:ss&quot;)
ct.DateSerial = Now
Print Format(ct.DateSerial, &quot;yyyy/mm/dd hh:mm:ss&quot;) 
ct.DateSerial = DateSerial(2005, 11, 28) + TimeSerial(7, 30, 50)
Print Format(ct.DateSerial, &quot;yyyy/mm/dd hh:mm:ss&quot;) 
</code></pre>