Buscar

Calculando data

Código

Var Q: integer;
    W, R: STRING;

begin
//data do dia
 W := DateToStr(Date);
//valor q vou tirar da data
 Q := StrToInt('1');
//R igual data do dia - 1
 R := datetostr(StrToDate(W)-Q);

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Data e hora
Adicionada dia: 09/05/07
Por: Clayton Eduardo Zonetti
Visualizada: 3537 vezes

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