RES: [delphi-br] daniel; calculo para ano bissesto

2004-10-02 Por tôpico Rubem Rocha

É só ver o fonte da função IsLeapYear() que lá tem.
[]s

-Mensagem original-
De: Renato H. Osaka ( Sófolha Informática ) [mailto:[EMAIL PROTECTED] 
Enviada em: quinta-feira, 30 de setembro de 2004 08:37
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] daniel; calculo para ano bissesto



formula

(Ano mod 4 = 0 and Ano mod 100  0) or (Ano mod 400 = 0)


- Original Message - 
From: danielromabr [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, October 01, 2004 9:47 AM
Subject: [delphi-br] daniel; calculo para ano bissesto


ola
estou estudando no 1 ano de sistemas de informacao na umc e estou 
estudando pascal
quero saber como se calcula se um ano é bissexto ou nao: tem a ver 
com o numero de dias do ano?cmo é a formula?
obrigado





-- 
 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







[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

 





RES: [delphi-br] daniel; calculo para ano bissesto

2004-10-01 Por tôpico Rubem Rocha
O Delphi tem uma função pra checar se o ano é bissexto. Chama-se IsLeapYear().
[]s

-Mensagem original-
De: Clodoaldo [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 1 de outubro de 2004 14:04
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] daniel; calculo para ano bissesto


use isto:

if ((ano mod 4)=0) then
writeln('Este é um ano bisexto')
else
Writeln('Este ano nao e bisexto');
  - Original Message - 
  From: danielromabr 
  To: [EMAIL PROTECTED] 
  Sent: Friday, October 01, 2004 9:47 AM
  Subject: [delphi-br] daniel; calculo para ano bissesto


  ola
  estou estudando no 1 ano de sistemas de informacao na umc e estou 
  estudando pascal
  quero saber como se calcula se um ano é bissexto ou nao: tem a ver 
  com o numero de dias do ano?cmo é a formula?
  obrigado





  -- 
   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: 
 
 
  Assine Claudia em
  5x de R$ 18,96 Assine Info em
  5x de R$ 21,48 
  Mais... Capricho Manequim Boa Forma  Nova Exame 
   
 
   


--
  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




 



-- 
 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] daniel; calculo para ano bissesto

2004-10-01 Por tôpico Rubem Rocha

O Delphi já tem uma função pra isso, com código fonte disponível. Chama-se 
IsLeapYear().
Pesquisem a respeito.
[]s

-Mensagem original-
De: Alisson [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 1 de outubro de 2004 15:42
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] daniel; calculo para ano bissesto


function Bissexto(Ano: Integer): Boolean;
begin
Result := (Ano mod 4 = 0) and ((Ano mod 100  0) or (Ano mod 400 = 0)); end;

  - Original Message - 
  From: danielromabr 
  To: [EMAIL PROTECTED] 
  Sent: Friday, October 01, 2004 9:47 AM
  Subject: [delphi-br] daniel; calculo para ano bissesto


  ola
  estou estudando no 1 ano de sistemas de informacao na umc e estou 
  estudando pascal
  quero saber como se calcula se um ano é bissexto ou nao: tem a ver 
  com o numero de dias do ano?cmo é a formula?
  obrigado





  -- 
   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: 
 
 
  Assine Claudia em
  5x de R$ 18,96 Assine Info em
  5x de R$ 21,48 
  Mais... Capricho Manequim Boa Forma  Nova Exame 
   
 
   


--
  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




 



-- 
 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