خطای یک تابع

[khoshblagh]

با سلام خدمت دوستان
این تابع ( که توسط جناب آقای زالی نوشته شده است)جهت محاسبه تعداد روزهای به دو تاریخ است.
function Date_DifDate(Dt1, Dt2: string; DateBase: TDateBase): integer;var
D1, D2: TDate;
begin
if DateBase = dbSolar then
begin
Dt1 := Date_SolarToGregorian(Dt1);
Dt2 := Date_SolarToGregorian(Dt2);
end;
D1 := StrToDate(Dt1, FormatSetting);
D2 := StrToDate(Dt2, FormatSetting);
Result := abs(DaysBetween(D1, D2)) * IfThen(D1 < D2, 1, -1);
end;

با دستور
edtTedadMah.Text:=Date_DifDate(mskAzTarikh.Text,ms kTaTarikh.Text,dbsolar);

فراخوانی میشود.
اما خطای زیر نمایش داده میشود. ظاهرا از بخش قرمز رنگ خطا ایجا شده است.
[dcc32 Error] UnitGozareshVazParvand.pas(409): E2250 There is no overloaded version of 'IfThen' that can be called with these arguments
[dcc32 Error] UnitGozareshVazParvand.pas(414): E2035 Not enough actual parameters
هدف دریافت تعداد روزهای بین دو تاریخ و سپس تبدل به تعداد ماه این بازه زمانی می باشد.
از دلفی 10 (ریو) و ویندوز 10 استفاده منمایم. متشکرم

[یوسف زالی]

سلام. یونیت Math رو یوز کنید.