根据生日自动计算年龄

最新推荐文章于 2023-03-04 12:34:27 发布

LairdChen

最新推荐文章于 2023-03-04 12:34:27 发布

阅读量916

点赞数

文章标签： python 移动开发

本文链接：https://blog.csdn.net/lairdchen/article/details/84605564

版权

根据生日自动计算年龄

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

    在使用YearSpan函数时，需要引入DateUtils单元。YearSpan函数用于返回两个日期之间年份的差，第一个参数为当前时间，第二个参数为用户录入的生日，返回值为浮点型，使用Trunc函数取出整数部分，主要代码如下：
     procedure TForm1.btn1Click(Sender: TObject);
    var age:Integer;
    begin
       age:= Trunc(DateUtils.YearSpan(Now,dtp1.DateTime));
       Edit1.Text:=IntToStr(age);
    end;

实现找零功能

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

    单击“找零”按钮通过“应收金额”和“实收金额”来计算出“找零金额”，“找零金额”要四舍五入，主要代码如下：
    procedure TForm1.btn2Click(Sender: TObject);
    var
      val: Currency;
    begin
      val := StrToFloat(Trim(Edit2.Text)) - StrToFloat(Trim(Edit1.Text));
      val := Trunc((val * 100 + 0.5)) / 100;
      Edit3.Text := FloatToStr(val);
    end;