[Gydba]

Hola,

No es que sea hincha ni mucho menos pero mirá que lindo queda el código con las etiquetas DELPHI del foro:

Código Delphi [-]
function tform1.fecha_formato(fecha,formato:string):string;
var
   fecha_o,ch,d,m,a:string;
   aux,largo,i,u:integer;
   temp:string;
   vector:array[0..9] of string;
begin
   i:=0;
   u:=i;
   aux:=0;
   largo:=length(fecha);
      while (i <= 9) do begin
         ch:=copy(fecha,i+1,1);
            if (ch <> '/') then begin
               vector[u]:=ch;
               aux:=aux + 1;
               i:=i+1;
               u:=u+1;
            end else begin
               if aux = 2 then begin
                  i:=i+1;
                  u:=i-1;
                  aux:=0;
               end else begin
                  temp:=vector[u - 1];
                  vector[u - 1]:='0';
                  vector[u]:=temp;
                  aux:=0;
                  i:=i+1;
                  u:=u+1;
               end;
            end;
      end;
   fecha_o:=vector[0];
      for i:=0 to largo - 2 do begin
         fecha_o:=fecha_o + vector[i + 1];
      end;
   d:=copy(fecha_o,3,2);
   m:=copy(fecha_o,1,2);
   a:=copy(fecha_o,5,4);
      if formato = 'mm/dd/aa' then
         result:= d + '/' +m + '/' + a ;
      if formato = 'dd/mm/aa' then
   result:= m + '/' + d + '/' + a ;
end;

JoseBozzano, como veo que tenés pocos mensajes calculo que debés ser nuevo así que te doy la bienvenida. Por otro lado no sería malo que mirarás la guía de estilo del foro...
http://www.clubdelphi.com/foros/guiaestilo.php

Saludos!