Delphi dicas

Converte data no formato dd/mm/aaaa para mm/dd/aaaa

Esta função converte a data para formato em uso em querys, embora seja muito simples, também é muito útil pra quem trabalha com pesquisa de datas em querys:

function redat(mcad : string):string;

var

ts1,ts2,ts3,tsdat : string ;

begin

        ts1:= copy(mcad,1,2) ;

        ts2:= copy(mcad,4,2);

        ts3:= copy(mcad,7,4) ;

        tsdat:= ts2+'/'+ts1+'/'+ts3;

        result:= tsdat;

end;

por : Reverson Nogueira Tricoletti