Question

delphi编写输入日期和技术日期，求两个日期的之间差多少年月日

求怎么编写，最好有注解

Answer 1

用系统塌缓孙自带的函数，在DateUtils
function DaysBetween(const ANow, AThen: TDateTime): Integer;
按钮团链哪银的事件
edit7.Text := inttostr(daysbetween(StrToDate(Edit1.Text+Edit2.Text+Edit3.Text), StrToDate(Edit4.Text+Edit5.Text+Edit6.Text)));

追问

我是新手，问个比较傻的问题，delphi输入赋值怎么赋值啊，还有最后的结果是年月日这么格式输出的，比如2001年12月1日，和20020年8月4日。输出的是18年8个月3天。能帮我编一下最好了谢谢了。

追答

function YearMonthDateCount(iDate: SmallInt): string;
var
iYear, iMonth, iDay: integer;
RreslutStr: string;
begin
try
iYear := iDate div 365;
iMonth := iDate mod 365 div 30;
iDay := iDate mod 365 mod 30;
RreslutStr:='';
if iYear > 0 then
begin
RreslutStr := IntToStr(iYear) + '年';
end;
if iMonth > 0 then
begin
RreslutStr := RreslutStr + IntToStr(iMonth) + '月';
end;
if iDay > 0 then
begin
RreslutStr := RreslutStr + IntToStr(iDay) + '天';
end;
Result := RreslutStr;
except
on E: Exception do
begin
RreslutStr := '异常类名称:' + e.ClassName + '异常信息:' + e.Message;
Result := RreslutStr;
end;
end;
end;
结合前面算天数的用。赋值什么的看函数就好了。
我是按一年365天，一月30天计算的。

Answer 2

1从年月日整数，产生日期变量 TDateTime
2，两日期变量直接脊塌相减 就是相差的天数；
很简单，我只会它的纤野喊姐妹语言C++Builder，几乎一样；
你到 www.csdn.net 论坛的DELPHI栏目多毁野探讨