Скачать: CL | DM;

Функция для работы со временем (TDateTime)   Найти похожие ветки 

← →
B@BY ©   (2005-09-30 16:29) [0]

Здравствуйте мастера! Мне необходима процедура которая возвращает общее, пройденное и оставшееся время. Для этого использую как входные данные: 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. Но вот только какой...

---

← →
clickmaker ©   (2005-09-30 16:40) [1]

разница в часах
(Time1 - Time2) * 24
в минутах
* 24 * 60
ну и т.д.

---

← →
B@BY ©   (2005-09-30 17:26) [2]

> (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 17:28) [3]

> B@BY ©   (30.09.05 17:26) [2]

не понял... тебе че надо-то? Разницу получить? Я и написал, как

---

← →
Sashka ©   (2005-10-01 18:42) [4]

Открой хелп и прочитай там что такое TDateTime.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c