[حريف برمجة]

كود :

Dim datesingle as Date
datesingle = Format("15/10/2018 08:30:01 ص", "yyyy/MM/dd")

Dim timesingle as Time
timesingle = Format("15/10/2018 08:30:01 ص", "hh:mm:ss t")

جرب هذا ،،

بالتوفيق للجميع