you can use an UDF to achieve this with custom formatted dates. Open VBE and add a standard module. Copy and paste those two functions to the module
Function MyDateValue(r As Range) As String
MyDateValue = DateValue(CDate(r))
End Function
Function MyTimeValue(r As Range) As String
MyTimeValue = TimeValue(CDate(r))
End Function
Now go back to your spreadsheet and enter
=MyDateValue(A1)
and
=MyTimeValue(A1)
you should be getting the correct values