function Hours(Date1,Date2:TDateTime;):Integer;var 说了半天你照样不明白! hh1,hh2,mm,ss,ms:Word; tempDate :TDateTime;begin if Date1
日期相减后照样日孚型吗???好象不克不及用DECODETIEM。
用DecodeDate(Date: TDateTime; var Year, Month, Day: Word);DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);对日期进行解码,然后用变参返回的值进行减法运算!
Musicwind(吾爱是Yaya!) 高/