Функция mGetUserDataAsJSON, как получить значение даты?

Добрый день, переделываю немного скрипт "Поздравление именинников".
Использую функцию mGetUserDataAsJSON:
Часть кода//
dBirthday: double;
//////
sJSON := mGetUserDataAsJSON(iUIN, 'Birthday');
JSONGetDateTime(sJSON, 'Birthday', dBirthday); // получение даты рождения
sBirthday:= FormatDateTime('ddmmyyyy', dBirthday);
Функция возвращает значение 01012004. Хотя я несколько раз проверил данные пользователя, менял дату рождения - бесполезно.
Другие данные (WorkDept, WorkPosition) выводит правильно.
Для интереса попробовал другие данные из функции mGetUserDataAsJSON с типом double
LastAccess и Registered - выводит опять 01012004.
В чем моя ошибка? Спасибо заранее.
Использую функцию mGetUserDataAsJSON:
Часть кода//
dBirthday: double;
//////
sJSON := mGetUserDataAsJSON(iUIN, 'Birthday');
JSONGetDateTime(sJSON, 'Birthday', dBirthday); // получение даты рождения
sBirthday:= FormatDateTime('ddmmyyyy', dBirthday);
Функция возвращает значение 01012004. Хотя я несколько раз проверил данные пользователя, менял дату рождения - бесполезно.
Другие данные (WorkDept, WorkPosition) выводит правильно.
Для интереса попробовал другие данные из функции mGetUserDataAsJSON с типом double
LastAccess и Registered - выводит опять 01012004.
В чем моя ошибка? Спасибо заранее.