Считываня даты

← →
Killer2 (2006-01-21 11:50) [0]

Здрастаствуйте.
подскажите пожайлуста, Каким оператором можно считать дату: ЧЧ ММ ГГГГ

← →
Desdechado © (2006-01-21 16:14) [1]

считать откуда?
если речь зашла о форматах, см. LongDateFormat, ShortDateFormat, StrToDate, DateToStr

← →
Ell (2006-01-22 10:03) [2]

Я вот так делал:

... var CurD,CurM:byte; //сегодняшние день и месяц CurY:word; //сегодняшний год ... procedure GetCurrDate; // чтение текущей даты var CurDT:string; begin CurDT:=DateToStr(Date); CurD:=StrToInt(CurDT[1]+CurDT[2]); CurM:=StrToInt(CurDT[4]+CurDT[5]); if length(CurDT)=8 then CurY:=StrToInt("20"+CurDT[7]+CurDT[8]) else CurY:=StrToInt(CurDT[7]+CurDT[8]+CurDT[9]+CurDT[10]); end;

← →
ss2 (2006-01-22 12:17) [3]

Caption:= FormatDateTime("dd mm yyyy",Now);

← →
Killer2 (2006-01-22 13:38) [4]

Спасибо большое, дошло

← →
SilverAlex © (2006-01-22 13:46) [5]

>>Ell (22.01.06 10:03) [2]
не делай так никогда, есть процедуры DecodeDate, EncodeDate. Там все просто, но надежно.Ну и модуль DateUtils рекомендую посмотреть.

← →
Ell (2006-01-22 14:15) [6]

Ell (22.01.06 14:15) [6]

зайди пуск-панель управления-язык и региональные стандарты
закладка региональные параметры нажми кнопку настройка, в появившемся окне перейди на закладку Дата и измени Краткий формат даты на, например yyyy-MM-dd и запусти свой код на выполнение.
Вообще так с датами не работают, посмотри модуль DateUtils что бы разобраться как правильно с ними работать. Там не так уж и сложно

Считываня даты Найти похожие ветки