Date to integer?

Здравйте! Въпроса ми може да е малко елементарен, но се обърках вече.
Правя курсова работа за форуърди и фючърси и ми трябва да изчислявам дните разлика между две дати от DateTimePiker! Написах си собствена функция но се появи проблема с високосните години и няколко частни случая около тях и много се усложни. Трябва ми функция , която да конвертира дата към число ( мисля че трябва да е броя дни от 1.1.1900г до датата). Има ли такова нещо в Делфи, защото мисля че съм го чел май някъде?

Ми значи, самия тип TDateTime представлява следното нещо:
12312312.5454534534
първата част до десетичната запетая ти е датата, а втората част ти е часа
значи 1 ти е равно на един ден, на този принцип, ако имаш дата D1 и дата D2, където D1<=D2,
дните между тях са i=Trunc(D2)-Trunc(D2) :))

Готово е, благодаря!

Pitko: sled kato kursowata e za futures-i ne se li wzema predwid 4e meseca e 30 days, a godinata 360?
znam 4e za mnogo mesta waw finansowata sfera se priemat imenno takiwa parametri

По принцип е така, но това е на по-следващ етап от изчисленията (там има специални формули за базите) , така че програмката работи и вече я представих - имам Отличен 6. Благодаря!