CONVERSAR MEDIDAS

LUCIANO021273 28/06/2025 18:42:49
#504976
olá,
preciso converter medidas de cm para milimetro sem pontuação
de mm para centimetro com pontuação
alguém tem algum exemplo, ou digitar agum exemplo?
LUCIANO021273 28/06/2025 18:50:25
#504977
para emplificar minha necessidade

em uma combo carrego MM
CM

Na text1 digito o valor da medida que preciso

caso seja
100 em CM teria que me retornar 1.00 em MM teria que permanecer 100

caso seja
100 em MM teria que me retornar 1000 em CM 1.00

OUTRO EXEMPLO

caso seja
150 em MM teria que me retornar em CM 0.15

caso
1500 em MM teria que me retornar cm CM 1.50
EPISCOPAL 23/07/2025 12:19:25
#504999
Citação:

caso
1500 em MM teria que me retornar cm CM 1.50



Observação
1500mm = 1,5m = 150cm

agora é so calcular
EPISCOPAL 23/07/2025 12:20:35
#505000
Alterado em 23/07/2025 12:20:59 mm para cm divida por 10
cm para mm multiplique por 10
KERPLUNK 23/07/2025 20:45:21
#505003 
  
Function ConverterComprimento(valor As Double, unidadeEntrada As String, unidadeSaida As String) As Double
    ' Tabela de conversão para metros (unidade base)
    Dim fatorEntrada As Double
    Dim fatorSaida As Double
    
    ' Converte para minúsculas para facilitar comparação
    unidadeEntrada = LCase(unidadeEntrada)
    unidadeSaida = LCase(unidadeSaida)
    
    ' Obtém fator de conversão da unidade de entrada
    Select Case unidadeEntrada
        Case "km", "quilometro", "quilômetro": fatorEntrada = 1000
        Case "m", "metro": fatorEntrada = 1
        Case "cm", "centimetro", "centímetro": fatorEntrada = 0.01
        Case "mm", "milimetro", "milímetro": fatorEntrada = 0.001
        Case "µm", "um", "micrometro", "micrômetro": fatorEntrada = 0.000001
        Case "nm", "nanometro", "nanômetro": fatorEntrada = 0.000000001
        Case "mi", "milha": fatorEntrada = 1609.344
        Case "yd", "jarda": fatorEntrada = 0.9144
        Case "ft", "pe", "pé": fatorEntrada = 0.3048
        Case "in", "polegada": fatorEntrada = 0.0254
        Case Else
            MsgBox "Unidade de entrada inválida: " & unidadeEntrada, vbCritical
            ConverterComprimento = 0
            Exit Function
    End Select
    
    ' Obtém fator de conversão da unidade de saída
    Select Case unidadeSaida
        Case "km", "quilometro", "quilômetro": fatorSaida = 1000
        Case "m", "metro": fatorSaida = 1
        Case "cm", "centimetro", "centímetro": fatorSaida = 0.01
        Case "mm", "milimetro", "milímetro": fatorSaida = 0.001
        Case "µm", "um", "micrometro", "micrômetro": fatorSaida = 0.000001
        Case "nm", "nanometro", "nanômetro": fatorSaida = 0.000000001
        Case "mi", "milha": fatorSaida = 1609.344
        Case "yd", "jarda": fatorSaida = 0.9144
        Case "ft", "pe", "pé": fatorSaida = 0.3048
        Case "in", "polegada": fatorSaida = 0.0254
        Case Else
            MsgBox "Unidade de saída inválida: " & unidadeSaida, vbCritical
            ConverterComprimento = 0
            Exit Function
    End Select
    
    ' Realiza a conversão via unidade base (metros)
    ConverterComprimento = valor * fatorEntrada / fatorSaida
End Function


Para usar:

'Convertendo de metros para centímetros
dim resultado as Double
resultado = ConverterComprimento(2; "m"; "cm")


Essa função suporta km, m, cm, mm... como está no case. Suporta até polegadas, jardas, milhas...

De qualquer unidade para qualquer unidade.
Faça seu login para responder
Voltar