Funções Básicas de Data em Delphi7

Funções Básicas de Data em Delphi7

As Funções Básicas de Data em Delphi7 são essenciais em qualquer linguagem de programação, e com o Delphi não é diferente. Algumas das funções mais utilizadas incluem operações matemáticas simples, como soma, subtração, multiplicação e divisão. Além disso, a linguagem Delphi possui funções para trabalhar com datas, strings, arrays e outras estruturas de dados comuns. Saber como usar essas funções básicas é fundamental para a construção de programas funcionais e eficientes.

Sobre DELPHI

É importante destacar que se trata de uma linguagem de programação orientada a objetos utilizada para criar aplicativos para o sistema operacional Windows. Uma das principais características é a utilização de funções, que são blocos de código específicos que podem ser chamados de qualquer lugar do programa para executar tarefas específicas.

Delphi é uma linguagem de programação robusta e versátil que oferece uma variedade de recursos para desenvolvedores que desejam criar aplicativos para desktop.

Vantagens do DELPHI

Algumas das principais vantagens do Delphi incluem:

Desenvolvimento rápido de aplicativos:
Com a possibilidade de arrastar e soltar componentes na interface gráfica do usuário (GUI), o Delphi permite o desenvolvimento rápido de aplicativos com menos código e em menos tempo.

Forte orientação a objetos:
O Delphi segue uma abordagem altamente orientada a objetos, permitindo que os desenvolvedores criem aplicativos modulares e reutilizáveis, o que melhora a eficiência e a manutenção do código.

Compilação nativa: O Delphi compila o código em linguagem de máquina nativa para Windows, garantindo que os aplicativos resultantes executem de forma mais rápida e eficiente.

Bibliotecas de componentes ricas: O Delphi vem com uma ampla variedade de componentes prontos para uso, permitindo que os desenvolvedores criem aplicativos ricos em recursos sem precisar escrever todo o código do zero.

Ferramentas de depuração avançadas: O Delphi oferece ferramentas avançadas de depuração, como o depurador de eventos em tempo real, que permite que os desenvolvedores identifiquem e corrijam erros rapidamente.

Suporte a múltiplas plataformas: Com o lançamento do Delphi XE7, os desenvolvedores agora podem criar aplicativos para várias plataformas, incluindo Windows, Mac, iOS e Android, com um único código-base.

Qual a tendência para o Delphi?

O mercado ainda utiliza a linguagem de programação Delphi, principalmente em empresas que já possuem sistemas legados escritos em Delphi. No entanto, é importante notar que o mercado tem se voltado cada vez mais para outras linguagens de programação, como Java, Python, C# e JavaScript.

Apesar disso, a Embarcadero Technologies, empresa que desenvolve o Delphi, tem trabalhado constantemente no aprimoramento da linguagem, lançando novas versões e adicionando recursos avançados, como suporte para desenvolvimento móvel e integração com outras tecnologias.

Assim, embora a popularidade tenha diminuído um pouco nos últimos anos, ainda há um mercado ativo para a linguagem e a tendência é de que a plataforma continue a evoluir e se adaptar às necessidades dos desenvolvedores e das empresas que a utilizam.

Vamos ver na prática:

Funções Básicas de Data em Delphi7 – Função TestaDataString

Essa função TESTADATASTRIG implementa uma validação simples para garantir que a string de entrada represente uma data válida e retornar essa data formatada em uma string no formato “dd/mm/yyyy”.

Sintaxe:

function TestaDataString(Data_String : String ) : String;
var w_data : TdateTime;
begin
   if Data_String <> '' then
   begin
      try
        w_data := strtodatetime(Data_txt);
        result := FormatDateTime('dd/mm/yyyy',w_data);
      except
        result := '';
      end;
   end
   else
      result := '';
end;

Funções Básicas de Data em Delphi7 – A Função SubMes

Essa função SUBMES recebe uma data no formato TDateTime como parâmetro e retorna outra data correspondente ao mesmo dia e mês, mas no mês anterior ao da data informada.

