bom dia, Senhores!

tenho uma tabela aonde é salvo em minutos, as horas extras que os funcionários fazem durante o mês. Pergunta:  Como eu faço para somar estes minutos, trazendo-me é claro o resultado em horas.

Acess-ADO-SQL.

Grato.

Dim Horas, Minutos

 

Horas = Campo DIV 60

Minutos = Campo MOD 60

 

lblResultado = Horas & ":" & Minutos

 

Testa ai.. acho q isso resolve...

Elieser,

Até ai tudo bem, mas acho que não me expressei direito. É o seguinte, o resultado de uma consulta SQL dentro de um periodo solicitado, por exemplo:  de 01/01/2006 a 31/01/2006.

 

a consulta esta funcionando como quero, exibindo os valores num MSFlexGrid e me pediram para somar esses "minutos extras", para informar o Depto o total de H.Extras que os funcionarios fizeram no mês. O campo "Hora_Extra" está como TEXTO. O Resultado deveria ser algo como:  "16:41", depois formatarei assim:

16hs e 41minutos. O que não estou conseguindo é apenas somar os minutos dentro da consulta e exibí-la em um Label após o MSFlex..

 

O SQL funcionando certinho, mas preciso da soma do campo "Hora_Extra".

 

MySql = "SELECT Cod_func, (FORMAT(Data_Extra,'dd/mm/yyyy')), (format(Hora_Extra, 'hh:mm')) From tbl_Extras"

MySql = MySql & " where (format(data_Extra, 'mm/dd/yyyy')) <= " & "'" & YData & "'"
MySql = MySql & " and (format(data_Extra, 'mm/dd/yyyy')) >= " & "'" & Xdata & "'"
MySql = MySql & " order by Cod_func, Data_Extra"

 

 

 

Obs.: Dispensado o relacionamento com a tbl_Cadastro.

Como se trata de campo texto somar dentro da consulta não dá... bom tenta fazer como no exemplo abaixo:

 

 

 

Dim tempo(3) As Date
Dim THoras As Long, Tminutos As Long
Dim Total As Long
Dim Ttempo As String
Dim T
Private Sub Command1_Click()

tempo(0) = "01:05"
tempo(1) = "00:35"
tempo(2) = "00:15"
tempo(3) = "00:09"
THoras = 0
Tminutos = 0

T = Empty
For i = 0 To 3
    T = Split(tempo(i), ":")
    Tminutos = Tminutos + CLng(T(1))
    THoras = THoras + CLng(T(0))
Next

THoras = 60 * THoras
Total = THoras + Tminutos

Ttempo = Format(Int(Total / 60), "00") & ":" & Format(Total Mod 60, "00")

MsgBox Ttempo
End Sub

 

 

************************************************************

 

Coloquei uma matriz para representar o conteúdo do flexgrid. Aí vc ajeita como quiser como por exemplo fazendo uma sub...

 

qq dúvida é só postar

 

t+

 

 

select cod_func, (cast(insert(hora_extra, 3,1,'0') as signed)/60) as hora_extra , data_extra from NomedaTabela

 

Isso vai fazer o campo hora extra virar o valor de minutos, tipo, 15 minutos = 1 quarto de hora, portanto 0.25

daí é só calcular tipo: hora_extra * salario

Esqueci de dizer, essa SQL só vai funcionar para banco de dados MySQL