فرزاد دلفی باز
پنج شنبه 20 مهر 1385, 14:31 عصر
با سلام
من برای اینکه به تاریخ مشخصی مثلا 40 روز اضافه کنم از تابع زیر استفاده کرده ام ولی برای تاریخ شمسی دارای چند روزی اختلافه و بعضی ماهها درست نیست آیا تابع دیگه ایی برای این کار هست ؟؟؟
var
myDate : TDateTime;
begin
myDate :=IncDay(EncodeDate(1385,1,9),StrToInt(40));
Label1.Caption:=DateToStr(myDate);
end;
من برای اینکه به تاریخ مشخصی مثلا 40 روز اضافه کنم از تابع زیر استفاده کرده ام ولی برای تاریخ شمسی دارای چند روزی اختلافه و بعضی ماهها درست نیست آیا تابع دیگه ایی برای این کار هست ؟؟؟
var
myDate : TDateTime;
begin
myDate :=IncDay(EncodeDate(1385,1,9),StrToInt(40));
Label1.Caption:=DateToStr(myDate);
end;