بدست آوردن یک تاریخ خاص

[محمد حسن]

با سلام
دلفی توابع آماده ای برای بدست آوردن تاریخ امروز(today)ودیروز(yesterday) داره
آیا تابع آماده ای برا بدست آوردن تاریخ 10 روز(n روز) پیش هم داره

[mofrad]

var
myDate : TDateTime;
begin
// Set up our date just before the end of the year 2000
myDate := EncodeDate(2000, 12, 30);
ShowMessage('myDate = '+DateToStr(myDate));

// Add 10 days to this date
myDate := IncDay(myDate, 10);
ShowMessage('myDate + 10 days = '+DateToStr(myDate));

// Subtract 12 days from this date
myDate := IncDay(myDate, -12);
ShowMessage('myDate - 12 days = '+DateToStr(myDate));