quarta-feira, 23 de setembro de 2009

Adicionando dias a uma data

Var nDias:String;
vData:tDateTime;
Begin
vData:=Date;
if Inputquery('Adicionar dias','Quantos dias deseja adicionar?',nDias)
then begin
Try
vData:=vData+StrtoInt(nDias);
Except
ShowMessage('O valor de dias não parece um valor válido!!!');
Exit;
End;
ShowMessage('A Proxima dada é : '+FormatDateTime('DD/MM/YYYY',vData);
End;
End;

Nenhum comentário:

Postar um comentário