Artigos Delphi Dicas - Data em InputBox

 

 Data em InputBox  
    
  Em um programa com contas a pagar e contas a receber, você precisa pegar a data do próximo vencimento, caso o pagamento fosse parcial, então ai vai uma idéia use o imputBox......

procedure Verifica_Data;
var vdata : string;
begin
    vdata := EmptyStr;
    while vdata = EmptyStr do
begin
      try
        vdata := InputBox(Informe a Data,Data,DateToStr(Date));
        StrToDate(vdata);
      Except
        vdata := EmptyStr;
      end;
end;
    Edit1.Text := vdata;
end;