| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Функция для работы со временем (TDateTime) [D7, WinXP]
B@BY © (2005-09-30 16:29:00)Здравствуйте мастера! Мне необходима процедура которая возвращает общее, пройденное и оставшееся время. Для этого использую как входные данные: s_t - начальное время работы, s_s - кол. сделаных операций, s_o - общее количество операций.
На VB у меня все отлично работало:
Public Sub Stat(s_t As String, s_s As Integer, s_o As Integer)
Dim Sa As String
Sa = Int(Int(Timer - s_t) * s_o / (s_s + 1))
StatT = vbCrLf & Sa & vbCrLf & Int((Timer - s_t)) & vbCrLf & Int(Sa - Int(Timer - s_t))
End Sub
Но вот на Delphi у меня ни как не получается сделать данную процедуру так как разница между начальным и текущем временем высчитывается в формате TDateTime (a:=TimeToStr(Now-s_t);) а не Integer(Double).
На данный момент у меня получилось так:
procedure Stat(s_t: TDateTime; s_s: Integer; s_o: Integer);
var
a:string;//пройденное время
b:string;//общее время
c:string;//оставщееся время
begin
a:=TimeToStr(Now-s_t);// возращает в формате 00:00:00 (вот если бы это было в формате Integer...)
//b:=IntToStr(StrToInt(a) * s_o div s_s);//не работает т.к. а=00:00:00
//c:=IntToStr(StrToInt(b)-StrToInt(a));
StatT:= a + '---' b + '---' + c;
End;
Подскажите как нужно сделать чтобы эта процедура работала. Результат меня устроит и простым количеством секунд и (если получится) в формате 00:00:00.
P.S. А может мне достаточно переменную aпреобразовать какой нибудь функцией из TDateTime в Integer. Но вот только какой...
Sashka (2005-10-01 18:42:00) [1]Открой хелп и прочитай там что такое TDateTime.
clickmaker (2005-09-30 17:28:00) [2]
> B@BY © (30.09.05 17:26) [2]
не понял... тебе че надо-то? Разницу получить? Я и написал, как
B@BY (2005-09-30 17:26:00) [3]> (Time1 - Time2) * 24Не подходит т.к. это просто увеличивает разницу в 24 раза...
А мне необходимо что бы работала эта строчка:b:=IntToStr(StrToInt(a) * s_o div s_s);
а мне на эту строку выдается ошибка: '0:00:03' is not a valid integer value....
clickmaker (2005-09-30 16:40:00) [4]разница в часах
(Time1 - Time2) * 24
в минутах
* 24 * 60
ну и т.д.
| |
