formatar data ao digitar

Question

Boa noite amigos,Gostaria de fazer uma coisa em meu sistema que sempre vejo em v�rios outros sistemas, que � a coloca��o da / automaticamente ao digitar datas.Por exemplo:tenho a data 26/05/2008Quando...

Flavio R. Maidl · Accepted Answer

Tenho uma solu��o DE LONGE mais simples, a regra aplica-se a qualquer mascara que voc� quiser usar depois, basta alterar esse mesmo c�digo:usei no teste um componente chamado edit2, mas pode ser usad...

Ricardo_ascii · Answer

Bom dia meu amigo,O que voc� pode fazer � o seguinte: mascara ele no evento onexit do campo.Ricardo...

Martins · Answer

Tente a fun��o do [b:2d111bfcdc]Guaderio - membro do Active[/b:2d111bfcdc]

function  valida_mascara_data(var Key: char; Sender: TObject):string; 
begin 
  if not(key in[�0�..�9�,8,13]) then 
    key := 0; 
  if key <> 8 then 
  begin 
    if key <> 13 then 
       if Length(TCustomEdit(sender).Text) = 10 then 
          TCustomEdit(sender).Clear; 
    case Length(TCustomEdit(sender).Text) of 
      2:begin 
        if not (key in [�0�..�9�]) then key := 0; 
          TCustomEdit(sender).Text     := TCustomEdit(sender).Text + �/�; 
        TCustomEdit(sender).selstart := Length(TCustomEdit(sender).text); 
      end; 
      5:begin 
        if not (key in [�0�..�9�]) then key := 0; 
          TCustomEdit(sender).Text     := TCustomEdit(sender).Text + �/�; 
        TCustomEdit(sender).selstart := Length(TCustomEdit(sender).text); 
      end; 
      10:begin 
        if key <> #13 then 
        begin 
          TCustomEdit(sender).Clear; 
        end; 
      end; 
    end; 
  end; 
end;

Usaria ela assim:

//No OnKeyPress do Componente.
valida_macara_data(key,sender);

Acho q est� fun��o poder� lhe ser �til, retorne para informar.

Paulo · Answer

Pelo que eu entendi da d�vida do jlsmendes n�o foi essa. Ele quer que ao digitar os dois primeiros digitos de uma data, o sistema j� coloca a primeira barra e quando ele digitar o mes, coloca a outra barra e ele digita o ano.

Jlsmendes · Answer

Martins, simplesmente perfeito.Testado, aprovado.N� por nada n�o, mas muita gente procura por esse c�digo, e na boa n�o tinha em nenhum site da internet, pois j� estava �googlando� a mais de 2 semanas.Mais uma vez muito obrigado....

Martins · Answer

[quote:7adc36d83c=�Paulo�]Pelo que eu entendi da d�vida do jlsmendes n�o foi essa. Ele quer que ao digitar os dois primeiros digitos de uma data, o sistema j� coloca a primeira barra e quando ele digitar o mes, coloca a outra barra e ele digita o ano.[/quote:7adc36d83c]Paulo n�o testei a fun��o acima, mas creio que ela faz o q o colega deseja.Mas n�o testei, vou testar logo mais, mas caso n�o funcione, escreverei uma para ele....

Paulo · Answer

Havia feito um teste da fun��o e n�o funcionou, pois o fiz de forma errada e postei achando que n�o havia entendido a d�vida do colega jlsmendes, mas fiz outro teste e funcionou legal. Desculpam-me pelo post �apressado�, mas funciona sim a fun��o.

OK colega, sem problema, estamos aqui para ajudar e aprender com os demais colegas.

Boa sorte a todos!!!

Martins · Answer

[quote:4048632701=�Paulo�]Havia feito um teste da fun��o e n�o funcionou, pois o fiz de forma errada e postei achando que n�o havia entendido a d�vida do colega jlsmendes, mas fiz outro teste e funcionou legal. Desculpam-me pelo post �apressado�, mas funciona sim a fun��o.[/quote:4048632701]OK colega, sem problema, estamos aqui para ajudar e aprender com os demais colegas.Boa sorte a todos!!!...

Leufmt · Answer

Esta dica � file. Agora vou ajustar para CPF e CNPJ. Obrigado Martins...

Leufmt · Answer

Ai vai o c�digo altera para CPF e CNPJ para quem quiser.

function Mascara_CPF(var Key: char; Sender: TObject): String;
begin
If not(Key in[�0�..�9�, #8, 13]) then
Key := 0;

If Key <> 8 then
begin
If Key <> 13 then
begin
If Length(TCustomEdit(Sender).Text) = 14 then
TCustomEdit(Sender).Clear;

end;
Case Length(TCustomEdit(Sender).Text) of
3: begin
If not (Key in [�0�..�9�]) then
Key := 0;

TCustomEdit(Sender).Text := TCustomEdit(Sender).Text + �.�;
TCustomEdit(Sender).SelStart := Length(TCustomEdit(Sender).Text);
end;
7: begin
If not (Key in [�0�..�9�]) then
Key := 0;

TCustomEdit(Sender).Text := TCustomEdit(Sender).Text + �.�;
TCustomEdit(Sender).SelStart := Length(TCustomEdit(Sender).Text);
end;
11: begin
If not (Key in [�0�..�9�]) then
Key := #0;

TCustomEdit(Sender).Text := TCustomEdit(Sender).Text + �-�;
TCustomEdit(Sender).SelStart := Length(TCustomEdit(Sender).Text);
end;
14: begin
If Key <> 13 then
TCustomEdit(Sender).Clear;

end;
end;
end;
end;

function Mascara_CNPJ(var Key: char; Sender: TObject): String;
begin
If not(Key in[�0�..�9�, 8, 13]) then
Key := 0;

If Key <> 8 then
begin
If Key <> 13 then
begin
If Length(TCustomEdit(Sender).Text) = 18 then
TCustomEdit(Sender).Clear;

end;
Case Length(TCustomEdit(Sender).Text) of
2: begin
If not (Key in [�0�..�9�]) then
Key := 0;

TCustomEdit(Sender).Text := TCustomEdit(Sender).Text + �.�;
TCustomEdit(Sender).SelStart := Length(TCustomEdit(Sender).Text);
end;
6: begin
If not (Key in [�0�..�9�]) then
Key := #0;

TCustomEdit(Sender).Text := TCustomEdit(Sender).Text + �.�;
TCustomEdit(Sender).SelStart := Length(TCustomEdit(Sender).Text);
end;
10: begin
If not (Key in [�0�..�9�]) then
Key := 0;

TCustomEdit(Sender).Text := TCustomEdit(Sender).Text + �/�;
TCustomEdit(Sender).SelStart := Length(TCustomEdit(Sender).Text);
end;
15: begin
If not (Key in [�0�..�9�]) then
Key := 0;

TCustomEdit(Sender).Text := TCustomEdit(Sender).Text + �-�;
TCustomEdit(Sender).SelStart := Length(TCustomEdit(Sender).Text);
end;
18: begin
If Key <> 13 then
TCustomEdit(Sender).Clear;

end;
end;
end;
end;

Flavio Maidl · Answer

DETALHE : nao esqueca de colocar / senao da erro, no exemplo coloquei sem as  ...

Flavio Maidl · Answer

DETALHE : nao esqueca de colocar / senao da erro, no exemplo coloquei sem as  ...