| Статистика | 
|
|
Каталог статей
Приведение даты
procedure
TForm1.MaskEdit1Exit(Sender: TObject);
var
y, m, d : word;begin
decodedate(strtodate(maskedit1.text) + 11, y, m, d);
maskedit2.text := inttostr(m) + '/' +
inttostr(d) + '/' + inttostr(y);end;
|
|
|
Просмотров: 451
5
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
