这个好象用DateDiff简单点。
Dim d1 As Date = #3/17/2002 12:30:29#Dim d2 As Date = #1/1/2008 10:11:49#output.show(DateDiff("m",d1,d2))