Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



DateTimeToFileDate

преобразует величину TDateTime на date/time формат файла

|| function DateTimeToFileDate ( DateTime : TDateTime ) : Integer;

Описание:

    Delphi функция DateTimeToFileDate преобразовывает величину TDateTime в DateTime формат использующийся для файловых дат.

    Файловая дата более ограничена в диапазоне чем TDateTime : Год должен быть в промежутке 1980 - 2099. Миллисекунды должны быть округлены до двух знаков после запятой.

Пример кода:

var
   fileName : string;
   fileDate : Integer;
   newDateTime : TDateTime;

begin
   // Try to open the Unit1.DCU file for the current project
   fileName := 'Unit1.DCU';
   fileDate := FileAge(fileName);

   // Did we get the file age OK?
   if fileDate > -1 then
   begin
      ShowMessage(fileName+' last modified date = '+
            DateTimeToStr(FileDateToDateTime(fileDate)));
      // Now change the last modified date
      newDateTime := StrToDateTime('01/01/2000 12:34:56');
      FileSetDate(fileName, DateTimeToFileDate(newDateTime));
   end;

   // Did we update the file last modified date OK?
   fileDate := FileAge(fileName);
   if fileDate > -1 then
      ShowMessage(fileName+' last modified date = '+
            DateTimeToStr(FileDateToDateTime(fileDate)));
end;

Результат выполнения:

Unit1.DCU last modified date = 30/10/2002 15:16:22
Unit1.DCU last modified date = 01/01/2000 12:34:56