Работа с датой

[Дмитрий Артюховский]

Создаешь 2 структуры типа дата. В оду считываешь текущую, а втророй присваиваешь значение текущей + 2 дня

sys_time.ulHigh := 0;
sys_time.ulLow := 0;
cur_time.Day := 0;
cur_time.DayOfWeek :=0;
cur_time.dwHighMsec := 0;
cur_time.dwLowMSecs := 0;
cur_time.Hour := 0;
cur_time.Milliseconds := 0;
cur_time.Minute := 0;
cur_time.Month := 0;
cur_time.Second := 0;
cur_time.Year := 0;
get_time( SystemTime := sys_time, TimeDate := cur_time );

new_time.Day := cur_time.Day + 2;

(* да! надо еще проверку будет сделать на переполнение месяца ! *)