Приведение даты

Written on . Posted in [Delphi] Алгоритмы

procedure TForm1.MaskEdit1Exit(Sender: TObject);
var

y, m, d : word;
begin
decodedate(strtodate(maskedit1.text) +  11, y, m, d);
maskedit2.text := inttostr(m) + '/' + inttostrdiv>
end;

delphi форум