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
RES: [delphi-br] Ano
Abaixo um exemplo de como se pegar os componentes de uma data, independente do formato. var D : TDateTime; Dia, Mes, Ano : Word; begin D := Date; // Pegando os valores da data; DecodeDate(D, Ano, Mes, Dia); ShowMessage( 'Dia: ' + IntToStr(Dia) ); ShowMessage( 'Mês: ' + IntToStr(Mes) ); ShowMessage( 'Ano: ' + IntToStr(Ano) ); end; []'s Andreano Lanusse System Engineer Borland Latin America [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> - www.borland.com.br http://www.borland.com.br/> A Borland Software é líder global em soluções independentes de plataforma para o Software Delivery Optimization, auxiliando nossos clientes a resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar o valor do negócio de seu software. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alisson Yahoo Enviada em: quinta-feira, 11 de agosto de 2005 11:01 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Ano Quanta volta! Não seria melhor assim? procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := Copy(DateToStr(Date), 7, 10) end; // 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; [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] <mailto:[EMAIL PROTECTED]> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> . [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
Quanta volta! Não seria melhor assim? procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := Copy(DateToStr(Date), 7, 10) end; // 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; [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
RES: [delphi-br] Ano
Utilize a função YearOf do Delphi. Ricardo Santos _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Info Desenvolvimento Enviada em: quarta-feira, 10 de agosto de 2005 13:54 Para: delphi-br@yahoogrupos.com.br 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] -- <<<<< 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] <mailto:[EMAIL PROTECTED]> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do <http://br.yahoo.com/info/utos.html> 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; > 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
[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 <*> 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