Текущий архив: 2006.02.12;
Скачать: CL | DM;
Вниз
Считываня даты Найти похожие ветки
← →
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]SilverAlex © (22.01.06 13:46) [5] :
> не делай так никогда
А почему нельзя так? В чём могут быть проблемы?
← →
SilverAlex © (2006-01-22 14:31) [7]Ell (22.01.06 14:15) [6]
зайди пуск-панель управления-язык и региональные стандарты
закладка региональные параметры нажми кнопку настройка, в появившемся окне перейди на закладку Дата и измени Краткий формат даты на, например yyyy-MM-dd и запусти свой код на выполнение.
Вообще так с датами не работают, посмотри модуль DateUtils что бы разобраться как правильно с ними работать. Там не так уж и сложно
Страницы: 1 вся ветка
Текущий архив: 2006.02.12;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.04 c
