Как преобразовать SQLite DATE в TDate?

Question

Я использую этот код:

DateTimePicker1.Date := SQLQuery1.FieldByName('birthday').Value; 

Но это дает мне сообщение об ошибке:

Не удалось преобразовать вариант типа (UnicodeString) в тип (Двухместный).

Я также попробовал этот код:

DateTimePicker1.Date := VarToDateTime(SQLQuery1.FieldByName('birthday').Value); 

К сожалению, это дает мне сообщение об ошибке:

Не удалось преобразовать вариант типа (UnicodeString) в тип (Дата)

Примечание: Я использую базу данных SQLite. тип данных поля «день рождения» - дата.

Спасибо, продвинутый!

Answer 1

Этот код на самом деле работает хорошо, если значение SQLQuery1.FieldByName («день рождения») не NULL:

DateTimePicker1.Date := VarToDateTime(SQLQuery1.FieldByName('birthday').Value); 

комментарий

г-н Дэвид Heffman помог мне понять, что, когда день рождения поле (тип данных DATE) запрашиваются с значением NULL, он возвращает сообщение об ошибке, говорящее:

Не удалось преобразовать вариант типа (UnicodeString) в тип (Date).

Таким образом, мне удалось это сделать, чтобы решить мою проблему:

if not SQLQuery1.FieldByName('birthday').IsNull then 
    DateTimePicker1.Date := VarToDateTime(SQLQuery1.FieldByName('birthday').Value);