Notifications
Clear all

Codigo VBA conversão de valores

2 Posts
2 Usuários
0 Reactions
790 Visualizações
(@junes)
Posts: 3
New Member
Topic starter
 

Ola a todos, estou com um problema que não consigo resolver, ja quebrei a cabeça procurando na internet e até agora nada. Pois bem, tenho 2 formularios de cadastro e busca de informações, meu problema se encontra na busca, ele apresenta todos os dados normalmente, porem existe um campo de hora, que é mostrado como um numero inteiro, mas eu preciso que ele (nem precisa editar na celula, nem q seja somente visual), mostre como HH:MM, segue abaixo o codigo que mostra os valores. Meu problema é no horario de inicio e termino, eles vem como inteiro e preciso que apareçam como hora
c.Value = jtfProposta.Value
c.Offset(0, 1).Value = jtfData.Value
c.Offset(0, 2).Value = jtfHoraInicio.Value
c.Offset(0, 3).Value = jtfHoraTermino.Value
c.Offset(0, 4).Value = jtfCliente.Value
c.Offset(0, 5).Value = cbEstado.Value
c.Offset(0, 6).Value = cbCidade.Value
c.Offset(0, 7).Value = jtfTelefone.Value
c.Offset(0, 8).Value = cbProduto.Value
c.Offset(0, 9).Value = cbVendido.Value
c.Offset(0, 10).Value = jtfValor.Value
c.Offset(0, 11).Value = jtfDataFeed.Value
c.Offset(0, 12).Value = jtfMotivo.Value
MsgBox "Cliente Alterado com Sucesso"

 
Postado : 16/06/2017 9:29 pm
(@osvaldomp)
Posts: 858
Prominent Member
 
c.Offset(0, 2).Value = Format(jtfHoraInicio.Value,"hh:mm")

Osvaldo

 
Postado : 17/06/2017 5:46 am