Página 1 de 1
Rotina de Horário
Enviado: 13 Jul 2010 14:43
por Fernando Borges
Caros colegas, preciso de ajuda.
Tenho um sistema de folha de pagamento e meu cliente me pediu para fazer uma rotina, como se fosse o relógio de ponto, ou seja, ele quer digitar os horários de entrada e saida para um funcionário e que a rotina gere os horários para os outros funcionários, mas com diferença de alguns segundos um do outro, para não ficar todos com horário identico. Para ser sincero não tenho nem ideia como montar esta rotina, pois toda forma que pensei não dá certo, porque tem que quando chegar em 60 segundos adicionar um minuto.
Peço ajuda dos colegas.
Att.
Fernando Borges.
Re: Rotina de Horário
Enviado: 13 Jul 2010 15:26
por sambomb
Divida o número de segundos por 60
O resultado sem decimal são os minutos, o resto são os segundos
Divida o número de minutos por 60
O resultado sem decimal são as horas, o resto são os minutos
Divida o número de horas por 24
O resultado sem decimal são os dias, o resto são as horas
Etc....
Re: Rotina de Horário
Enviado: 13 Jul 2010 22:32
por alxsts
Olá!
Fernando Borges escreveu:Para ser sincero não tenho nem ideia como montar esta rotina
Para ser sincero também, achei estranho este procedimento. Nunca vi relógio de ponto marcar segundos. Normalmente os horários são registrados na forma HH:MM, incluindo os sistemas informatizados. Mais estranho ainda é gerar o horário de forma aleatória para os funcionários...
Enfim, a parte de cálculo de tempos é fácil. O colega Sambomb já deu algumas dicas e existem alguns exemplos prontos, fornecidos com o Clipper 5. Você poderia fornecer mais detalhes?
Re: Rotina de Horário
Enviado: 14 Jul 2010 00:18
por Paulao
Boa noite amigos, segue abaixo link para o download do meu sistema de relogio de ponto, com fontes e tudo mais, espero que sirvam aos amigos
http://www.oscarafeia.com.br/relogioponto.zip
Re: Rotina de Horário
Enviado: 16 Jul 2010 21:46
por Fernando Borges
Caros Colegas. Não sei se consegui explicar bem o que estou precisando, mas é o seguinte: No sistema de folha de pagamento, preciso colocar o ponto dos funcionários e para que não fique todos iguais com o mesmo horario, o cliente pediu para montar uma rotina onde ele digita os horarios de um funcionario e o sistema gere os outros horarios para os demais funcionarios. Ex.: horario do funcionario fulano de tal: entrada 07:30:05, saida almoço 11:05:30, retorno almoço 12:30:05, saida 17:30:51, estes seriam os horarios que de um funcionario, agora eu preciso montar um rotina que pegue estes horarios e jogue para os demais funcionarios, mas com diferença de alguns segundos de um para o outro. Sendo que a empresa tem mais de 100 funcionarios e nenhum deles pode ter o horario igual ao outro, tem que ter pelo menos alguns segundos de diferença um do outro. Espero que agora tenha explicado o que preciso.
Desde ja agradeço.
Fernando Borges.
Re: Rotina de Horário
Enviado: 16 Jul 2010 23:28
por Toledo
Fernando, segue abaixo um exemplo bem simples:
Código: Selecionar todos
vEntr:=SPAC(8)
vSAlm:=SPAC(8)
vRAlm:=SPAC(8)
vSaid:=SPAC(8)
@ 5,10 SAY "Informe o Horario do Funcionario 1:"
@ 7,10 SAY "+-[Func]--[ Entrada ]--[ Almoco ]--[ Saida ]-+"
FOR i=1 TO 10
@ 7+i,10 SAY "| "+STR(i,1,0)+" / |"
NEXT
@ 18,10 SAY "+--------------------------------------------------------+"
@ 08,21 GET vEntr PICT "99:99:99"
@ 08,34 GET vSAlm PICT "99:99:99"
@ 08,45 GET vRAlm PICT "99:99:99"
@ 08,57 GET vSaid PICT "99:99:99"
READ
FOR i=1 TO 9
@ 8+i,21 SAY TSTRING(SECS(vEntr)+i)
@ 8+i,34 SAY TSTRING(SECS(vSAlm)+i)
@ 8+i,45 SAY TSTRING(SECS(vRAlm)+i)
@ 8+i,57 SAY TSTRING(SECS(vSaid)+i)
NEXT
Abraços