Convert Date to DateTime

Just a quick question. I have a field with the Date value, is there a quick way to convert it to DateTime using script not formula.

Thanks in advance.

Subject: try this

Not really short, but it does the job:

Dim doc as NotesDocument, itm As NotesItem, dt As NotesDateTime

Set doc = …

Set itm = doc.GetFirstItem(“myItem”)

Set dt = itm.DateTimeValue

dt.LsLocalTime = dt.LsLocalTime + 0

Set itm.DateTimeValue = dt