根據生日自動計算年齡與找零功能

    ——此文章摘自《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;

From:http://tw.wingwit.com/Article/program/Delphi/201311/24849.html