Преобразование даты в вещественное число

[nova-alex]

Знаю что дата и время могут представляться как вещественное число. Использую сам выражения типа x:=date1-date2, где x типа real, а date1 и date2 - тип date.
Есть ли, и какая она, функция прямого преобразования даты в число, что-то вроде DateToFloat.
И в целях повышения образованности, подскажите - от какого числа и года берется начало исчиления, т.е. 0?

[Небесный]

Вот что-то нарыл в книге, правда все наоборот, вещественное число переводиться в дату.
Вот код:

procedure TfmExemple.bbRunClick(Sender: TObject);
{Показывает вещественное число, введенное в поле edInput, в формате даты-времени}
var
k: Double;
begin
// Преобразуем строковой ввод в вещественое число
try
k := StrToFloat(edInput.Text);
except
ShowMessage('Ошибка записи вещественного числа');
edInput.SelectAll;
Exit
end;
// Показываем результат как дату-время
lbOutput.Caption := FormatDateTime('dd.mm.yyyy hh:mm:ss', k);
//Возвращаем фокус ввода в edInput
edInput.SetFocus;
end;

[mihali4]

Целая часть вещественного числа - это дата.
Пример: StrToDate('01.04.2007')
Соответственно, дробная часть - время.
Пример: StrToTime('23:15:30')
Их сумма - искомое вещественное число, т.е. однозначно определенный момент времени.
А отсчет в IBM PC осуществляется с даты после 12/30/1899.
Замечу, что все это я в памяти не держу и при подготовке ответа на ваш вопрос ничем, кроме стандартного дельфийского хэлпа, не пользовался...
Так что учитесь пользоваться хэлпом.

[nova-alex]

Сообщение от mihali4

Так что учитесь пользоваться хэлпом.

Я бы сказал "общаться " с хэлпом, потому как перед этим 2 часа хэлп бороздил, да только вокруг да около. И дату помнил...до недавнего времени.
Спасибо!

[broker_001]

Извините канешно что вмешиваюсь, а мог бы кто-нибуть подробнее описать, а то я новичок и мне смысл понятен, но как реализовать это на Делфях не очень понятно...

[Shuraken]

procedure TForm1.Button1Click(Sender: TObject);
var
k: real;
begin
k := Date + Time; //Date возвращает текущую дату, Time текущее время и далее работаешь с k, как с вещественным числом.
end;