输入日期后立即返回现在的年龄,该如何做? showmessage(InttoStr(Yearof(Date)-Yearof(strtoDateTime(Edit.Text)))); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果Edit中输入的不是日期,会报错误!try showmessage(InttoStr(Yearof(Date)-Yearof(strtoDateTime(Edit.Text))));except showmessage('日期输入错误!');end; 使用datetimepicker让用户输入不就行了吗? ehom(?!) is good!only Function YearOf delphi 新手求助 我是DELPHI初学者,自己试着写了一个俄罗斯方块 下载文件的进程条 急急急!!用delphi6 如何进行usb口的编程! 内存操作与数据库操作的问题 本来好好的软件,突然不能连接到数据库,提示sa不能登录,为什么? 发送按键消息,但不是向指定窗口! 如何判断存储过程执行成功结束?(50分相送) 一个关于打印的问题!怎么样把一张表中的纪录全部打印出来? Delphi 7中 TIdUDPServer 的接收端怎么写代码? 有谁知道在Word里获得输入焦点。 MDI的ShowModal问题
try
showmessage(InttoStr(Yearof(Date)-Yearof(strtoDateTime(Edit.Text))));
except
showmessage('日期输入错误!');
end;