Форум: "Основная";
Текущий архив: 2003.10.20;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.20;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c
