TDateTime и TTime

← →
slap (2003-10-09 09:56) [0]

Есть у меня переменная типа TDateTime.
Как мне досатать только время и "запихнуть" в переменную тип TTime?

Как мне изменить время у пременной TDateTime не меняя даты!?

← →
Reindeer Moss Eater © (2003-10-09 10:00) [1]

А что за тип за такой TTime?

← →
k_len © (2003-10-09 10:03) [2]

Есть ф-ция Time, может нужна она

← →
NAlexey © (2003-10-09 10:04) [3]

Целая часть - дата, дробная часть - время;
Abs(Frac(DateTime)) - время.

← →
Johnmen © (2003-10-09 10:20) [4]

>Reindeer Moss Eater © (09.10.03 10:00)
>А что за тип за такой TTime?

type TTime = type TDateTime

← →
slap (2003-10-09 10:38) [5]

NAlexey

спасибо за функцию Frac!!!

Как мне изменить время у пременной TDateTime не меняя даты!?

← →
NAlexey © (2003-10-09 11:22) [6]

Повторяю: В переменной типа дататайме целая часть это дата, дробная часть это тайм!
Отрезаешь от дататайм дату и прибавляешь свое время!
procedure TForm1.Button1Click(Sender: TObject); var DT: TDateTime; begin DT := SysUtils.Now; ShowMessage(DateTimeToStr((DT - Abs(Frac(DT))) + StrToTime("01:01:01"))); end;

← →
Anatoly Podgoretsky © (2003-10-09 11:23) [7]

Int, что бы отрезать старое время и ПЛЮС, что бы прибавить новое время, не меняя даты.

Frac тебе совсем не нужен

← →
NAlexey © (2003-10-09 11:50) [8]

>отрезать старое время и ПЛЮС, что бы прибавить новое время
Почему это именно ПЛЮС?

Ну так почему именно ПЛЮС?
procedure TForm1.Button1Click(Sender: TObject); var DT: TDateTime; begin DT := StrToDateTime("01.01.1111 0:01:01"); ShowMessage(DateTimeToStr(Int(DT) + StrToTime("0:02:02"))); end;

Потому что правила математики таковы
Int(YourDateTime4) + YourTime

← →
slap (2003-10-09 12:38) [12]

спасибо вам обоим!!

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