Pesquisar Neste Blog 1

Função: Validar Hora - Códigos Delphi

0

Código Delphi

// Função: Validar Hora.

// Verifica se Uma String no Formato Hora é Valida ou Não.

Código

Function HoraValida(strh:string): Boolean;
var
hh : Integer;
mm : Integer;
code : Integer;
begin
Result := True;
If (Length(Strh) = 0) or (Strh[1] = ' ') or (Strh[2] = ' ') or (Strh[4] = ' ') or (Strh[5] = ' ') then
begin
Result := False;
end
else
begin
Val(Copy(Strh, 1, 2), hh, Code);
Val(Copy(Strh, 4, 2), mm, Code);
If (hh >= 24) or (mm >= 60) then
begin
Result := False;
end;
end;
end;

Postar um comentário

0 Comentários
* Por Favor, Não Faça Spam Aqui. Todos os Comentários São Revisados Pelo Administrador.
Postar um comentário (0)

#buttons=(Aceito !) #days=(365)

COOKIES: Esse Site Guarda Estatísticas de Visitas Para Melhorar a Sua Experiência de Navegação e Disponibilizar Funcionalidades Adicionais, Saiba Mais em Nossa Política de Privacidade
Aceito !