Тип TTime

← →
alex810 © (2009-05-15 10:51) [0]

Уважаемы мастера как использовать TTime более 24 часов??

← →
Palladin © (2009-05-15 10:52) [1]

чего?

← →
oldman © (2009-05-15 10:52) [2]

> как использовать TTime более 24 часов??

Не спать?

← →
Медвежонок Пятачок © (2009-05-15 10:54) [3]

На меркурий переехать.
Там в сутках больше 24 часов

← →
alex810 © (2009-05-15 10:55) [4]

> Не спать?

=)) Та нет.
Прсто если я сумирую например "12:00:00"+"12:00:00"+"12:00:00"
у меня получаестся "12:00:00" а мне надо что бы получилось "36:00:00"

← →
alex810 © (2009-05-15 10:57) [5]

> На меркурий переехать.Там в сутках больше 24 часов

Очень смешно. Это форум для травли анектодтов или помощи по программированию???

← →
Игорь Шевченко © (2009-05-15 10:57) [6]

> Прсто если я сумирую например "12:00:00"+"12:00:00"+"12:
> 00:00"
> у меня получаестся "12:00:00"

вот такие вот странности арифметики.

← →
Медвежонок Пятачок © (2009-05-15 10:57) [7]

TTime - это время (Тот же TDateTime)

controls.pas
....
type
TTime = type TDateTime;
.....

Это вовсе не TDlitelnostIliProdolzitelnost

← →
alex810 © (2009-05-15 10:58) [8]

Так что ответ есть или нет???
Или тут не стоит терять время??

← →
oldman © (2009-05-15 11:00) [9]

> alex810 © (15.05.09 10:55) [4]
> Прсто я сумирую например "12:00:00"+"12:00:00"+"12:00:00"

И кто вас этому учил?
Складываешь ты время или таки временные интервалы?

← →
Медвежонок Пятачок © (2009-05-15 11:00) [10]

а мне надо что бы получилось "36:00:00"

Это не время, это длительность.

TTime - это время.

← →
alex810 © (2009-05-15 11:01) [11]

> Складываешь ты время или таки временные интервалы?

Временные интервалы

← →
Медвежонок Пятачок © (2009-05-15 11:02) [12]

Или тут не стоит терять время??

Его не надо было терять на уроках математики.
Там где учат скаладывать лопаты с ведрами и получать в результате помидоры

← →
Сергей М. © (2009-05-15 11:02) [13]

> alex810 © (15.05.09 10:58) [8]

Ты пойми - если бутылка пол-литровая, то налить туда ведро пива в земных условиях при всем желании не удастся) .. Тару надо менять .. или использовать несколько бутылок)

← →
alex810 © (2009-05-15 11:02) [14]

> Это не время, это длительность.TTime - это время.

Извените что не правильно выразился. Мне нужна длительность.

← →
Сергей М. © (2009-05-15 11:03) [15]

> Временные интервалы

TTime не предназначен для хранения интервалов

← →
alex810 © (2009-05-15 11:03) [16]

> Ты пойми - если бутылка пол-литровая, то налить туда ведро
> пива в земных условиях при всем желании не удастся) .. Тару
> надо менять .. или использовать несколько бутылок)

=)))))))))0

← →
oldman © (2009-05-15 11:03) [17]

> alex810 © (15.05.09 11:02) [14]

И где вас учили для длительности использовать TTime?

← →
alex810 © (2009-05-15 11:04) [18]

> TTime не предназначен для хранения интервалов

Лан всем спасибо.

> alex810 (15.05.2009 10:58:08) [8]

А где будешь терять?

> alex810 © (15.05.09 11:04) [18]
>
>

Ну, предположим, тебе таки удалось запихать 36 часов в переменную типа TTime.
Что дальше ? Зачем все это понадобилось ? Каковы твои дальнейшие телодвижения с этой переменной ?

> Сергей М. (15.05.2009 11:11:20) [20]

Элементарно Ватсон.

T := 1.5;

> alex810

function MyTimeToStr(D: double): string;
var
H: cardinal;
M, S: string;
begin
D := D * 24;
H := Trunc(D);
D := Frac(D) * 60;
M := IntToStr(Trunc(D));
if Length(M) < 2 then
M := "0" + M;
D := Frac(D) * 60;
S := IntToStr(Trunc(D));
if Length(S) < 2 then
S := "0" + S;
Result := Format("%d" + TimeSeparator + "%s" + TimeSeparator + "%s" ,[H, M, S])
end;

procedure TForm1.FormCreate(Sender: TObject);
var
T1, T2, T3: TTime;
Sum: double;
begin
T1 := StrToTime("12:01:02");
T2 := StrToTime("12:03:04");
T3 := StrToTime("12:05:06");
Sum := T1 + T2 + T3;
Caption := MyTimeToStr(Sum)
end;

> oldman (15.05.2009 11:59:23) [23]

А это и есть TTime

> > Юрий Зотов © (15.05.09 11:49) [22] > > alex810 > > function
> MyTimeToStr(D: double): string;Ему нужен TTime:)))

Мне именно то и было нужно.=)))
Может просто не правильно задал вопрос.

Тип TTime Найти похожие ветки