TDateTime, переменая Опции

[compiler]

как вогнать дату в переменную TDateTime? (FP)

[Артемий]

И procedure SetData(Year,Month,Day: Word)

[compiler]

И procedure SetData(Year,Month,Day: Word)

мне чтобы работало...

Uses SysUtils,DateUtils,crt;
Var
	D1,D2 : TDateTime;
Begin
	D1:=DateOf(today);
	D2:=10.02.2006;    {<----должен вводить пользыватель}
	Write('Number of days between ');
	Write(DateToStr(D2),' and ',DateToStr(D1));
	Writeln(' : ',DaysBetween(D1,D2));	
	readkey;
End.

Сообщение отредактировано: compiler - 24.02.2007 1:01