ou inttostr(yearof(date))
aqui funciona legal.
Att,
Leandro
----- Original Message -----
From: "Maurício Chiarato Vaglieri" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, March 24, 2005 4:40 PM
Subject: Re: [delphi-br] Pegar Ano Em Data
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
--
<<<<< 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