A função começa com a declaração de três variáveis do tipo Word: Dia, Mes e Ano. Em seguida, a função utiliza a rotina DecodeDate para obter o dia, mês e ano correspondentes à data informada e armazená-los nas variáveis Dia, Mes e Ano, respectivamente.

A variável Mes, em seguida, decrementa 1 e verificamos se Mes fica menor que 1. Se isso acontecer, Mes é reiniciado para 12 e o Ano é decrementado em 1. Isso garante que a data resultante seja no mês anterior e, se necessário, no ano anterior.

Finalmente, a função usa a rotina EncodeDate para criar uma nova data com o mês anterior e o mesmo dia e ano da data original, armazenando essa data na variável Result, que, em seguida, a função retorna.

Em resumo, essa função recebe uma data e retorna a mesma data, mas com o mês anterior.

Sintaxe:

function TestaDataString(Data_String : String ) : String;
var w_data : TdateTime;
begin
   if Data_String <> '' then
   begin
      try
        w_data := strtodatetime(Data_txt);
        result := FormatDateTime('dd/mm/yyyy',w_data);
      except
        result := '';
      end;
   end
   else
      result := '';
end;

Funções Básicas de Data em Delphi7 – A Função AddMes

Essa função ADDMES recebe uma data no formato TDateTime como parâmetro e retorna outra data correspondente ao mesmo dia e mês, mas no próximo mês em relação à data informada.

A função começa com a declaração de três variáveis do tipo Word: Dia, Mes e Ano. Em seguida, a função utiliza a rotina DecodeDate para obter o dia, mês e ano correspondentes à data informada e armazená-los nas variáveis Dia, Mes e Ano, respectivamente.

A variável Mes é, então, incrementada em 1 e verificamos se Mes é maior do que 12. Se for, reiniciamos Mes para 1 e incrementamos o Ano em 1. Isso garante que a data resultante seja no próximo ano, caso o próximo mês seja janeiro.

Por fim, a função usa a rotina EncodeDate para criar uma nova data com o próximo mês e o mesmo dia e ano da data original e armazena essa data na variável Result, que a função retorna em seguida.

Em resumo, essa função recebe uma data e retorna a mesma data, mas com o próximo mês.

Sintaxe:

function TestaDataString(Data_String : String ) : String;
var w_data : TdateTime;
begin
   if Data_String <> '' then
   begin
      try
        w_data := strtodatetime(Data_txt);
        result := FormatDateTime('dd/mm/yyyy',w_data);
      except
        result := '';
      end;
   end
   else
      result := '';
end;

Funções Básicas de Data em Delphi7 – A Função UltimoDiaMes

Chamada de UltimoDiaMes, essa função recebe uma data no formato TDateTime como parâmetro e retorna o último dia do mês correspondente como um valor do tipo Word.

A função começa com a declaração de três variáveis do tipo Word: d, m e a. A função então usa DecodeDate para extrair o dia, mês e ano da data e armazená-los em d, m e a, respectivamente.

Em seguida, a variável m é incrementada em 1 e é verificado se m é igual a 13. Se for, m é reiniciado para 1. Isso é necessário para garantir que o valor de m fique dentro do intervalo válido de 1 a 12, correspondendo aos 12 meses do ano.

A variável dt é então inicializada com o primeiro dia do mês seguinte à data informada, utilizando a rotina EncodeDate. Em seguida, a variável dt é decrementada em um dia, resultando na última data do mês correspondente.

A rotina DecodeDate é, mais uma vez, empregada para obter o dia, mês e ano da última data do mês e armazenar o dia na variável Result, que é, então, retornado pela função.

Em resumo, essa função recebe uma data e retorna o último dia do mês correspondente a essa data.

Sintaxe:

function TestaDataString(Data_String : String ) : String;
var w_data : TdateTime;
begin
   if Data_String <> '' then
   begin
      try
        w_data := strtodatetime(Data_txt);
        result := FormatDateTime('dd/mm/yyyy',w_data);
      except
        result := '';
      end;
   end
   else
      result := '';
end;

Veja também: