Filipe, não entendi pq tratar os anos bissextos???? A data do feriado em si não muda nada, já que para exportar eu uso um copy(data,1,2) + copy(data,4,2) + (ano + 1).....
Ou tem algo errado???? -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Filipe Enviada em: quinta-feira, 2 de março de 2006 08:28 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Exportar Feriados Bom, como o Claudio disse, você terá que ter algo que os diferencie, mas acho que não precisa ser na tabela. Você pode, por exemplo, colocar um caractere especial atrás dos feriados móveis. Pode até ser um que nem apareça! por exemplo, se vc for no bloco de notas e segurar Alt e pressionar 2, 5, 5, aparece um caracter em branco, mas que não é um espaço. Coloque um desses atrás do nome do seu feriado e pronto! Você já tem como diferenciá-los. var Feriado: String; begin if Feriado[Length(Feriado)] = SeuCaracterEspecial then ShowMessage(Feriado +' é um feriado móvel.'); end; Ps.: Lembre-se de tratar anos bissextos depois de 29 de fevereiro, e anos subsequentes aos bissextos antes de 28 de fevereiro. Pode usar a função IsLeapYear. []'s Filipe Geyer ----- Original Message ----- From: Eduardo Silva ® To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 01, 2006 6:17 PM Subject: RES: [delphi-br] Exportar Feriados Nossa cara, não tem nada que os diferencie. Os feriados móveis são apenas 4: - carnaval, sexta-feira santa, corpus cristi e pascoa, os outros são fixos. Na verdade eu tenho 4 botões no meu form que de acordo com o ano atual eu calculo os feriados móveis e o resto eu ia colocando na mão, mas pra não ficar inserindo todo ano os mesmos, eu queria fazer essa exportação, isto é, pega o ano atual + 1 e joga os feriados para o proximo ano, só que tem o problemas desses feriados que a cada ano caem em uma data diferente, ai é que o bicho pegou....e eu não to sabendo como me virar... -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de [EMAIL PROTECTED] Enviada em: quarta-feira, 1 de março de 2006 17:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Exportar Feriados Primeiro voce precisa saber o que diferencia o feriado movel do fixo na sua tabela. Se existir esse separador fica facil. Se nao existir vai complicar muito, a ponto de voce ter que saber o nome de todos os feriados moveis e incluir na rotina de exportacao com diversos ifs pra nao migra-los. Cláudio Anderson de Araújo Prudente Analista/Desenvolvedor de Sistemas [EMAIL PROTECTED] ----- Original Message ----- From: "Eduardo Silva ®" <[EMAIL PROTECTED]> To: "Grupo Delphi-br" <delphi-br@yahoogrupos.com.br> Sent: Wednesday, March 01, 2006 4:57 PM Subject: [delphi-br] Exportar Feriados > Galera, tenho uma tabela onde eu cadastro os feriados do ano. Eu coloquei um > botão para exportar os feriados de um ano para o outro (assim não preciso > digitar os "mesmos" feriados a cada mudança de ano). > > Meu problema esta nos feriados móveis (carnaval, pascoa, sexta-feira santa e > corpus cristhi). Eu preciso exportar todos os feriados gravados na tabela > naquele ano + 1, menos os feriados móveis. Alguem pode me dar uma luz? > > Se eu exportar todos de uma vez, os feriados móveis vem errado, por isso eu > preciso exportar apenas os feriados fixos(ano novo, tiradentes, 7 de > setembro, dentre outros). > > Como eu poderia fazer? > > __ __ > / \ /| |'-. > .\__/ || | | > _ / `._ \|_|_.-' > | / \__.`=._) (_ > |/ ._/ |"""""""""| > |'. `\ | | Eduardo de Almeida Silva > ;"""/ / | | Kobra Sistemas > ) /_/| |.-------.| Desenvolvimento de Software > ' `-` ' " " > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > Links do Yahoo! Grupos > > > > > > > > > > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE ------------------------------------------------------------------------ ---- -- 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!. __________ Informação do NOD32 1.1422 (20060301) __________ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com..br [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -------------------------------------------------------------------------- ---- 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 >>>>> Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE ---------------------------------------------------------------------------- -- 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!. __________ Informação do NOD32 1.1424 (20060302) __________ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [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] 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
