Не форматируется дата

Andrei

Есть поле БД типа date, как сделать чтоб печаталось прописью - 21 октября 2009 года, а не 21 Октябрь 2009

dron-s

в фасте используются системные форматы даты...
для того чтобы было как вас нужно, можно использовать пользовательские функции

dron-s

если необходимо, могу сделать пример

dron-s

вот пример:
есть сама функция, которая преобразовывает дату в нужный нам вид

function MonthToString(AMonth:TDate):string;
var
  den, mes, god:word;
  mess:string;
begin
  DecodeDate(now,god,mes,den);

  case mes 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(den) + ' ' + mess + ' ' +IntToStr(god) + ' года';
end;

далее эту функцию надо зарегистрировать в FR для того чтобы можно было использовать из скрипта
делается следующим образом
первоначально нам надо зарегистрировать нашу функцию:

написал:

frxReport1.AddFunction('function MonthToString(AMonth:TDate):string');

делай на событии формы OnCreate
затем необходимо зарегистрировать к какой категории относится...
для этого создадим обработчик метода UserFunction у frxReport

function TForm1.frxReport1UserFunction(const MethodName: String;
  var Params: Variant): Variant;
begin
if MethodName = 'MONTHTOSTRING' then
    Result:= MonthToString(Params[0]);
end;

ну вот и всё, теперь можно использовать нашу функцию в скрипте
к примеру: размести мемку и в скрипте напиши

memo1.text := 'Текущая дата: ' + MonthToString(now);

ну и запусти отчёт на просмотр
на батоне в событии OnClick

frxReport1.ShowReport();

надеюсь что понятно написал...
да и в мануле для программера всё это описано...
удачи..

Andrei

Спасибо за совет, а я уже сам расковырял это, получилось почти тоже что у тебя, только я запихнул свои функции в исходники фаста и перекомпилил их и беру функции прямо в дизайнере

dron-s

Andrei написал: »

Спасибо за совет, а я уже сам расковырял это, получилось почти тоже что у тебя, только я запихнул свои функции в исходники фаста и перекомпилил их и беру функции прямо в дизайнере

я про это даже статью писал
она так и называется FastReport: работа с пользовательскими функциями
p.s. молоток что сам разобрался!