Preciso da função para converter um número em horas

Tipo: 65min p/ txt="01:05" 

Grato

private function numh(num as integer)

a=int(num/60)

b=int(num mod 60)

c$=format(a,"##0") & ":"& format(b,"00")

end function

 

não se esqueça de declarar c$ no seu declarations

 

Outra opção.. neste caso abaixo eu peguei o que o usuario digitou e somei com o que tinha no banco...

 

Public Sub Calculacredito()
Set RSCADASTRO = New ADODB.Recordset
RSCADASTRO.Open "SELECT * FROM CADASTRO WHERE NOME = '" & cmbfunc.Text & "'", CONEXAO, adOpenKeyset, adLockPessimistic
On Error Resume Next
TotalMinutos = 0
Resultado = ""

Dim Registros() As String
Dim Horario() As String
Dim Horas As Long
Dim Minutos As Long
Dim HorasDig As Long
Dim MinutosDig As Long

   Horario = Split(RSCADASTRO!Total, ":")
   Registros = Split(txtcr_deb_dia, ":")
  
   Horas = (Horario(0) * 60)
   Minutos = Horario(1)
  
   HorasDig = Registros(0) * 60
   MinutosDig = Registros(1)
  
   TotalMinutos = ((Horas + Minutos) + (HorasDig + MinutosDig))

Horas = Val(TotalMinutos / 60)
Minutos = ((TotalMinutos / 60) - Horas) * 60

Resultado = Horas & ":" & Strzero(Minutos, 2)

RSCADASTRO!Total = Resultado
lblsetor.Caption = RSCADASTRO!setor
RSCADASTRO.Update

End Sub

Outra opção:

 

MsgBox DateAdd("n", 65, "00:00:00") 'retorna 01:05:00

 

Ai vc trabalha como preferir...

 

t+ :)