• Registered: 2014-10-21
  • Posts: 89

Topic: FastReport и дата прописью

function DateToPropis(dDate: Extended):string;
var                                         
 d, m, y : word;
 mess:string;
begin
DecodeDate(dDate,y,m,d);

case m of
 1: mess:='січня';
 2: mess:='лютого';
 3: mess:='березня';
 4: mess:='квітня';
 5: mess:='травня';
 6: mess:='червня';
 7: mess:='липня';
 8: mess:='серпня';
 9: mess:='вересня';
 10: mess:='жовтня';
 11: mess:='листопада';
 12: mess:='грудня';
end;

 Result := IntToStr(d) + ' ' + mess + ' ' + IntToStr(y) + ' року'; 
end;    

begin
     Memo59.text:=DateToPropis (<Report."data_vymoghy">) ;         
end.

Такой код выдаёт ошибку "could not convert variant (UnicodeString) into type (Double)". Судя по всему, он не может использовать формат даты, который получает из БД.
Как это можно исправить?

  • Registered: 2014-10-21
  • Posts: 89

Re: FastReport и дата прописью

Разобрался.

Memo59.text:=DateToPropis (<Report."data_vymoghy">) ;

заменил на

Memo59.text:=DateToPropis (StrToDate(<Report."data_vymoghy">)) ;