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

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

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

DNK
I. DNK
Баллы: 5

Подробнее »



Вопрос # 1 782

Раздел: Delphi » Прочее
/ вопрос открыт /

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

GAZ Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: 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.

Есть ещё способ: через функцию DecodeTime().

Пример #2:
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);
Всё просто!

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

Всего сообщений: 2; последнее сообщение — 24 июля 2008, 17:59; участников в обсуждении: 2.
GAZ

GAZ (статус: Посетитель), 24 июля 2008, 17:44 [#1]:

min@y™
Единственно хочу спросить,где посмотреть другие функции этого модуля
Вадим К

Вадим К (статус: Академик), 24 июля 2008, 17:59 [#2]:

в самом модуле.
на самом деле это очень просто. находите слово DateUtils в своем тексте или можно просто написать. Можно и любую функцию с этого модуля. И кликаем по нему мышкой, при этом зажав Ctrl (Имя функции будет в виде ссылки). Этот модуль и многие другие хорошо документированы и там можно прочить много интересного.
Галочка "подтверждения прочтения" - вселенское зло.

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

Версия движка: 2.6+ (26.01.2011)
Текущее время: 21 августа 2017, 15:05
Выполнено за 0.29 сек.
Рейтинг@Mail.ru