Lmancini

Rafael Marciano Pra que complicar.... v se resolve. function DifDias(DataVenc:TDateTime; DataAtual:TDateTime): String; Var Data: TDateTime; dia, mes, ano: Word; begin if DataAtual < DataVenc then Result := 'Null' else begin Data := DataAtual - DataVenc; DecodeDate( Data, ano, mes, dia); Result := FloatToStr(Data); end; end; Fui.

procedure TFrmPrincipal.Trataerros(Sender: TObject; E: Exception); var mensagem: string; Pos1, Pos2: integer; begin If Pos(UpperCase('is not a valid date'), UpperCase(E.Message)) <> 0 then showmessage('Data inválida, proceda a correção.') else if Pos(UpperCase('must have a value'), UpperCase(E.Message)) <> 0 then begin Pos1:=Pos('''', E.Message); mensagem:=E.Message; Delete(mensagem, Pos1, 1); Pos2:=Pos('''', mensagem); mensagem:=copy(E.Message, Pos1 + 1, Pos2 - Pos1); showmessage('É obrigatório o preenchimento do campo '+ mensagem + '.'); end else If Pos(UpperCase('key violation'), UpperCase(E.Message)) <> 0 then showmessage('Houve violação de Chave. Registro já incluido.') else If Pos(UpperCase('Input value'), UpperCase(E.Message)) <> 0 then showmessage('Campo preenchido com valor não válido. Proceda a correção.') else If Pos(UpperCase('is not a valid time'), UpperCase(E.Message)) <> 0 then showmessage('Hora inválida, proceda a correção.') else If Pos(UpperCase('master has detail records'), UpperCase(E.Message)) <> 0 then ShowMessage('Proibida a Exclusão e Modificação deste Registro, pois ele faz Referência a Outro(s) Registro(s)!') else If Pos(UpperCase('field value required'), UpperCase(E.Message)) <> 0 then Begin Pos1:=Pos(':',E.Message); Delete(Mensagem,Pos1,1); Mensagem:=copy(E.Message,Pos1+2,30); showmessage('É obrigatório o preenchimento do campo "'+ mensagem + '".'); End; If Pos(UpperCase('RECORD LOCKED BY ANOTHER USER.'), UpperCase(E.Message)) <> 0 then ShowMessage('O Registro está sendo Utilizado por Outro Usuário da Rede. Cancele a Operação e Aguarde a Liberação do Mesmo!') else showmessage('Ocorreu o seguinte erro: '+UpperCase(E.Message)); end; procedure TFrmPrincipal.FormCreate(Sender: TObject); begin Application.OnException:=TrataErros; end; Ajudou ? Inté.