Calculo de Horas em Caracter

[_batmanvfp_]

Olá pessoal, tenho na linha

data 01/02 hr ini 15:40:45 hr fim 16:30:50

as horas estão em campos caracteres
quero subtrair

15:40:45
16:30:50

quero ter essa resposta !

00:50:05

[_batmanvfp_]

segue um exemplo , vo adaptar obrigado , topico está resolvido

Código:


CLEAR
CLOSE DATABASES 
SET SAFETY OFF
CREATE TABLE teste( INI c(8),FIM c(8))
INSERT INTO teste values('15:40:45','16:30:50')
INSERT INTO teste values('15:57:32','18:00:03')
SELECT teste

SCAN
t1 =  FIM
t2 =  INI
diff = CTOT(t1) - CTOT(t2)


? TTOC( DTOT(date())+ diff,2)
messagebox(TTOC(DTOT(date() )+ diff,2))
ENDSCAN

[Nelson Arcas]

Essa fórmula serve no caso de possuir o horario da saida menor que o horario da entrada.
Exemplo:

Entrada -> 29/01/2011 - 21:30
Saida -> 30/01/2011 - 07:30

[coconaithy]

olá pessoal, veja se alguem pode me ajudar
preciso calcular a media de permanencia no select abaixo:

SELECT dtentrada, permanencia FROM relatorio;
group by dtentrada

ou seja preciso agrupar a data e entrair a media, o campo permanencia esta em caracter, sendo o formato em "00:00"

[m@r<3|o]

Fala coconaithy
tenta como abaixo , está pra reconhecer "00:00:00"

Código:


SET TALK OFF
SELECT dtentrada, permanencia FROM relatorio;
WHERE relatorio.dtentrada = thisform.txtdtentrada.value AND !EMPTY(relatorio.permanencia);
into CURSOR perma

SELECT perma
AVG all VAL(SUBSTR(perma.permanencia ,1,2))*3600 + VAL(SUBSTR(perma.permanencia ,4,2))*60 + VAL(SUBSTR(perma.permanencia ,7,2)) TO pn_Seconds

thisformset.form5.label3.caption = SumCalcTime(pn_Seconds)
SET TALK ON


e a funcao para calcular em Caracter

Código:

*** FUNCAO SOMA HORAS
FUNCTION SumCalcTime(pn_Seconds)
LOCAL hh AS Integer, ;
      mm AS Integer, ;
      ss  as Integer
hh= STR(INT(pn_Seconds/3600))
r1 = MOD(pn_Seconds,3600)
mm  =STR(INT(r1/60))
ss = STR(mod(r1,60))
*!*   RETURN ALLTRIM(hh)  + ":" + ALLTRIM(mm) + ":" + ALLTRIM(ss)
RETURN ALLTRIM(hh) + ":" + ALLTRIM(strtran(str(val(mm),2,0)," ","0")) + ":" + ALLTRIM(strtran(str(VAL(ss),2,0)," ","0"))
ENDFUNC

Espero ter ajudado

[coconaithy]

m@r<3|o, obrigado,

mas a linha [/code]AVG all VAL(SUBSTR(perma.permanencia ,1,2))*3600 + VAL(SUBSTR(perma.permanencia ,4,2))*60 + VAL(SUBSTR(perma.permanencia ,7,2)) TO pn_Seconds[code] esta apresentado erro que não conseguir identificar. Unrecognized command verb

[m@r<3|o]

Isso mesmo companheiro ...... pensei que ia pegar o comando mais nao testei

Voce quer a média pensei que AVG ia pegar direto , mais nao deu certo

O correto é SUM . coloca ai

Código:

SUM all VAL(SUBSTR(perma.permanencia ,1,2))*3600 + VAL(SUBSTR(perma.permanencia ,4,2))*60 + VAL(SUBSTR(perma.permanencia ,7,2)) TO pn_Seconds

Ai voce tera a Soma .... apartir dai acha o AVG depois da Soma
Só trocar , AVG por SUM e testa novamente tera a soma

seu campo permanencia tem que ser Caracter de 8
ja tendo os horarios gravados em caracter na tabela corretamente ...
ai isso que passei somara em coluna todas as horas gravadas em caracter dessa campo

[coconaithy]

m@r<3|o

Obrigado, ainda não testei por completo, mais pelo que vi agora vai dar certo, em breve coloco a resposta.
pois vou precisar do seguinte resultado na tabela.

Data Media
19/08 01:30
20/08 03:45
21/08 02:04
e assim por diante, mais já clareou a ideia.

[m@r<3|o]

isso foi uns 2 catado de código, mais uma ajuda ... para arrendondar
demora um poco mesmo , mais o codigo acaba saindo, o que nao dar certo avise

lembrando que a resposta final tera que ser caracter de ('8')
e os dados gravados pegando de Datetime()
bem pratico, o codigo funcionara

apos o SUM ,
acho que é só fazer um Select AVG e agrupar por data se for 1-N , tenta tacar pseconds numa variavel ... se nao pegar direto o AVG....

capaz que pra fazer o select avg , precisara transformar o resultado do cursor em variavel .... qq coisa posta ai