Buscar por:

Dia, mês e ano com parâmetro

Código

{Função readaptada e acrescentada do colega Thiago Verasqui, publicada em 02/11/2006}

function DataExtenso(Data_ext: TDate; Tipo: Integer) : String;

{Retorna uma data por extenso}

var

NoDia : Integer;

DiaDoMes : array [1..31] of String;

DiaDaSemana : array [1..7] of String;

Meses : array [1..12] of String;

Anos : array [1949..2020] of String;

Dia, Mes, Ano : Word;

begin

{ Dias do mes }

DiaDoMes [1]:= 'Primeiro';

DiaDoMes [2]:= 'Dois';

DiaDoMes [3]:= 'Treis';

DiaDoMes [4]:= 'Quatro';

DiaDoMes [5]:= 'Cinco';

DiaDoMes [6]:= 'Seis';

DiaDoMes [7]:= 'Sete';

DiaDoMes [8]:= 'Oito';

DiaDoMes [9]:= 'Nove';

DiaDoMes [10]:= 'Dez';

DiaDoMes [11]:= 'Onze';

DiaDoMes [12]:= 'Doze';

DiaDoMes [13]:= 'Treze';

DiaDoMes [14]:= 'Quatorze';

DiaDoMes [15]:= 'Quinze';

DiaDoMes [16]:= 'Dezesseis';

DiaDoMes [17]:= 'Dezessete';

DiaDoMes [18]:= 'Dezoito';

DiaDoMes [19]:= 'Dezenove';

DiaDoMes [20]:= 'Vinte';

DiaDoMes [21]:= 'Vinte e Um';

DiaDoMes [22]:= 'Vinte e Dois';

DiaDoMes [23]:= 'Vinte e Tres';

DiaDoMes [24]:= 'Vinte e Quatro';

DiaDoMes [25]:= 'Vinte e Cinco';

DiaDoMes [26]:= 'Vinte e Seis';

DiaDoMes [27]:= 'Vinte e Sete';

DiaDoMes [28]:= 'Vinte e Oito';

DiaDoMes [29]:= 'Vinte e Nove';

DiaDoMes [30]:= 'Trinta';

DiaDoMes [31]:= 'Trinta e Um';

{ Dias da Semana }

DiaDasemana [1]:= 'Domingo';

DiaDasemana [2]:= 'Segunda-feira';

DiaDasemana [3]:= 'Terçafeira';

DiaDasemana [4]:= 'Quarta-feira';

DiaDasemana [5]:= 'Quinta-feira';

DiaDasemana [6]:= 'Sexta-feira';

DiaDasemana [7]:= 'Sábado';

{ Meses do ano }

Meses [1] := 'Janeiro';

Meses [2] := 'Fevereiro';

Meses [3] := 'Março';

Meses [4] := 'Abril';

Meses [5] := 'Maio';

Meses [6] := 'Junho';

Meses [7] := 'Julho';

Meses [8] := 'Agosto';

Meses [9] := 'Setembro';

Meses [10]:= 'Outubro';

Meses [11]:= 'Novembro';

Meses [12]:= 'Dezembro';

{ Anos }

Anos [2000] := 'Dois Mil';

Anos [2001] := 'Dois Mil e Um';

Anos [2002] := 'Dois Mil e Dois';

Anos [2003] := 'Dois Mil e Tres';

Anos [2004] := 'Dois Mil e Quatro';

Anos [2005] := 'Dois Mil e Cinco';

Anos [2006] := 'Dois Mil e Seis';

Anos [2007] := 'Dois Mil e Sete';

Anos [2008] := 'Dois Mil e Oito';

Anos [2009] := 'Dois Mil e Nove';

Anos [2010] := 'Dois Mil e Dez';

Anos [2011] := 'Dois Mil e Onze';

Anos [2012] := 'Dois Mil e Doze';

Anos [2013] := 'Dois Mil e Treze';

Anos [2014] := 'Dois Mil e Quatorze';

Anos [2015] := 'Dois Mil e Qinze';

Anos [2016] := 'Dois Mil e Dezesseis';

Anos [2017] := 'Dois Mil e Dezessete';

Anos [2018] := 'Dois Mil e Dezoito';

Anos [2019] := 'Dois Mil e Dezenove';

Anos [2020] := 'Dois Mil e Vinte';

DecodeDate (Data_ext, Ano, Mes, Dia);

NoDia := DayOfweek(Data_ext);  // alterado por Pedro Gomes, em 18/02/2007, devido ao fato de NoDia := DayOfweek(Dia);, quando na verdade deve ser NoDia := DayOfweek(Data_ext);

if Tipo = 0 then   // acrescentado por Pedro Gomes, em 18/02/2007

   begin

      Result := DiaDoMes[Dia] + ' de ' + Meses[Mes]+ ' de ' + Anos[Ano]

   end

else

   begin

      Result := DiaDasemana[NoDia]+', '+ DiaDoMes[Dia] + ' de ' + Meses[Mes]+ ' de ' + Anos[Ano];

   end;

end;