Работа с датой

← →
antonioxxx © (2002-09-16 23:21) [0]

Уважаемые программисты! Подскажите, пожалуйста, как мне проделать следующее:
1) Определить системную дату;
2) Сделать системную дату датой создания указанного файла.
Если можно, то расскажите более подробно о возможных функциях и входящих в них параметрах. Спасибо!

← →
gek © (2002-09-17 07:06) [1]

var
sys_tim:SystemTime;
begin
GetSystemTime(sys_tim);
sys_tim.wMinute:=11;
SetSystemTime(sys_tim);

← →
Zemal © (2002-09-17 11:28) [2]

gek > Тебя о дате спрашивают, а ты в дебри загоняешь... минуты какие-то приплетаешь :)
antonioxxx > Есть функция Date без параметров, использовать просто:
var d : TDateTime; // переменная для хранения даты и времени f : Integer; // дескриптор файла begin d := Date; // получение даты и времени в переменную Label1.Caption := DateTimeToStr(d); if FileExists(Edit1.Text) then // проверка существования файла begin f := FileOpen(Edit1.Text); // открытие файла end else begin f := FileCreate(Edit1.Text); // создание файла end; {запись даты и времени создания} FileSetDate(f, DateTimeToFileDate(d)); {закрытие файла} FileClose(f); end;
Можешь подробности посмотреть в хелпе делфи по этим функциям, а если хочешь с датой поработать, то ищи класс TDateTime. У этого класса есть поля и методы, при помощи которых можно и день недели прописью вытащить :). Удачи.

← →
Zemal © (2002-09-17 11:31) [3]

Будут вопросы по коду - можешь мылить на zemal@fronda.ru

← →
REA (2002-09-17 12:49) [4]

type TDateTime = type Double;
Че то ты гонишь про поля и методы. Функции есть работы с датой и временем.

← →
gek © (2002-09-17 12:52) [5]

> Zemal © (17.09.02 11:28)
Может проще посмотреть на структуру SYSTEMTIME

← →
antonioxxx © (2002-09-17 19:01) [6]

Благодарю всех за оказанную помощь!

← →
antonioxxx © (2002-09-17 22:19) [7]

И ещё один маленький вопросик в тему:"Как получить дату создания файла?" Заранее благодарю всех, кто откликнится! :-)))

И ещё один вопросик в тему. Как получить дату создания файла?
Заранее благодарю за помощь! :о)))

← →
Koster (2002-09-18 05:32) [9]

var FileName: string; FileAttr: WIN32_FILE_ATTRIBUTE_DATA; FileSystemTime: TSystemTime; fFileDate: TDateTime; ........ if GetFileAttributesEx(PChar(FileName), GetFileExInfoStandard, @FileAttr) then begin FileTimeToSystemTime(FileAttr.ftCreationTime, FileSystemTime); fFileDate := SystemTimeToDateTime(FileSystemTime); end else fFileDate := -1;

Можно и через Win API.

А можно ли таким же образом, как предложил Koster установить дату создания файла?

Работа с датой Найти похожие ветки