Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Приветствую, уважаемые эксперты!Компонент DateTimePicker,как взяв из него время перевести его в секунды?

Вопрос задал: GAZ (статус: Посетитель) Вопрос отправлен: 24 июля 2008, 07:14 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

В модуле DateUtils.pas есть много функций для аботы с датами и временем. Среди них есть функция SecondOfTheDay(), вычисляющая количество секунд от 0:00:00 текущей даты до текущего времени.

Пример #1:

program p1782;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, DateUtils;
 
var
  N: TDateTime;
 
begin
  N:= Time();
  WriteLn(' Current time is ', TimeToStr(Time));
  WriteLn(' Seconds between 0:00:00 and current time is ', SecondOfTheDay(N));
  ReadLn;
end.

program p1782;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, DateUtils;
 
var
  N: TDateTime;
  H, M, S, mS: Word;
 
begin
  N:= Time();
  WriteLn(' Current time is ', TimeToStr(Time));
  DecodeTime(N, H, M, S, mS);
  WriteLn(' Seconds between 0:00:00 and current time is ', H * 3600 + M * 60 + S);
  ReadLn;
end.

Seconds:= SecondOfTheDay(DateTimePicker1.Time);

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 24 июля 2008, 08:33 Оценка за ответ: 5 Комментарий к оценке: Seconds:= SecondOfTheDay(DateTimePicker1.Time); Всё просто!

Мини-форум вопроса

GAZ (статус: Посетитель), 24 июля 2008, 17:44 [#1]: min@y™ Единственно хочу спросить,где посмотреть другие функции этого модуля

Вадим К (статус: Академик), 24 июля 2008, 17:59 [#2]: в самом модуле. на самом деле это очень просто. находите слово DateUtils в своем тексте или можно просто написать. Можно и любую функцию с этого модуля. И кликаем по нему мышкой, при этом зажав Ctrl (Имя функции будет в виде ссылки). Этот модуль и многие другие хорошо документированы и там можно прочить много интересного. Галочка "подтверждения прочтения" - вселенское зло.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.