|
Приведение даты
|
|
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; | |
Категория: Алгоритмы | Добавил: DelphiAiX (28.04.2012)
|
Просмотров: 473
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
|