Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Free Pascal, Pascal ABC и другие _ TDateTime

Автор: compiler 24.02.2007 0:38

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

Автор: volvo 24.02.2007 0:47

DateOf(Now())

устроит?

Автор: Артемий2 24.02.2007 0:48

delete...

Автор: compiler 24.02.2007 0:49

Цитата(volvo @ 23.02.2007 19:47)

DateOf(Now())

устроит?

нет ибо мне надо не сегоднешнею дату, а другую которую вводит пользыватель...(или это тоже через Now реализуется)...

Автор: volvo 24.02.2007 0:51

Тогда покажи, КАК пользователь вводит дату?

Автор: compiler 24.02.2007 0:53

Цитата(volvo @ 23.02.2007 19:51)

Тогда покажи, КАК пользователь вводит дату?

пока незнаю, но наверно вспомощью read в формате число?месец?год

Автор: Артемий2 24.02.2007 0:54

Compiler, а обезательно использовать TDataTime? В Dos есть:

type
DataTime = record
 Year,Month,Day,Hour,Min,Sec: Integer;
end;

Автор: compiler 24.02.2007 0:54

? - маска

Добавлено через 1 мин.

Цитата(Артемий2 @ 23.02.2007 19:54)

Compiler, а обезательно использовать TDataTime? В Dos есть...

желательно чтобы потом применят необходимые прцедуры...

Автор: Артемий2 24.02.2007 0:56

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

Автор: compiler 24.02.2007 1:00

Цитата(Артемий2 @ 23.02.2007 19:56)

И 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.

Автор: volvo 24.02.2007 1:07

А так:

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.

?
Забудь про Today !!!

Автор: compiler 24.02.2007 1:18

Цитата(volvo @ 23.02.2007 20:07)

Забудь про Today !!!

А какая разница между Today и Now?

так как реализавать ввод даты?

Автор: Артемий2 24.02.2007 1:23

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.