Jak zapisać date w postaci liczby

Witam
Mam wielką prośbę - potrzebuje zamienić datę na liczbę - dokładnie w odwrotny sposób jak jest to opisane w poście
http://4programmers.net/Forum/112913?h=daty%20na%20liczbe#id112913
Proszę o szybką odpowiedź

jesli na odwrot to http://4programmers.net/Delphi/StrToDate

Niestety to już wiem ale potrzebuje zamienić na liczbę taj jak w poście do którego link podałem

jak bedziesz formatowal date to juz od ciebie zalezy, TDateTime to nic innego jak liczba formatowana z odpowiednimi zasadami (to juz w helpie), mozesz uzyc systemu unixowego czyli bedzie zapisywal ilosc sekund jakie uplynelo po 1d 1m 1970r. Tekst data podziel sobie odpowiednio i wszystko bedzie ok.

a nie wystarczy

 caption:= DateToStr(37987);

jezeli format ma byc inny niz w systemie to

 LongDateFormat:='yyyy/mm/dd';
 DateSeparator:= '-';

Wszystko się zgadza ale ja chce datę w formacie 2000-04-01 zamienić na 37987. Jak to zrobić????

Użyj DateToStr. Co do formatu to:
http://4programmers.net/Forum/399586?h=#id399586

canda napisał(a)

Wszystko się zgadza ale ja chce datę w formacie 2000-04-01 zamienić na 37987. Jak to zrobić????

procedure TForm1.Button1Click(Sender: TObject);
var D:TDateTime;
begin
D:=StrToDate('2004-01-01');

showmessage( floattostr(d) );
end;