Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Тип TTime

Страницы: 1 2 >
alex810 © (2009-05-15 10:51:00)
Уважаемы мастера как использовать TTime более 24 часов??

alex810 (2009-05-15 12:20:00) [1]

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

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

alex810 (2009-05-15 12:18:00) [2]

> Юрий Зотов © (15.05.09 11:49) [22]

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

Anatoly Podgoretsky (2009-05-15 12:08:00) [3]
> oldman (15.05.2009 11:59:23) [23]

А это и есть TTime

oldman (2009-05-15 11:59:00) [4]

> Юрий Зотов © (15.05.09 11:49) [22]
> > alex810
>
> function MyTimeToStr(D: double): string;

Ему нужен TTime
:)))

Юрий Зотов (2009-05-15 11:49:00) [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;

Anatoly Podgoretsky (2009-05-15 11:21:00) [6]
> Сергей М. (15.05.2009 11:11:20) [20]

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

T := 1.5;

Сергей М. (2009-05-15 11:11:00) [7]

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

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

Anatoly Podgoretsky (2009-05-15 11:05:00) [8]
> alex810 (15.05.2009 10:58:08) [8]

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

alex810 (2009-05-15 11:04:00) [9]

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

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

oldman (2009-05-15 11:03:00) [10]

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

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

alex810 (2009-05-15 11:03:00) [11]

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

=)))))))))0

Сергей М. (2009-05-15 11:03:00) [12]

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

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

alex810 (2009-05-15 11:02:00) [13]

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

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

Сергей М. (2009-05-15 11:02:00) [14]

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

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

Медвежонок Пятачок (2009-05-15 11:02:00) [15]
Или тут не стоит терять время??

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

alex810 (2009-05-15 11:01:00) [16]

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

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

Медвежонок Пятачок (2009-05-15 11:00:00) [17]
а мне надо что бы получилось '36:00:00'

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

TTime - это время.

oldman (2009-05-15 11:00:00) [18]

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

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

alex810 (2009-05-15 10:58:00) [19]
Так что ответ есть или нет???
Или тут не стоит терять время??

Медвежонок Пятачок (2009-05-15 10:57:00) [20]
TTime - это время (Тот же TDateTime)

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

Это вовсе не TDlitelnostIliProdolzitelnost

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »