Buscar

INVERTER DATA P/ PESQUISA SQL

Código

function invertedata(Data:String):String;
begin
if not(length(Data))in[8..10] then
begin
Showmessage('Data Invalida');
exit;
end;
result:=FormatDateTime('mm',strtodate(Data))+'/'+
FormatDateTime('dd',strtodate(Data))+'/'+
FormatDateTime('yyyy',strtoDate(Date));
end;

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%

Detalhes da dica

Categoria: Data e hora
Adicionada dia: 13/02/11
Por: Paulo Roberto De Carvalho
Visualizada: 10647 vezes

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