Maurício, muito obrigado, deu certinho isso, eu
fiquei o fim de semana sem internet, por isso naum
pude te agradecer antes. Um Abraco!!!
Aproveitando o E-mail, vou postar outra duvida, eh o
sequinte, como pego o primeiro nome de uma pessoa, que
esta em um TEdit?
Novamente Obrigado!!!!!
/*=================================================*/
--- Maurício Chiarato Vaglieri
<[EMAIL PROTECTED]> wrote:
>
> Rodrigo,
>
> Eu faria da seguinte forma:
>
> Var
> dtAux : TDateTime;
> begin
> dtAux := (StrToDate (edtData.Text));
>
> DM_Principal.qryFeriado.FieldByName('ANO').AsString
> := FormatDateTime('yyyy',dtAux);
> end;
>
> Obs: A Função FormatDateTime permite que você
> escolha se quer pegar o ano (yyyy) o mês (mm) o dia
> (dd) entre um monte de outras variações que você
> pode conferir no help do Delphi.
>
> Abraços e mande noticias,
>
> Mauricio C. Vaglieri
>
> ----- Original Message -----
> From: Rodrigo Izquierdo da Motta
> To: delphi-br@yahoogrupos.com.br
> Sent: Thursday, March 24, 2005 4:01 PM
> Subject: [delphi-br] Pegar Ano Em Data
>
>
> Ola Lista!!!
>
>
> Estou querendo pegar o Ano de Uma Data, estou
> usando o
> YearOf, mas ele retorna um Word, entaum usei uma
> funcao chamada WordToStr, pra passar de Word pra
> String, e assim gravar no meu BD, mas isso retorna
> um
> valor estranho, parece que ele naum conseque fazer
> a
> conversao, ou coisa assim, o camando ficou assim:
>
> DM_Principal.qryFeriado.FieldByName
> ('ANO').AsString
> := WordToStr (YearOf (StrToDate (edtData.Text)));
>
> Alguem tem uma ideia de como fazer isso?
>
> Obrigado a todos!!!!!
>
> P.S.: Pegar Como Integer Tambem serve!!!!!
>
>
>
> Rodrigo Izquierdo da Motta.
>
>
>
> __________________________________________________
> Converse com seus amigos em tempo real com o
> Yahoo! Messenger
> http://br.download.yahoo.com/messenger/
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
> MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
>
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou
> [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
>
>
>
>
>
>
>
------------------------------------------------------------------------------
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web,
> acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está
> sujeito aos Termos do Serviço do Yahoo!.
>
>
>
>
>
------------------------------------------------------------------------------
>
>
> Nenhum virus encontrado nesta mensagem.
> Checked by AVG Anti-Virus.
> Version: 7.0.308 / Virus Database: 266.8.0 -
> Release Date: 21/03/2005
>
> ----------
>
> Nenhum virus encontrado nesta mensagem.
> Checked by AVG Anti-Virus.
> Version: 7.0.308 / Virus Database: 266.8.0 - Release
> Date: 21/03/2005
>
>
> [As partes desta mensagem que não continham texto
> foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
> MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou
> [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
> http://br.yahoo.com/info/utos.html
>
>
>
>
>
>
Rodrigo Izquierdo da Motta.
__________________________________________________
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
