Buscar

Funções para trabalhar com data no interbase

Código

{A primeira pega a data atual do sistema e retorna a data pronta para ser incluída em um comando INSERT através do delphi. O segunda recebe como parâmetro uma data qualquer e retorna a data pronta para ser utilizada em um comando INSERT.}

Function DataAtualIB : String;
Begin
  Result := '''' + FormatDateTime('mm/dd/yyyy', Now) + '''';
End;

Function DataIB(dData : TDateTime) : String;
Begin
  Result := '''' + FormatDateTime('mm/dd/yyyy', dData) + '''';
End;

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Data e hora
Adicionada dia: 23/10/03
Por: Anorex Gyn - Fernando Pedro
Visualizada: 4066 vezes

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