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