|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.01.2008, 21:28 | #1 |
Форумчанин
Регистрация: 01.12.2007
Сообщений: 346
|
Как вычитать время ?
1. Как вычитать время ?
2. Как узнать данный час, минуту и секунд отдельно ? Другими словами разделить Time на три части и вывести на экран...
Win 10 x64 | VS 2015 | MSSQL 2014
autovestitv.ru |
11.01.2008, 21:32 | #2 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
1. как числа. Например:
var time1,time2,time3:Tdatetime; ... time1:=now; <операции> time2:=now; time3:=time2-time1; //сколько времени выполнялись <операции> 2. Label1.caption:=formatdatetime('hh: mm:ss.zzz',now); остальное в справке Последний раз редактировалось zetrix; 11.01.2008 в 21:40. |
12.01.2008, 01:59 | #3 |
Форумчанин
Регистрация: 01.12.2007
Сообщений: 346
|
А как такое реализовать?
Нужно задать время (например в трех Edit для чч:мм:сс) через которое выполниться действие, при этом вывести таймер обратного отчета на Label. Мучаюсь второй день, уже такая каша в голове...
Win 10 x64 | VS 2015 | MSSQL 2014
autovestitv.ru |
12.01.2008, 10:30 | #4 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Код:
Для справки: смотрите хелп по EncodeTime; EncodeDate; DecodeTime; DecodeDate; EncodeDateTime; DecodeDateTime... Их ещё куча. (Для преобразования даты/времени - 21 шт.; Для переобразования даты/времени в другие типы данных - 24 шт) Это сколько я насчитал Для написавших ниже: 2 минуты на поиск в книге, 2 минуты писанины, 1 минута - копировать/вставить сюда Итого 5 мин. "У вас ещё осталось время почитать газету и выпить чашечку кофе" © фильм "Такси" Последний раз редактировалось zetrix; 12.01.2008 в 10:58. |
12.01.2008, 10:33 | #5 |
Он лайн
Форумчанин
Регистрация: 26.09.2007
Сообщений: 173
|
например так
1)Как реальзовать:
i:=pos(строка с временем,':'); s:=copy(строка с временем,1,i); delete(строка с временем,1,i+1); но тут я не уверен как в процедурах и функциях идут переменные так что по другому можно так: час:=strtoint(строка с временем[1]+строка с временем[2]); мин:= -//-[4]+-//-[5]); сек:= аналогично; 2)обратный отсчет time к которому идем допустим новый год будет time1 тогда time который будет уменьшатся time2; time2:=time1-time; всё; |
12.01.2008, 12:23 | #7 |
Форумчанин
Регистрация: 01.12.2007
Сообщений: 346
|
zetrix Спасибо, а то с просто вычитанием времени получалась что то не то...
Win 10 x64 | VS 2015 | MSSQL 2014
autovestitv.ru |
12.01.2008, 13:27 | #8 |
Участник клуба
Регистрация: 07.07.2007
Сообщений: 1,518
|
Я тоже как-то мучился с вычислением времени, пока не сообразил подключить модуль DateUtils. Там тьма готовых функций для работы с датой/временем, такие как
SecondsBetween() SecondOfTheWeek() MinuteOfTheYear() MinuteOf() ... и много других. |
12.01.2008, 23:17 | #9 |
Форумчанин
Регистрация: 01.12.2007
Сообщений: 346
|
Появилась еще одна проблема, тема такая:
hEdit.Text:=FormatDateTime('hh',Tim e); // В hEdit получается текущий час mEdit.Text:=FormatDateTime('mm',Tim e); // В mEdit получается 12 независимо от текущей минуты, можно это как нибудь исправить ? При этом минуты напишутся правильно если написать mEdit.Text:=FormatDateTime('hh:mm', Time); в таком случае можно ли как нибудь из строки вырезать первые три символа ? Есть TrimLeft только не разобрался в нем... Случайно mm заменил на nn : mEdit.Text:=FormatDateTime('nn',Tim e); и все получилось после чего понял что 12 это месяц и то прошедший Delphi жжет Оо
Win 10 x64 | VS 2015 | MSSQL 2014
autovestitv.ru Последний раз редактировалось Veiron; 13.01.2008 в 00:54. |
13.01.2008, 00:53 | #10 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
Код:
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Время | |{ot | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 14.05.2008 17:32 |
время | Женька | Помощь студентам | 4 | 21.04.2008 17:07 |
Время | ben95 | Общие вопросы Delphi | 3 | 06.01.2008 16:02 |
Время.. | ZhekON | Общие вопросы Delphi | 6 | 18.06.2007 16:59 |
время программы | fluer | Общие вопросы Delphi | 8 | 14.03.2007 16:03 |