Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quinta-feira, 26 de julho de 2012

DICIONARIO - Lista de palavras Junho/2012 - Dicionário PT_BR

Reações: 

Segue abaixo dicionario de palavras em formato txt para criação de inúmeros corretores ortográficos em Português do Brasil.


Este arquivo contém somente as palavras no formato txt

Base de informações decompilada do site 
http://www.broffice.org/files/

Link: DICIONARIO_PT_BR_BROFFICE_062012.rar
Senha para abertura do arquivo: atlabs

Obs. O programa incluso no arquivo (UnMunch.exe) compactado serve para decriptar arquivos .dic e .aff (inclusos no arquivo compactado também)

Exemplo de uso: 
Abra o prompt do windows no diretório aonde se encontra os arquivo *.dic e *.aff e o arquivo UnMunch.exe
digite:
UnMunch.exe arquivo.dic arquivo.aff > arquivodesaida.txt

quarta-feira, 18 de julho de 2012

DELPHI - Retornando a idade (Ano Separado de Mês)

Reações: 


//ATLabs 18-07-2012
// Declarar na Uses: DateUtils

function RetornaIdade(DataNasc: TDate): Double;
var
  Anos, Meses: Integer;
begin
  Result := -1;
  try
    if DataNasc <= Now then
    begin
      Anos := YearsBetween(Now, DataNasc);
      Meses := MonthsBetween(Now, DataNasc) - (Anos * 12);
      if (Anos = 0) and (Meses = 0) then
         Result := 0
      else
      begin
        if (Meses = 0) then
        Result := Anos
        else
        Result := Anos + (Meses * 0.1) ;
      end;
    end
    Else
    Result := 0;
  Except
  End;
end;


//Testando:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Caption := FloatToStr(RetornaIdade(DateTimePicker1.Date));
end;

Max Gehringer