cassitos Postado Junho 9, 2005 Denunciar Share Postado Junho 9, 2005 E ae!!Criei uma função para montar data de acordo com parâmetros Dias, Mes e Ano:function PreparaData(Dia,Mes,Ano: Integer):TDateTime;var textoData: String;begin if ((Mes = 2) Or (Mes = 4) Or (Mes = 6) Or (Mes = 9) Or (Mes = 11)) Then begin If (Dia = 31) Then Dia := 30; end; if (Mes = 2) Then begin if (Dia >= 30) then Dia := 29; end; textoData:=IntToStr(Dia) + '/' + IntToStr(Mes) + '/' + IntToStr(Ano); //verificar se é data válida try begin StrToDate(textoData); end; except on EConvertError do begin Dia:=Dia-1; textoData:=IntToStr(Dia) + '/' + IntToStr(Mes) + '/' + IntToStr(Ano); end; end; PreparaData:=StrToDate(textoData);end;Mas se tentar montar uma data inválida, dá uma mensagem de erro e só depois passa pelo except. Sou novato em delphi... como faço p/ que não apareça tal mensagem?Project Project1.exe raised exception class EConvertError withmessage "29/2/2005" is not a valid date1.Process stopped. Use Step or Run to continue.A data foi informada errada de propósito, aí dá este erro, vou fazendo passo-a-passo e passa pelo exception.Preciso fazer com que esta mensagem não apareça.Tem como?? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 cassitos Postado Junho 9, 2005 Autor Denunciar Share Postado Junho 9, 2005 ehehe pesquisei o help do Delphi e tem uma função IsValidDate que foi muito útil... Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
cassitos
E ae!!
Criei uma função para montar data de acordo com parâmetros Dias, Mes e Ano:
Mas se tentar montar uma data inválida, dá uma mensagem de erro e só depois passa pelo except.
Sou novato em delphi... como faço p/ que não apareça tal mensagem?
A data foi informada errada de propósito, aí dá este erro, vou fazendo passo-a-passo e passa pelo exception.
Preciso fazer com que esta mensagem não apareça.
Tem como??
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.