subject:"RES\: \[delphi\-br\] Retirar sinais de uma data"

RES: [delphi-br] Retirar sinais de uma data

2007-09-05 Por tôpico Davi Eduardo Borges Wall

Tamara,

 

Já foram dadas 700.000 soluções para esse caso. Acho que a pessoa que solicitou 
isso já montou uma biblioteca de retirar

“sinais” de uma data. Pois tantas foram as formas de solução que passaram pra 
ele.

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Tamara 
Clemente
Enviada em: quarta-feira, 5 de setembro de 2007 08:11
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Retirar sinais de uma data

 

Desculpa pessoa, estou caindo meio de paraquedas na conversa, mas pelo que
entendi a necessidade é retirar barra ou traço separador de dia, mes e ano,
correto??? O formatdateTime naum ajuda

Tamara Clemente
Analista Desenvolvedora

Em 04/09/07, Eduardo Silva dos Santos [EMAIL PROTECTED] 
mailto:eduardo.drd%40gmail.com  escreveu:

 da pra fazer de várias formas mesmo, eu mesmo uso essa rotina..

 function remove_carcter(sString:String):String;
 var
 cSpecial: String;
 nPos, nConta: Integer;
 begin

 cSpecial :=

 ';~ø.`()[EMAIL 
 PROTECTED]*_-+=}{[]|\/.,?*-+€‚,.ƒ„…†‡ˆ‰Š‹ŒŽ''•–—˜™š›œžŸ
 ¡¢£¤¥¦§¨(c)ª«¬(r)¯°±²³´µ¶·¸¹º»¼½¾¿ÆÐ';
 Result := '';
 for nConta := 1 to Length(cSpecial) do begin
 while Pos(cSpecial[nConta],sString )  0 do
 System.Delete(sString, Pos(cSpecial[nConta],sString ) ,1);
 end;
 Result := sString;

 end;

 Em 04/09/07, Eduardo Castro Alves [EMAIL PROTECTED] 
 mailto:ecastroa_edu%40yahoo.com.br ecastroa_edu%40yahoo.com.br
 escreveu:
 
  Ricardo, no seu lugar eu faria o mesmo.
 
  Nunca altero o que esta funcionando, só postei para você ver que existe
  uma maneira usando uma unica variavel para o loop.
 
  Eduardo
 
  Ricardo Cabral escreveu:
  
   Eduardo,
  
   É isso mesmo !
   Valeu por mandar uma versão melhorada. Usei a minha e deixei ela como
   tava.
  
   Abraços,
  
   Ricardo
  
   Eduardo Castro Alves [EMAIL PROTECTED] 
   mailto:ecastroa_edu%40yahoo.com.br ecastroa_edu%40yahoo.com.br
 ecastroa_edu%40yahoo.com.br
   mailto:ecastroa_edu%40yahoo.com.br escreveu: Ricardo, pelo que eu
   entendi, você pega um texto e transforma em um
   texto só de numeros.
  
   Assim tb funciona.
  
   function ExtractNumber(pValor : String) : String;
   var
   i : Integer;
   begin
   Result := '';
   for i := 1 to Length(pValor) do
   begin
   if pValor[i] in ['0'..'9'] then
   Result := Result + pValor[i];
   end;
   end;
  
   Eduardo
  
   Ricardo Cabral escreveu:
   
Paulo,
   
Não sei se já existe no delphi, mas eu uso essa para qualquer
 string.
   
Espero ter ajudado.
   
Ricardo Cabral
   
Function Tffuncoes.numeros(valor : string) : string; // Limpa string
 e
deixa soimente numeros
var
i : integer;
xvalor : string;
xnum : String;
begin
xvalor:=trim(valor);
xnum:='0123456789';
valor:='';
for i := 1 to Length(xvalor) do
begin
if pos(copy(xvalor,i,1),xnum)0 then
valor:=valor+copy(xvalor,i,1);
end;
result:=valor;
end;
   
pcinfowave [EMAIL PROTECTED] mailto:infowave%40jupiter.com.br  
infowave%40jupiter.com.brinfowave%40jupiter.com.brmailto:
  infowave% infowave%2540jupiter.com.br
mailto:infowave% infowave%25 infowave%2540jupiter.com.br
 escreveu: Ola
  amigos,
Alguem podria me passar uma função que retire os sinais de uma data,
deixando apenas os numeros?
Obrigado!
[]´
Paulo
   
   
   
   
   
Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
   
[As partes desta mensagem que não continham texto foram removidas]
   
   
  
  
  
  
  
   Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
 
 
 

 --
 Eduardo Silva dos Santos
 DRD Sistemas.
 (27) 3218-4201
 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com  
 eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com/

 [As partes desta mensagem que não continham texto foram removidas]

 


[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Retirar sinais de uma data

2007-09-05 Por tôpico Ricardo Cabral

 Davi,

Mesmo que tenham dado 70.000 soluções como você disse, acho interessante a 
solução 700.001. Acho que é para isso que a lista existe: Discutir sobre um 
determinado tema.

Ricardo

Davi Eduardo Borges Wall [EMAIL PROTECTED] escreveu:  
 Tamara, 
 
   
 
 JÃ¡ foram dadas 700.000 soluÃ§Ãµes para esse caso. Acho que a pessoa que 
solicitou isso jÃ¡ montou uma biblioteca de retirar 
 
 âsinaisâ de uma data. Pois tantas foram as formas de soluÃ§Ã£o que 
passaram pra ele. 
 
   
 
 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Tamara 
Clemente 
 Enviada em: quarta-feira, 5 de setembro de 2007 08:11 
 Para: delphi-br@yahoogrupos.com.br 
 Assunto: Re: [delphi-br] Retirar sinais de uma data 
 
   
 
 Desculpa pessoa, estou caindo meio de paraquedas na conversa, mas pelo que 
 entendi a necessidade Ã© retirar barra ou traÃ§o separador de dia, mes e ano, 
 correto??? O formatdateTime naum ajuda 
 
 Tamara Clemente 
 Analista Desenvolvedora 
 
 Em 04/09/07, Eduardo Silva dos Santos [EMAIL PROTECTED] 
mailto:eduardo.drd%40gmail.com  escreveu: 
  
  da pra fazer de vÃ¡rias formas mesmo, eu mesmo uso essa rotina.. 
  
  function remove_carcter(sString:String):String; 
  var 
  cSpecial: String; 
  nPos, nConta: Integer; 
  begin 
  
  cSpecial := 
  
  ';~Ã¸.`()[EMAIL PROTECTED]*_-+=}{[]|\/.,?*-+â¬Ââ,.Æââ¦â 
  â¡Ëâ°Å â¹ÅÂÅ½ÂÂ''â¢ââËâ¢Å¡âºÅÂÅ¾Å¸ 
  Â¡Â¢Â£Â¤Â¥Â¦Â§Â¨(c)ÂªÂ«Â¬Â(r)Â¯Â°Â±Â²Â³Â´ÂµÂ¶Â·Â¸Â¹ÂºÂ»Â¼Â½Â¾Â¿ÃÃ'; 
  Result := ''; 
  for nConta := 1 to Length(cSpecial) do begin 
  while Pos(cSpecial[nConta],sString )  0 do 
  System.Delete(sString, Pos(cSpecial[nConta],sString ) ,1); 
  end; 
  Result := sString; 
  
  end; 
  
  Em 04/09/07, Eduardo Castro Alves [EMAIL PROTECTED] 
  mailto:ecastroa_edu%40yahoo.com.br ecastroa_edu%40yahoo.com.br 
  escreveu: 
   
   Ricardo, no seu lugar eu faria o mesmo. 
   
   Nunca altero o que esta funcionando, sÃ³ postei para vocÃª ver que existe 
   uma maneira usando uma unica variavel para o loop. 
   
   Eduardo 
   
   Ricardo Cabral escreveu: 

Eduardo, 

Ã isso mesmo ! 
Valeu por mandar uma versÃ£o melhorada. Usei a minha e deixei ela como 
tava. 

AbraÃ§os, 

Ricardo 

Eduardo Castro Alves [EMAIL PROTECTED] 
mailto:ecastroa_edu%40yahoo.com.br ecastroa_edu%40yahoo.com.br 
  ecastroa_edu%40yahoo.com.br 
mailto:ecastroa_edu%40yahoo.com.br escreveu: Ricardo, pelo que eu 
entendi, vocÃª pega um texto e transforma em um 
texto sÃ³ de numeros. 

Assim tb funciona. 

function ExtractNumber(pValor : String) : String; 
var 
i : Integer; 
begin 
Result := ''; 
for i := 1 to Length(pValor) do 
begin 
if pValor[i] in ['0'..'9'] then 
Result := Result + pValor[i]; 
end; 
end; 

Eduardo 

Ricardo Cabral escreveu: 
 
 Paulo, 
 
 NÃ£o sei se jÃ¡ existe no delphi, mas eu uso essa para qualquer 
  string. 
 
 Espero ter ajudado. 
 
 Ricardo Cabral 
 
 Function Tffuncoes.numeros(valor : string) : string; // Limpa string 
  e 
 deixa soimente numeros 
 var 
 i : integer; 
 xvalor : string; 
 xnum : String; 
 begin 
 xvalor:=trim(valor); 
 xnum:='0123456789'; 
 valor:=''; 
 for i := 1 to Length(xvalor) do 
 begin 
 if pos(copy(xvalor,i,1),xnum)0 then 
 valor:=valor+copy(xvalor,i,1); 
 end; 
 result:=valor; 
 end; 
 
 pcinfowave [EMAIL PROTECTED] mailto:infowave%40jupiter.com.br  
 infowave%40jupiter.com.brinfowave%40jupiter.com.brmailto: 
   infowave% infowave%2540jupiter.com.br 
 mailto:infowave% infowave%25 infowave%2540jupiter.com.br 
  escreveu: Ola 
   amigos, 
 Alguem podria me passar uma funÃ§Ã£o que retire os sinais de uma data, 
 deixando apenas os numeros? 
 Obrigado! 
 []Â´ 
 Paulo 
 
 
 
 
 
 Flickr agora em portuguÃªs. VocÃª clica, todo mundo vÃª. Saiba mais. 
 
 [As partes desta mensagem que nÃ£o continham texto foram removidas] 
 
 





Flickr agora em portuguÃªs. VocÃª clica, todo mundo vÃª. Saiba mais. 

[As partes desta mensagem que nÃ£o continham texto foram removidas] 


   
   
   
  
  -- 
  Eduardo Silva dos Santos 
  DRD Sistemas. 
  (27) 3218-4201 
  MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com  
  eduardo.drd%40gmail.com 
  Site: http://www.drdsistemas.com/ 
  
  [As partes desta mensagem que nÃ£o continham texto foram removidas] 
  
   
  
 
 [As partes desta mensagem que nÃ£o continham texto foram removidas] 
 
   
 
 
 [As partes desta mensagem que nÃ£o continham texto foram removidas]
 
 
 
   

   Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
   Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

[As partes desta mensagem que não

Re: RES: [delphi-br] Retirar sinais de uma data

2007-09-04 Por tôpico Luciano Angelini

Talvez ajude..



procedure TForm1.Button1Click(Sender: TObject);
var dt_normal  : TDateTime ;
dt_soh_numero  : string ;
begin
dt_normal   := StrToDate(edit1.text) ;
dt_soh_numero  := formatdatetime('DDMM',dt_normal);
label1.Caption   := dt_soh_numero ;
end;

Natanael Rodrigues escreveu:

 FormatDatetime('ddMM',date)

 _

 De: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br 
 [mailto:delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br] Em
 nome de pcinfowave
 Enviada em: segunda-feira, 3 de setembro de 2007 16:56
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Assunto: [delphi-br] Retirar sinais de uma data

 Ola amigos,
 Alguem podria me passar uma função que retire os sinais de uma data,
 deixando apenas os numeros?
 Obrigado!
 []´
 Paulo

 [As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Retirar sinais de uma data

2007-09-03 Por tôpico Natanael Rodrigues

FormatDatetime('ddMM',date)

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de pcinfowave
Enviada em: segunda-feira, 3 de setembro de 2007 16:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Retirar sinais de uma data

 

Ola amigos,
Alguem podria me passar uma função que retire os sinais de uma data, 
deixando apenas os numeros?
Obrigado!
[]´
Paulo

 



[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Retirar sinais de uma data

2007-09-03 Por tôpico Andre Luis Silveria

Não sei se ajuda:
Formatdatetime('ddmm', Data);

Essa função vai retornar uma string com a data no formato que desejar ...

 
 GYNCOWBOY 
 André Luis da Silveira






  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Retirar sinais de uma data

2007-09-03 Por tôpico Davi Eduardo Borges Wall

Procure no help DecodeDate()

 

[]'s

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de pcinfowave
Enviada em: segunda-feira, 3 de setembro de 2007 16:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Retirar sinais de uma data

 

Ola amigos,
Alguem podria me passar uma função que retire os sinais de uma data, 
deixando apenas os numeros?
Obrigado!
[]´
Paulo

 



[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Retirar sinais de uma data

Re: RES: [delphi-br] Retirar sinais de uma data

Re: RES: [delphi-br] Retirar sinais de uma data

RES: [delphi-br] Retirar sinais de uma data

Res: [delphi-br] Retirar sinais de uma data

RES: [delphi-br] Retirar sinais de uma data

6 matches

Site Navigation

Mail list logo

Footer information