请教,我想求两个日期之间一共有多少个月,比如1955-6-10,到2004-4-1日之间一共有多少个月,该怎么做,最好有原代码,我比较急啊
开发语言,DELPHI7
环境,win2000
开发语言,DELPHI7
环境,win2000
解决方案 »
- 禁止复制、剪切Excel中的数据
- 一个小问题:类的地址...?
- 求助:哪位知道怎么获取本机的真实IP地址呢?
- 要怎样才能让主窗体在托盘程式中移动呢?
- 急救(关于EhLib第三方控件)
- 100分:听说有个report Machine 功能比 fastreport强大?欢迎大家讨论!UP有分!
- 小弟初学DELPHI,诚邀DELPHI高手一名给预帮助!
- 請 fisheep_cn(笨鱼) 來領分!
- 请问怎样解决这个关于时间的问题!!!
- 用原生ADO对象时,变量如何定义? 直接写cn:=createoleobject("adodb.connection"); 总是提示变量cn 未定义?
- Variant型不支持比较运算
- 小妹想请文做过物流软件得高人进来!UP有分
i:=MonthsBetween(strtodatetime('1955-6-10'),strtodatetime('2004-4-1'));
showmessage(inttostr(i))
Edit3.Text:=IntToStr(MonthsBetween(StrToDate(Edit1.Text),StrToDate(Edit2.Text)));
日期格式是这样的'yyyy-mm-dd'
MonthsBetween(strtodatetime(begindate),strtodatetime(enddate));
i:integer;
begin
i:=MonthsBetween(strtodatetime('1955-6-10'),strtodatetime('2004-4-1'));
showmessage(inttostr(i));
end;
按楼上各位的说法就是
先声明
Var
Date1,Date2:TDateTime;使用时:
Date1:= DateTimePicker1.date;
Date2:= DateTimePicker2.date;
i:=MonthsBetween(Date1,Date2);