Visual Basic 6 - Problemas com Decimais - Referencia Rápida

Se você está encontrando problemas com decimais provavelmente pode ser problema na conversão de tipos. Os controles do vb em geral guardam os valores em texto (text, label, grids, ...) então é necessário a conversão para currency ou double. Abaixo exemplo com double CDbl

Errado. Exibe 4

lbliten1.caption = ("2,5")
lbliten2.caption = ("2,5")

lbltotal.Caption = Val(lbliten1.Caption) + Val(lbliten2.caption)

Correto. Exibe 5
Trocar Val por CDbl


lbliten1.caption = ("2,5")
lbliten2.caption = ("2,5")


lbltotal.Caption = CDbl(lbliten1.Caption) + CDbl(lbliten2.caption)

Floresta vertical

Em Milão (italia) estão sendo erquidas duas torres verdes. Bosco Verticale (floresta vertical) é um projeto de reflorestamento urbano fantástico. Aposto que existem um milhão de madames horrozidas em podem ter um monte de bichinhos (insetos) invandindo seus apartamentos. É a vida como ela é: Todo mundo que ir à natureza, mas ninguém quer ir a pé. Espero que a iniciativa seja seguida por outros