Fun��o que retorna se a hora � v�lida ou n�o

Question

Algu�m sabe porque esta func��o n�o retona falso;

cHora := := �45:00�;
fTestaHora(cHora);

function fTestaHora(cHora:String):Boolean;
var
   nHoraT,nMinutoT : Integer;
begin
   nHoraT   := StrToInt(Copy(cHora,1,2));
   nMinutoT := StrToInt(Copy(cHora,4,2));
   if (nHoraT > 23) then
     Begin
         Result := False;
     end;
end;

Cristiam · Answer

[quote:dc7f586edd=�jussimarrs�] cHora :=    := �45:00�; [/quote:dc7f586edd]Que tal por causa dessa linha?  :wink:...

Massuda · Answer

Tirando o que o cristiam observou, tem outro problema que � o fato da sua rotina fTestaHora ter valor de retorno indefinido, j� que ela retorna False apenas no caso de nHoraT > 23; nos outros casos, o valor de retorno dela � indefinido (provavelmente ser� um valor aleat�rio).

Emerson Nascimento · Answer

o Massuda est� certo. tente alterar a fun��o para:

function fTestaHora(cHora:String):Boolean; 
var 
  nHoraT,nMinutoT : Integer; 
begin 
  nHoraT := StrToInt(Copy(cHora,1,2)); 
  nMinutoT := StrToInt(Copy(cHora,4,2)); 
  Result := nHoraT <= 23;
end;

e veja qual ser� o retorno

Jussimarrs · Answer

[quote:7c12ebfb29=�emerson.en�]o Massuda est� certo. tente alterar a fun��o para:[code:1:7c12ebfb29]function fTestaHora(cHora:String):Boolean; var   nHoraT,nMinutoT : Integer; begin   nHoraT := StrToInt(Copy(cHora,1,2));   nMinutoT := StrToInt(Copy(cHora,4,2));   Result := nHoraT <= 23;end;[/code:1:7c12ebfb29]e veja qual ser� o retorno[/quote:7c12ebfb29] :D- :D  [b:7c12ebfb29]Obrigado pelas Dicas.[/b:7c12ebfb29]...

F�rum Fun��o que retorna se a hora � v�lida ou n�o #270575