Мне нужно в ячейку StringGrid поместить дату и время изменения файла
Делаю это так:

function ReadDate(FN:String):String
var
W: WideString; // полное имя файла
Dat:TDateTime;
FHandle: Integer;
begin
 W:=FN;
 FHandle := FileOpen(w, 0);
 Dat:= FileDateToDateTime(FileGetDate(FHandle));
 Result:= FormatDateTime('yyyy.mm.dd.hh.nn.ss', Dat);
end;

Однако, полученное время отличается от видимого в свойствах файла (в проводнике)
Например:
получено 2008.08.26.19.42.02
в свойствах 26.08.2008 20:42
То есть, ровно на час (если файл был изменен за час до нового года, то на год)
Что интересно, если дату изменения вернуть назад функцией FileSetDate,
то дата в свойствах файла становится на час моложе (прибавляется час)
Сам вопрос:
Можно ли не особенно исхитряясь получить дату съемки полностью соответствующую таковой в свойствах файла.
Если нельзя, то как выяснить (программно) региональные настройки Windows и как их использовать для коррекции полученной даты (нужно их как-то преобразовать, а затем сложить или вычесть…)

(читать всё…)

Мне требуется выполнять некий код в программе в определенные часы.
К примеру ставим диапазон 20-12. Это значит что код будет выполняться каждую минуту с 20 часов вечера по 12 часов дня (следующего)

(читать всё…)

На форме есть DateTimePicker. При выборе даты, мне нужно посчитать сумму ASCII кодов каждой цифры выбранной даты без точек. Например: дата 16.06.2014. (читать всё…)

Как из текущей даты вывести только год (например из даты 31.07.2012 получить 2012)? (читать всё…)

Подскажите пожалуйста, у меня есть время в миллисекундах и я хочу вывести его в формате «количество дней:часы:минуты:секунды» Вот например имеется 140516988 миллисекунд и должно получится 01:15:01:56, но не получается и выходит 31:15:01:56. Делаю так FormatDateTime (‘dd:hh:nn:ss’, 140516988 / (1000 * 24 * 60 * 60)); Что не так делаю? (читать всё…)