Ir para conteúdo
Fórum Script Brasil
  • 0

Função Mid campo Text


silvagno

Pergunta

Bom dia,

   Tenho uma ferramenta para calculo, estou usando a função mid para identificar no campo text os dígitos das horas.

Função completa:

Dim X As Integer, Y As Integer, Z As Integer
X = Mid(Text1.Text, 7, 2)
Y = Mid(Text1.Text, 4, 2)
Z = Mid(Text1.Text, 1, 1)

segundos = X + Y * 60 + Z * 3600 (aqui estou convertendo horas em segundos, preciso converter para concluir o calculo)

 

Ex: Y = Mid(Text1.Text, 4, 2) > nesse formato ele considera a hora no formato 11:02:32

Y = Mid(Text1.Text, 3, 2) > agora se mudo o 4 para 3 ele não le o primeiro digito da hora e considera 1:02:32

Gostaria que esse campo Text entendesse os dois formatos.Capturar.PNG

Editado por silvagno
Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0

Como fica o preenchimento da Text1? Você preenche com, por exemplo, "16:24:10"? Se for, você vai poder fazer do jeito que falei:

dados = split(Text1.Text, ":")

horas = val(dados(0))
minutos = val(dados(1))
segundos = val(dados(2))

totalsegundos = segundos + minutos * 60 + horas * 3600

MsgBox(totalsegundos)

Seria isso? E pra quê a segunda textbox?

Abraços!

Link para o comentário
Compartilhar em outros sites

  • 0

Bom dia Graymalkin, é isso mesmo, consegui fazer funcionar em um novo projeto, porem quando tento inserir no projeto que eu tenho ele fala que a variável não esta declarada.

 

O campo Text2 é pra trazer o total em segundos.

Vou montar em um novo projeto e te mostro para ver como funciona, mais deixo uma imagem dela funcionando no modo antigo( quando le somente 1:24:32)

 

 

Capturar.PNG

Capturar2.PNG

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...