[Red_Garry]

Здравствуйте!
Есть полная дата, хранящаяся в переменной D типа TDateTime (к примеру - 10.09.2012 13:25:51). Как посчитать количество минут, прошедших с полуночи того же дня?

[M.A.D.M.A.N.]

Поднималась уже такая тема, вроде MinutesBetween.

[poli-smen]

Сообщение от Red_Garry

Здравствуйте!
Есть полная дата, хранящаяся в переменной D типа TDateTime (к примеру - 10.09.2012 13:25:51). Как посчитать количество минут, прошедших с полуночи того же дня?

Вообще тип TDateTime это обычное вещественное (дробное) число, целая часть которого содержит количество суток прошедших с 30 декабря 1899 года, а дробная часть содержит долю суток прошедших с полуночи. Т.е. если у переменной TDateTime выделить дробную часть и умножить её на количество минут в сутках, то как раз и получится количество минут прошедших с полуночи указанной даты:

Код:

var
  D: TDateTime;
  minuts: Integer;
begin
...
  minuts := Trunc(Frac(D) * MinsPerDay + 0.5);

Или же можно воспользоваться готовой функцией MinuteOfTheDay из модуля DateUtils (там же объявлена и константа MinsPerDay)

[Red_Garry]

Спасибо, MinuteOfTheDay - это как раз то что нужно