Tente assim :
Var
Ano_Atual, Ano_Formac: Integer;
Begin
ANO_ATUAL := strtoint(FormatDateTime('yyyy',Now)); aqui é data
//-- Aqui estava o erro
ANO_FORMAC:=
strtoint(FormatDateTime('yyyy',DataModulo.IRMA.FieldByName('DTPROFES').AsDateTime));
End;
[ ]´s
Moacir
Info Desenvolvimento escreveu:
>e como é que eu faço para extrair o ano de uma data de um campo de uma tabela.
>Exemplo:
>Var
>Ano_Atual, Ano_Formac: Integer;
>Begin
> ANO_ATUAL:= strtoint(FormatDateTime('yyyy',Now)); aqui é data
> ANO_FORMAC:= Copy (DataModulo.IRMA.FieldByName('DTPROFES').AsDateTime,4,7));
> aqui é data
>End;
>
>Sendo que o ano da data do campo da tabela é mm/dd/yyyy
>então são os quatro ultimos digitos apartir da casa nr 7. estou correto?
>da informando o seguinte erro: [Error] UnRel_ListaProfis25aPeriodo.pas(192):
>Incompatible types
>
>
>
>
>[As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.10.4/66 - Release Date: 9/8/2005
--
<<<<< 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
