计算二个时间的日期差,返回如'1年零2个月零20天'的字串(源码),略供参考 (0分)

function diffdayvalue(dt1, dt2: TDateTime; var y, m, d: word): string;
返回二个时间之间的年月日差,返回如'1年零2个月零20天'的字串,同时y,m,d也返
回年月日差的值.
计算是以人们通常采用的方式进行的,比如1999-2-10到1999-3-10虽然只有28天但
返回的是'1个月',y=0,m=1,d=0

http://asp.6to23.com/bcbcn/text/view-text.asp?btype=0&id=10

看看！好想有个存储过程可以实现类似的转换！

接受答案了.