Fórum Capturar os dois dígitos de hora do sistema para um label ? #230956
09/05/2004
0
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
Curtir tópico
+ 0Posts
09/05/2004
Fabio.hc
var hora:integer; begin hora:=StrToInt(copy(TimeToStr(hora_extra),1,2));
Gostei + 0
09/05/2004
Vetecnet
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
09/05/2004
Vetecnet
achei o parametro ,4,2
obrigado
Gostei + 0
09/05/2004
Emerson Nascimento
Hora := StrToInt( FormatDateTime( ´HH´,HoraDesejada ) );
Minuto := StrToInt( FormatDateTime( ´nn´,HoraDesejada ) ); // é ´nn´ mesmo
Segundo := StrToInt( FormatDateTime( ´ss´,HoraDesejada ) );
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)