Apos eu sofrer muito, e buscar muito... Consegui a rotina em SQL que faz extracao de dia mes ou ano em uma consulta.pois o comando que todo mundo conhece do extract(month from vencimento) = 2 NAO FUNCIONA EM BANCO DE DADOS ACCESSAI SEGUE A ROTINAADOQuery1.Close; // Fecha a ConexaoADOQuery1.SQL.Clear; // Limpa a SQLADOQuery1.SQL.Add('SELECT * FROM contas WHERE (((Month([vencimento]))=:var0)) and (((Year([vencimento]))=:var1));');ADOQuery1.Parameters[0].Value := 7; // Inclui o mes no parametro (use como quiser)ADOQuery1.Parameters[1].Value := 2009; // Inclui o Ano no parametro (use como quiser)AdoQuery1.Open; // abre a conexao com os novos dados.Entao galera, espero ter ajudado e duvidas e so comentar.Isso vai servir para bastante gente e serve para relatorios, controle de dados financeiro entre outros.Abracos {Provavelmente este problema nao e um dos mais complexos a ser resolvido em uma aplicacao Delphi, mas nao e muito confortavel ficar dependendo da versao do Windows,do idioma ou da configuracao do Painel de Controle.Para que a sua aplicacao funcione bem,independente da torcida,implemente uma chamada ao procedimento abaixo, meses e dias serao ajustados para o portugues, data sera DD/MM/AAAA o separador decimal sera a virgula e separador de milhar sera o ponto.} { No formulario principal no OnCreat chame a funcao }procedure TFrm_Principal.FormCreate(Sender: TObject);begin AcertaPadraoData;end;procedure AcertaPadraoData;const arrShortDayNames: array[1..7] of string[3] = ('Dom','Seg','Ter','Qua','Qui','Sex','Sab');arrLongDayNames: array[1..7] of string[15] = ('Domingo','Segunda','Terca','Quarta','Quinta','Sexta', 'Sabado');arrShortMonthNames: array[1..12] of string[3] = ('Jan','Fev','Mar','Abr','Mai','Jun','Jul','Ago','Set','Out','Nov','Dez');arrLongMonthNames: array[1..12] of string[15] = ('Janeiro','Fevereiro','Marco','Abril','Maio', 'Junho','Julho','Agosto', 'Setembro','Outubro','Novembro','Dezembro');varii: integer;beginShortDateFormat := 'dd/mm/yyyy';DecimalSeparator := ','; {Separador Decimal}ThousandSeparator := '.'; {Simbolo de Argumentos de Digitos (Milhar)}DateSeparator := '/'; {Separador da data} for ii := 1 to 7 dobeginShortDayNames[ii] := arrShortDayNames[ii];LongDayNames[ii] := arrLongDayNames[ii];end;for ii := 1 to 12 dobeginShortMonthNames[ii] := arrShortMonthNames[ii];LongMonthNames[ii] := arrLongMonthNames[ii];end;end; Esses dias comprei o GTA 4, muito bom o jogo, otimos graficos, pra quem esta acostumado a jogar desde o 1, passando pelo Vice City entre outros, percebe que o personagem esta muito mais articulado, e o jogo tem muitas inovacoes.So que apos uma meia hora jogando, quando o jogo travava, e reiniciava o pc apos apresentar a macabra tela azul.Bom, depois de pesquisar em forums como o Clube do Hardware, e outros, constatei que esse problema acontece mesmo com tem a placa NVidia G-Force 8500 GT, e outras da mesma marca.Depois disto, mechendo no pc, verifiquei que a data do driver que eu tinha na maquina era de 2007, e resolvi entrar no site da fabricante pra procurar uma versao mais nova. La eles tem aquele pacotao de drivers, que tem tudo quanto e placa de video, e so baixar (tem mais de 100 mega), instalar e reiniciar a maquina. Meu driver agora e de 05/2009. Atualizadissimo.Depois disso o GTA 4 travou? Apresentou tela azul? Nao, nunca mais. Passo ate 2 horas jogando seguidamente, e tudo flui muito bem.Falowsui Uma planilha em Excel tambem e uma fonte de dados para ser usado em Delphi. Neste exemplo mostrarei como pegar o conteudo de uma planilha e jogar o conteudo em um StringGrind, uma vez a informacao no StringGrid voce podera gravar em uma tabela do banco, relatorios, etc.Criando a planilha no ExcelCrie uma planilha simples no Excel, com a estrutura semelhante na Figura 1. Salve a planilha