◆◆◆关于日期计算的一个问题！◆◆◆(ngyxh)

Question

idays:=a-b;idays:=idays*360 div 365

Answer 1

Agree Newyj1 Day = 360 / 365
Days = (360/365) * DayNum

Answer 2

newyj(老鬼)，你有没有想过，有的年可是有366天的。这个日子跟钱有关，与钱有关的东西还是精确一点比较好。
我觉得应该用DecodeDate，Year的差×360，月份的差×30，日期的差，怎么换算让他自己想想吧。

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
 y1 : Integer ;
 y2 : Integer ;
 m2 : integer ;
 m1:integer ;
 d1,d2:integer ;
 days :integer ;
begin y1 := strtoint(formatdatetime('yyyy',strtodate('2001-1-1')))  ;
 y2 :=  strtoint(formatdatetime('yyyy',strtodate('2002-7-8'))); m1 := strtoint(formatdatetime('mm',strtodate('2001-1-1')))  ;
 m2 :=  strtoint(formatdatetime('mm',strtodate('2002-7-8'))); d1 := strtoint(formatdatetime('dd',strtodate('2001-1-1')))  ;
 d2 :=  strtoint(formatdatetime('dd',strtodate('2002-7-8'))); days := (y2-y1)* 360 + (m2-m1)*30 + d2-d1 ;
 showmessage(inttostr(days));
end;

Answer 4

第二个问题用maskedit
editmask := '0000.00;1;.';就行了

Answer 5

editmask := '0000.00;1;.';
要加到哪里啊。