日期处理

Question

var
  s1,s2:string;
   i:integer;
begin
  s1:='你的日期字符串'; 
  s1:=copy(s1,pos('/')+1,1);//如果是单月的话
  s2:='你的日期字符串'; 
  s2:=copy(s2,pos('/')+1,1);//如果是单月的话
  i:=strtoint(s1)-strtoint(s2);
end;
  ok 啦

Answer 1

decodedate拆分，得到月份，相减

Answer 2

sqlserver中有函数
DATEDIFF ( datepart , startdate , enddate ) 
  DATEDIFF（MONTH，DATE1，DATA2）

Answer 3

mm1:=strtoint(formatdatetime('MM',dat1))
mm2:=strtoint(formatdatetime('MM',dat1))
再加加减减就行了

Answer 4

月份差 := (Year1 - Year2) * 12 + (Month1 - Month2);

Answer 5

datebase:=2002-02-00 - 2002-01-00
月份差：=(date1-date2)/datebase

Answer 6

比较同意freeman_world的方法。
1、先搜索字符'-'在字符串的位置，将字符串分成两个日期字符串
2、字符串转换为日期
3、日期的处理应该很简单了吧