Fórum Extrair Mês em um MaskEdit #268700

Colega,

Use a função Copy.

function Copy(S; Index, Count: Integer): string;
function Copy(S; Index, Count: Integer): array;

Descrição

S é uma expressão do tipo string ou array dinâmica. Index e Count são expressões do tipo inteiro. Copy retorna uma substring ou um sub array contendo [b:006154a90d]Count [/b:006154a90d](Qtde) de caracteres ou elementos inciando em [b:006154a90d]Index[/b:006154a90d] da string [b:006154a90d]S[/b:006154a90d].

Coloque um MaskEdit(Additional), um BitBtn(Additional) e um Edit(Standard).
No evento OnClick do botão adicione esse código.
Com esse código aí é 100¬ garantido.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Text:= FormatDateTime(´´´mm´´´, StrToDate(MaskEdit1.Text));
end;