Capturar os dois dígitos de hora do sistema para um label ?

Delphi

09/05/2004

Estou prescisando capturar somente o campo da hora do sistema
para converte-lo em um número inteiro e depois poder fazer cálculos
Suponhamos que meu funcionário ganhe R$ 10,00 por hora extra.

ex: Meu funcionário tem 14:00:00hs extra no mês

14 * 10 = 140

Como faço para captutar somente os dois primeiros dígitos de um campo TTime para um campo label ou uma variável integer ?

Obrigado.


Vetecnet

Vetecnet

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

09/05/2004

Tente assim:

var hora:integer;
begin
   hora:=StrToInt(copy(TimeToStr(hora_extra),1,2));



GOSTEI 0
Vetecnet

Vetecnet

09/05/2004

Tente assim: 
var hora:integer;
begin
   hora:=StrToInt(copy(TimeToStr(hora_extra),1,2));



Deu certo mas tambem vou prescisar dos minutos, e não consegui captura-los quando mudo os parametros os dois pontos vem junto com os minutos.

acha que pode me ajudar?

so falta isso para mim acabar esse projeto
obrigado


GOSTEI 0
Vetecnet

Vetecnet

09/05/2004

Consegui terminei
achei o parametro ,4,2

obrigado


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

09/05/2004

você também pode utilizar o FormatDateTime.


Hora := StrToInt( FormatDateTime( ´HH´,HoraDesejada ) );
Minuto := StrToInt( FormatDateTime( ´nn´,HoraDesejada ) ); // é ´nn´ mesmo
Segundo := StrToInt( FormatDateTime( ´ss´,HoraDesejada ) );


GOSTEI 0
POSTAR