
Подскажите с помощью какой функцией можно преобразовать DateTime в переменную типа float где год,месяц,день были целым числом т.е. до запятойв (днях) а время после запятой с секунда.
Здравствуйте serjhp, Вы писали:
S>
Подскажите с помощью какой функцией можно преобразовать DateTime в переменную типа float где год,месяц,день были целым числом т.е. до запятойв (днях) а время после запятой с секунда.
RTFM !!!!
type TDateTime = type Double;
Здравствуйте ToShA_2K, Вы писали:
T2>Здравствуйте serjhp, Вы писали:
S>>
Подскажите с помощью какой функцией можно преобразовать DateTime в переменную типа float где год,месяц,день были целым числом т.е. до запятойв (днях) а время после запятой с секунда.
T2>RTFM !!!!
T2>type TDateTime = type Double;
Он не преобразует этой функцией в нужный мне тип (3512.76494)
procedure TForm1.DateTimePicker1Change(Sender: TObject);
type TDateTime = type Double;
begin
Label9.Caption:=DateToStr(Date);
end;
Здравствуйте serjhp, Вы писали:
S>
Подскажите с помощью какой функцией можно преобразовать DateTime в переменную типа float где год,месяц,день были целым числом т.е. до запятойв (днях) а время после запятой с секунда.
var
DT: TDateTime;
DTF: Real; //Float :)
begin
//...
DTF := DT; // Вуаля! все готово... Delphi хранит дату/время именно в таком формате... :)
end;
Если при компиляции и исполнении вашей программы не происходит ни одной ошибки — это ошибка компилятора :)))
Здравствуйте serjhp, Вы писали:
S> Label9.Caption:=DateToStr(Date);
используй
FloatToStr(Date);