Buscar

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

Código

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;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Data e hora
Adicionada dia: 28/06/07
Por: Reverson Nogueira Tricoletti
Visualizada: 6676 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009