Convertir unidad a Pack

[E N T E R]

Necesito convertir de unidad a pack.

1 Pack = 12 unidades.

Código: (VB) [Seleccionar]

Private Sub Command1_Click()
   
    Dim xEntero As Integer
    Dim xUnidad As Integer

    xEntero = Format(Val(Text1.Text) / 12, "")
    xUnidad = Format(Val(Text1.Text), "") - xEntero * 12

    If xUnidad > 0 Then
        Debug.Print xEntero & " PACK CON " & xUnidad & " LATAS"
    Else
        Debug.Print xEntero & " PACK"
    End If

End Sub
En algunos casos no me convierte bien, por ejemplo si pongo 69 unidad me tira directo a 6 pack, y deberia de ser 5 pack con 9 latas.

[YAcosta]

El problema es que estas poniendo xEntero como Integer cuando 69/12 = 5.75

Código: (VB) [Seleccionar]

   Dim xEntero As Double
    Dim xUnidad As Integer

    xEntero = Fix((Val(Text1.Text)) / 12)
    xUnidad = (Val(Text1.Text) / 12 - xEntero) * 12

    If xUnidad > 0 Then
        Debug.Print xEntero & " PACK CON " & xUnidad & " LATAS"
    Else
        Debug.Print xEntero & " PACK"
    End If


[E N T E R]

Así mismo amigo me equivoque ahí también lo resolví así:

Código: (VB) [Seleccionar]

Dim xEntero As Double
Dim xUnidad As Double
Dim xTotal As Double

Private Sub Command1_Click()

    xEntero = (Text1.Text) / 12
    xUnidad = Int(xEntero)
    xTotal = Int(Text1.Text) - (xUnidad) * 12
   
    If Text1.Text < 12 Then
        Me.Caption = Text1.Text & " LATAS"
    Else
       
        If xTotal > 0 Then
            Me.Caption = xUnidad & " PACK CON " & xTotal & " LATAS"
        Else
            Me.Caption = xUnidad & " PACK"
        End If
       
    End If
   
End Sub

[raul338]

Creo que Fix redondea para arriba, por lo que si pones 23 latas, en ves de ponerte 1 pack con 11 latas, te pondria 2 packs.... (1.9 packs)

En realidad debe ser así

Código: (vb) [Seleccionar]

Const latasXpack As Integer = 12
Dim unidades As Integer, Packs As Integers, latasRestantes As Integer

Packs = Floor(unidades / latasXpack)
latasRestantes = unidades - Packs * latasXpack

Y listo

[cristian_19a]

Floor?

Código: (VB) [Seleccionar]

    Dim xNumero As Double
    Dim xCaja As Integer
    xNumero = Val(Text1.Text) 'Numero a comparar
    xCaja = 12 'Cantidad que contiene el PACK
    If xNumero < xCaja Then
        lblMen.Caption = xNumero & " LATAS"
    Else
        'Metodo 1-------------------------------------------
        Dim xEntero As Double
        Dim xDecimales As Double
        xEntero = Format((xNumero / xCaja), "####0.00")
        xDecimales = Format((xEntero - Int(xEntero)) * xCaja, "####0")
        xEntero = Int(xEntero)
       
        'Metodo 2-------------------------------------------
        'Dim xEntero As Integer
        'Dim xDecimales As Integer
        'xEntero = Int(xNumero / xCaja)
        'xDecimales = xNumero - (xEntero * xCaja)
       
        '---------------------------------------------------
        If xDecimales > 0 Then
            lblMen.Caption = xEntero & " PACK CON " & xDecimales & " LATAS"
        Else
            lblMen.Caption = xEntero & " PACK"
        End If
    End If

[raul338]

Floor es una funcion que redondea hacia abajo, o sea, 3.5, 3.7, 3.9, 3.1 y así se redondea a 3....

No hay forma de que 23.9 latas te den 2 paquetes, es 1 paquete y 11.9 latas (una exageración, pero se entiende)

[E N T E R]

La verdad tambien me sono a que Vb no tenia esa funcion. investigando encontre esto.

Ceiling y Floor en VB6
Dado que Visual Basic 6 carece de estos dos métodos que en algún momento pueden resultar útiles. Una forma de obtener el resultado deseado es con dos pequeñas funciones.

'Devuelve el entero más pequeño no menor que X.
'Ejemplo: Ceiling(1.23) = 2, Ceiling(-1.23) = -1

Código: (VB) [Seleccionar]

Private Function Ceiling(ByVal X As Double) As Long
   Ceiling = -Int(X * (-1))
End Function

'Devuelve el entero más grande no mayor que X.
'Ejemplo: Floor(1.23) = 1, Floor(-1.23) = -2

Código: (VB) [Seleccionar]

Private Function Floor(ByVal X As Double) As Long
   Floor = (-Int(X) * (-1))
End Function
Pero gracias por todo y a todos por colaborar, ya lo resolvi.

[YAcosta]

Creo que Fix redondea para arriba, por lo que si pones 23 latas, en ves de ponerte 1 pack con 11 latas, te pondria 2 packs.... (1.9 packs)

En realidad debe ser así....

No mi estimado, el codigo que puse es correcto, con 23 latas o cualquier cantidad de latas me da el resultado esperado, fijate:

[youtube]http://www.youtube.com/watch?v=6MvwOejs9WQ[/youtube]

Poner en HD debes!!!  Salud

[LeandroA]

esta forma creo que tambien es valida

Código: [Seleccionar]

    xEntero = Val(Text1.Text) \ 12
    xUnidad = Val(Text1.Text) Mod 12

[YAcosta]

Esa es mas limpia, cambiar de:

Código: (VB) [Seleccionar]

xEntero = Fix((Val(Text1.Text)) / 12)
xUnidad = (Val(Text1.Text) / 12 - xEntero) * 12
a

Código: (VB) [Seleccionar]

xEntero = Fix((Val(Text1.Text)) / 12)
xUnidad = Val(Text1.Text) Mod 12

[cobein]

Código: [Seleccionar]

xEntero = Val(Text1.Text) \ 12 '<--Parte entera
xUnidad = Val(Text1.Text) Mod 12'<--Resto


[YAcosta]

Código: [Seleccionar]

xEntero = Val(Text1.Text) \ 12 '<--Parte entera
xUnidad = Val(Text1.Text) Mod 12'<--Resto


Ya me di cuenta!!!! no sabia eso realmente. Pense que era un error pero comprobé que efectivamente funciona, y el truco esta en usar \ en vez de /. A pesar de que funciona bien con Fix, no es necesario usarlo.