Função que pega dia, mes e ano de uma data qualquer e transforma em variáveis

[Visitante]

Bom Dia, saudações

 

Tenho que repetir muitas vezes essas instruções só mudo o nome das variáveis fica meio repetitivo ficar digitando copy(MaskEditY.Text,0,2)...

 

E o dia mês e ano, não é o atual ou do sistema é de qualquer data

 

 

dia := copy(MaskEdit1.Text, 0, 2);  
 mes := copy(MaskEdit1.Text, 4, 2);    
 ano := copy(MaskEdit1.Text, 0, 4);

Então criei essas 3 funções pra se resolve um pouco

//...............................................

 

Pega dia mes e ano de uma string no formato dd/mm/aaaa e transforma em variáveis

function PegarDia(dia:String):String;
var a:String;
 begin
 dia:= copy(dia,0, 2);
 Result:=dia;
  end;

function PegarMes(mes:String):String;
 var a:String;
  begin
 mes:= copy(mes,4, 2);
 Result:=mes;
  end;

function PegarAno(ano:String):String;
  var a:String;
   begin
   Ano:= copy(ano,7, 4);
   Result:=ano;
   end;

 

{
Exemplo:

no MaskEdit1 = 27/10/2020

ShowMessage(Pegardia(MaskEdit1.Text));   resultado = 27
ShowMessage(PegarMes(MaskEdit1.Text));   resultado = 10
ShowMessage(PegarAno(MaskEdit1.Text));   resultado = 2020

 

}

 

Gostaria de saber se tem jeito de juntar essas 3 funções e pegar  e liberar as 3 variáveis pra poder ser usado , chamando apenas uma função?

 

Obrigado