Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
Byto

Horas

Recommended Posts

Byto

Alguem sabe como se converte em pascal, horas/minutos/segundos tudo para centésimas de segundos????

Agradecia resposta

Cumps

Share this post


Link to post
Share on other sites
vbtipo

Existe em sua tabela um campo em que há o dado de quantas horas um funcionário trabalhou.

Deve estar expressa como HH:MM (dois dígitos para hora e dois dígitos para minuto).

Exemplo: dia 7 de março fulano trabalhou 4 horas e 56 minutos

A digitação no campo deve estar desta forma abaixo:

04:56

Este campo que guarda a hora chamaremos de TXT_HORA e seu TIPO DE DADOS é DATA/HORA

Crie um novo campo chamado TXT_MINUTO, com o TIPO DE DADOS: NÚMERO

Acrescente ao formulário que usas este campo (TXT_MINUTO) a consulta que já mostra o campo TXT_HORA.

Crie um botão novo no formulário e copie o código abaixo para o evento AO CLICAR

  [TXT_MINUTO] = Hour([TXT_HORA]) * 60

  [TXT_MINUTO] = [TXT_MINUTO] + Minute([TXT_HORA])

Lembre-se, que como não sei o nome de seus campos, criei um nome qualquer.

ps: 04:56 hs dão 296 minutos.

A partir daqui fazes o resto:

Passas os minutos para segundos e segundos para milissegundos...

Foi tirado deste sitio http://www.pcforum.com.br/cgi/yabb/YaBB.cgi?num=1188325434


Lema: Se eu não saber de alguma coisa não se preocupem porque tento sempre ajudar alguma coisita, nem que seja, por palpites/sugestões.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.