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

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]

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

---

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

Ну так почему именно ПЛЮС?

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;


---

← →
Anatoly Podgoretsky ©   (2003-10-09 12:06) [10]

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

---

← →
default ©   (2003-10-09 12:29) [11]

Anatoly Podgoretsky © (09.10.03 12:06) [10]
NAlexey прав
посмотрите внимательней на дату

---

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

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

---

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

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



Память: 0.47 MB
Время: 0.013 c