date и база данных

[grom333]

В базе данных есть столбцы в числе которых есть год (тип данных Дата).
нажимаем на строку любую выводим информацию в лабелы. Это все без проблем. Делаю этим способом

label23.Caption:= ADOQuery1_3.Value;

Но никак не могу сделать вот это: Вывод даты только год! И в один из лабелов надо написать год+5 лет. И если это является текущий год то фонт сделать красным цветом.
===
Делал но такими ламерскими способами... Если без БД, смог бы сделать без проблем, но Дата и БД вместе, для меня еще пока в новинку.
Вот вывод даты с прибавлением 5 лет, как убрать dd.mm:

n:=ADOQuery1DSDesigner4.Value;
 label28.Caption:=DateToStr(n + 1835);

[Dark_Spirit]

а так:

 decodedate(ADOQuery1DSDesigner4.Value, Year, Month, Day);
 label28.caption:=inttostr(Year);

[grom333]

Сделал так:

n:=ADOQuery1DSDesigner4.Value;
 label28.Caption:=(FormatDateTime('yyyy',n + 1835));
 label35.Caption:=(FormatDateTime('yyyy',n))

Как теперь сравнить если в label35 текущий год, то лабел сделать красным.

[Dark_Spirit]

 decodedate(ADOQuery1DSDesigner4.Value, Year, Month, Day);
 decodedate(date, Year1, Month1, Day1);
 if year=year1
  then 
   begin
    label35.color:=clred;
    label35.caption:=inttostr(Year);
   end;

вроде так, я не проверял, посмотри как правильно пишется тип цвета

[grom333]

Сообщение от Dark_Spirit

 decodedate(ADOQuery1DSDesigner4.Value, Year, Month, Day);
 decodedate(date, Year1, Month1, Day1);
 if year=year1
  then 
   begin
    label35.color:=clred;
    label35.caption:=inttostr(Year);
   end;

вроде так, я не проверял, посмотри как правильно пишется тип цвета

Что-то я не понял как Вы узнали текущий год?

[Dark_Spirit]

decodedate(date, Year1, Month1, Day1);[/b]

Функция Date: TDateTime;

Модуль: SysUtils

Описание
Функция возвращает текущую дату в формате TDateTime.