| Статистика | 
|
|
Каталог статей
Преобразование даты
procedure
TForm1.Button1Click(Sender: TObject);
var
st,
formatsave : string;
DT : TDateTime;begin
st := Edit1.text; // '1996-06-03
00.00.00'
formatsave := ShortDateFormat;
ShortDateFormat := 'yyyy.mm.dd
hh.mm.ss';
while pos ('-', st) > 0 do
st [pos ('-', st)] := '.';
DT := StrToDateTime (st);
ShortDateFormat := formatsave;
Label1.Caption := DateTimeToStr (DT);end;
|
|
|
Просмотров: 433
4
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
