2. März 2010 09:45
2. März 2010 10:46
Function Age(Birthday)
if Birthday >= today then
exit(0);
BDay := DATE2DMY(Birthday,1);
BMonth := DATE2DMY(Birthday,2);
BYear := DATE2DMY(Birthday,3);
Day := DATE2DMY(Today,1);
Month := DATE2DMY(Today,2);
Year := DATE2DMY(Today,3);
if Month < BMonth then
Year -= 1
else
if ((Month = BMonth) and (Day < BDay))then
Year -=1 ;
exit(Year - BYear);
5. März 2010 14:09
5. März 2010 14:34
5. März 2010 15:21
5. März 2010 15:32
5. März 2010 16:05