вывод поля типа DATE (дата)

Комментарии

• gpi

  November 2005 отредактировано 00:27

  Можно написать свою пользовательскую функцию, а можно просто объявить массив названий месяцев в скрипте и формировать дату по результатам выполнения DecodeDate
• dron-s Россия

  November 2005 отредактировано 00:27

  написал:

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

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

  November 2005 отредактировано 00:27

  Как вывести дату с месяцем, как положено в Windows, без самописных функций склонения (узнать бы у авторов FR2.5), для FR3 ?
  
• dron-s Россия

  November 2005 отредактировано 00:27

  GekFinn
  в FR3 для выводя таких действий используеся Format, а это виндузовая функция, которая не умеет склонять. Возможно в 2.5 сразу в исходниках было сделано склонение дат, а FR3 этого нет
• dron-s Россия

  November 2005 отредактировано 00:27

  GekFinn
  а в чём собственно проблема в написании функции?
  Не хочешь писать пользовательскую функцию, напиши в скрипте

  function DateToPropis(e: Extended):string;
  var
    den, mes, god : word;
    mess:string;
  begin
   DecodeDate(e,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;
  
  begin
  memo1.text := DateToPropis(Now);
  end.
  

  и усё
  
• GekFinn

  November 2005 отредактировано 00:27

  Спасибо за такие подробности
• dron-s Россия

  November 2005 отредактировано 00:27

  GekFinn

  написал:

  Спасибо за такие подробности

  Всегда пожалуйста, обращайся, здесь тебе помогут!!!!
• svift

  December 2007 отредактировано 00:27

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