VBA to split date and time

hi.

assuming A1 houses the date, try this:

Sub split_date_time()

    Range("B1").Value = Format(Int(Range("A1")), "dd/mm/yyyy")
    Range("C1").Value = Format((Range("A1") - Int(Range("A1"))), "hh:mm:ss")

End Sub