电脑故障

根据生日自动计算年龄与找零功能

发布日期：2022/5/20

——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

根据生日自动计算年龄

在应用程序中可以根据用户录入的生日来计算年龄这样做的好处是程序比较灵活如果录入的是年龄那么每年增长一岁的时候都得手工更新原有的数据增加了工作量降低了工作效率本例是在员工生日下拉列表框中录入员工生日单击计算年龄按钮根据员工生日计算员工年龄并在年龄文本框中显示员工年龄如图所示

在使用YearSpan函数时需要引入DateUtils单元YearSpan函数用于返回两个日期之间年份的差第一个参数为当前时间第二个参数为用户录入的生日返回值为浮点型使用Trunc函数取出整数部分主要代码如下

procedure TFormbtnClick(Sender: TObject);

var age:Integer;

begin

age:= Trunc(DateUtilsYearSpan(NowdtpDateTime));

EditText:=IntToStr(age);

end;

实现找零功能

本例是在录入应收金额和实收金额后单击找零按钮在找零金额文本框中显示找零金额

单击找零按钮通过应收金额和实收金额来计算出找零金额找零金额要四捨五入主要代码如下

procedure TFormbtnClick(Sender: TObject);

var

val: Currency;

begin

val := StrToFloat(Trim(EditText)) StrToFloat(Trim(EditText));

val := Trunc((val * + )) / ;

EditText := FloatToStr(val);

end;