Close, but not quite

Code:
Use UI

Procedure onClick
    DateTime dt
    Variant v
    Move (CurrentDateTime()) to dt
    Move (DateSetYear(dt, 2021)) to dt
    Move (DateSetMonth(dt, 9)) to dt
    Move (DateSetDay(dt, 29)) to dt
    Move (DateSetHour(dt, 23)) to dt
    Move (DateSetMinute(dt, 59)) to dt
    Move (DateSetSecond(dt, 59)) to dt
    Move (DateSetMillisecond(dt, 999)) to dt
    Showln dt //   9/29/2021 11:59:59.999 PM
    Move dt to v
    Move v to dt
    Showln dt //   9/30/2021 12:00:00 AM
    InKey FieldIndex
End_Procedure
Send OnClick
Frank Cheng