как вогнать дату в переменную TDateTime? (FP)
DateOf(Now())
type
DataTime = record
Year,Month,Day,Hour,Min,Sec: Integer;
end;
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.
Uses SysUtils, DateUtils;?
Var
D1,D2 : TDateTime;
Begin
D1:=DateOf(Now());
D2:=StrToDate('10/02/2006');
Write('Number of days between ');
Write(DateToStr(D2),' and ',DateToStr(D1));
Writeln(' : ',DaysBetween(D1,D2));
ReadLn;
End.
Uses SysUtils, DateUtils;
Var
D1,D2 : TDateTime;
s: string;
Begin
D1:=DateOf(Now());
readln(s);
D2:=strtodate(s);
Writeln('Number of days between ');
Writeln(DateToStr(D2),' and ',DateToStr(D1));
Writeln(DaysBetween(D1,D2));
ReadLn
end.