Re: [delphi-br] Ano
YearOf []'s Evandro Siqueira Programador Recife/PE - Original Message - From: Info Desenvolvimento To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 10, 2005 1:54 PM Subject: [delphi-br] Ano Como extrair o ANO de uma data no usando delphi 5 com paradox. Não é em SQL. PAULO [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 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!. [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 * 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
Re: [delphi-br] Ano
// procedure TForm1.Button1Click(Sender: TObject); // coloque no seu evento var Ano : Integer; cData : String; begin cData := DatetoStr(Date()); // substitua Date() pela sua data da tabela cData := Copy(cData,7,4); Ano := StrtoInt(cData); // Label1.caption := inttoStr(Ano);; end; COMO faço para calcular Ano e a cData. Exemplo: ano: 2005 cData: 1950 Label1.caption: 55 [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 * 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
Re: [delphi-br] Ano
// procedure TForm1.Button1Click(Sender: TObject); // coloque no seu evento var Ano : Integer; cData : String; begin cData := DatetoStr(Date()); // substitua Date() pela sua data da tabela cData := Copy(cData,7,4); Ano := StrtoInt(cData); // Label1.caption := inttoStr(Ano);; end; Mensagem Original: Data: 13:54:12 10/08/2005 De: Info Desenvolvimento [EMAIL PROTECTED] Assunto: [delphi-br] Ano Como extrair o ANO de uma data no usando delphi 5 com paradox. Não é em SQL. PAULO [As partes desta mensagem que não continham texto foram removidas] -- Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages[2] 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/[3] * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aosTermos do Serviço do Yahoo![5]. Links: -- [2] http://br.groups.yahoo.com/group/delphi-br/messages [3] http://br.groups.yahoo.com/group/delphi-br/ [4] mailto:[EMAIL PROTECTED] [5] http://br.yahoo.com/info/utos.html --- Cadastre-se no Oi Internet - Acesso Grátis - Nova promoção! Aproveite a nova promoção 31% de Crédito: A gente devolve 31% do valor dos pulsos navegados, e você ainda escolhe como receber: dinheiro em sua conta corrente ou recarga em dobro no Oi Cartão Total. Cadastre-se já no http//www.oi.com.br/novocredito31 Você ainda tem 1GB de e-mail, e-mail unificado, discador com envio de SMS, 60 MB de página pessoal, bate-papo e muito mais! Acesse http://www.oi.com.br e instale já o discador Oi. -- 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