根据生日自动计算年龄

根据生日自动计算年龄

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