Преобразование даты в число

Суббота, 20 Августа 2016 г. 01:35 + в цитатник

Здравствуйте.
Есть задача преобразовать текстовую строку, изображающую дату, в целое число, а затем это число опять в текст. Делаю так:

Dim strКонстанта As String
strКонстанта = CStr(CLng(CDate(strДата)))

В режиме отладки:
strДата = "01.07.2016"
CDate(strДата) возвращает 01.07.2016
CLng(CDate(strДата)) возвращает 42552
CStr(CLng(CDate(strДата))) возвращает "42552"

В итоге strКонстанта = "01.07.2016"
В чем засада?

http://www.sql.ru/forum/1227496/preobrazovanie-daty-v-chislo