1. Stawer » PLAYGROUND » Off Tópic » GEEK ZONE » Programação » Desenvolvimento Desktop » Ferramentas/Snippets/Outros



So why aren't you a member? Join up!
This is a guest message and you can easily put whatever you want here to get potential members to join up. The text can be changed in seconds using the settings file. This message will only appear to guests but can be turned off completely if so desired.
Stawer

Você não está conectado. Conecte-se ou registre-se

Stawer » PLAYGROUND » Off Tópic » GEEK ZONE » Programação » Desenvolvimento Desktop » Ferramentas/Snippets/Outros » [Função][Delphi] Inverter data para pesquisa SQL

[Função][Delphi] Inverter data para pesquisa SQL

Ir para baixo  Mensagem [Página 1 de 1]

Snake Simpson

Snake Simpson
Amador

Amador

Ai esta a função para inverter a data para uma 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;

Créditos: Paulo Roberto De Carvalho

Ir para o topo  Mensagem [Página 1 de 1]

Stawer » PLAYGROUND » Off Tópic » GEEK ZONE » Programação » Desenvolvimento Desktop » Ferramentas/Snippets/Outros » [Função][Delphi] Inverter data para pesquisa SQL

Permissões neste sub-fórum
Não podes responder a tópicos