APLICAR MASCARA NO MSGBOX
Olá, tenho o seguinte problema para transformar uma escala Celsius em Fahrenheit:
Dim A, B As Decimal
A = TextBox1.Text
B = 5 / 9 * (A - 32)
MsgBox(C)
Na Msgbox aparece uma dizima periódica, e preciso apresentar apenas duas casas decimais.
Ex. -1.1111111 apresentaria apenas -1.11
Dim A, B As Decimal
A = TextBox1.Text
B = 5 / 9 * (A - 32)
MsgBox(C)
Na Msgbox aparece uma dizima periódica, e preciso apresentar apenas duas casas decimais.
Ex. -1.1111111 apresentaria apenas -1.11
Coloca assim:
[txt-size=2]MessageBox.Show(C.ToString([Ô].00[Ô]))[/txt-size]
Testei em c# e funcionou acho que em VB vai dar na mesma.
[txt-size=2]MessageBox.Show(C.ToString([Ô].00[Ô]))[/txt-size]
Testei em c# e funcionou acho que em VB vai dar na mesma.
Tenta a função Format que resolve...
Dim A, B As Decimal
A = TextBox1.Text
B = 5 / 9 * (A - 32)
MsgBox(Format(B, [Ô]0.00[Ô]))
Dim A, B As Decimal
A = TextBox1.Text
B = 5 / 9 * (A - 32)
MsgBox(Format(B, [Ô]0.00[Ô]))
Citação:Module Module1
Sub Main()
Dim a, b, c As Decimal
Console.Write([Ô]Digite o valor de A: [Ô])
a = Console.ReadLine
b = 5 / 9 * (a - 32)
Console.Write([Ô]O Valor em Celsius é: [Ô] & Format(b, [Ô]0.00[Ô]))
Console.ReadKey()
End Sub
End Module
Obrigado
Tópico encerrado , respostas não são mais permitidas