Как преобразовать дату в строку?

@Schtrich · Регистрация: 13.08.2010

Author24 — интернет-сервис помощи студентам

Delphi

procedure TForm1.linkgenClick(Sender: TObject);
var tviLink:string;
 mydate:TDate;
 year,month,day:word;
begin
DecodeDate(Date,year,month,day);
tviLink:=IntToStr(day)+IntToStr(month)+IntToStr(year);
label3.Caption:=tviLink;
end;

если так делаю, то оно Нолики глотает, а как сделать чтобы не 1312011 было, а 13012011, т.е. как-бы маску(шаблон) задать? ну и естественно чтобы не только месяц, но и число с ноликом было если оно меньше 10.

Добавлено через 6 минут
DateToStr(); -это возвращает 13/01/2011, а мне все в одну строчку надо, без черточек?

@Inadequate · 13.01.2011, 18:39

Тогда так можно

Delphi

1	FormatDateTime('ddmmyyyy', Now)

@Schtrich · 13.01.2011, 18:47 **[ТС]**

Сообщение от Inadequate

Тогда так можно

Delphi

1	FormatDateTime('ddmmyyyy', Now)

хорошо, а если мне надо прибавить день, тогда как?
т.е. сегодня 13-ое, а мне надо получить завтрашнее число. в таком же формате???

@Inadequate · 13.01.2011, 18:53

Delphi

1	FormatDateTime('ddmmyyyy', Now + N)

где N - количество дней.

@Schtrich · 13.01.2011, 18:57 **[ТС]**

Сообщение от Inadequate

Delphi

1	FormatDateTime('ddmmyyyy', Now + N)

где N - количество дней.

супер!

@slesher · 14.01.2011, 17:21

Или на крайний случай, если дата в формате 11/11/1111 можно так:

Код

var date: tdate;
str: string;
date:=sysutils.date;
str:=copy(datetostr(date),0,2)+copy(datetostr(date),4,2)+copy(datetostr(date),7,4);

А к примеру если завтрашний день нада то просто прописываешь:

Код

date:=sysutils.date+1;
str:=copy(datetostr(date),0,2)+copy(datetostr(date),4,2)+copy(datetostr(date),7,4);

@Inadequate · 14.01.2011, 22:48

slesher, это, если честно, какой-то велосипедный вариант. Кстати, если нужно именно завтра, то можно, как вариант, использовать Tomorrow из DateUtils.

@slesher 0 / 0 / 0 Регистрация: 14.01.2011 Сообщений: 4
	14.01.2011, 17:21	6
	Или на крайний случай, если дата в формате 11/11/1111 можно так: Код var date: tdate; str: string; date:=sysutils.date; str:=copy(datetostr(date),0,2)+copy(datetostr(date),4,2)+copy(datetostr(date),7,4); А к примеру если завтрашний день нада то просто прописываешь: Код date:=sysutils.date+1; str:=copy(datetostr(date),0,2)+copy(datetostr(date),4,2)+copy(datetostr(date),7,4); 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	14.01.2011, 22:48	7
	slesher, это, если честно, какой-то велосипедный вариант. Кстати, если нужно именно завтра, то можно, как вариант, использовать Tomorrow из DateUtils. 0