Sim, esta é outra forma, mas se olhar como a função IncDay é
implementada, verá que ela faz exatamente um data_informada +
valor_informado.
[]
Andrei
Em 21/06/07, Ricardo César Cardoso<[EMAIL PROTECTED]> escreveu:
> Mais fácil ainda:
>
> Declare a unit "DateUtils" na seção "uses" e use a função "
Mais fácil ainda:
Declare a unit "DateUtils" na seção "uses" e use a função "IncDay" como no
exemplo:
{...}
Uses Date;
{...}
Var
Data : TDate;
Begin
Data := IncDay(Date, 7);
End;
{...}
Pronto! E nem precisou fazer muito malabarismo.
Sds,
Ricardo.
Daniel <[EMAIL PROTECTED]> escreveu:
Velhosincrementar dias...tu vai ter que fazer pelo menos tres funções
A ordem das funções não altera o resultado...
//incrementar dias
Function TFrmTelaPrincipal.IncDias(Data: TDate; Valor: Integer): TDate;
Var
A, M, D: Word;
Begin
DecodeDate(Data, A,M,D);
D:=D+Valor;
If D > DiasNoMes
3 matches
Mail list logo
