Hey.
I'm misusing the Int operator. Here's what I'm going for:
![Name: int.PNG
Views: 65
Size: 5.3 KB]()
Here's my code:
I'm misusing the Int operator. Here's what I'm going for:
Here's my code:
Code:
Sub Main()
Dim miles As Decimal
Dim yards As Decimal
Dim feet As Decimal
Dim inches As Decimal
Dim totalinches As Decimal
Dim totalmeters As Decimal
Dim kilometers As Decimal
Dim meters As Decimal
Dim centimeters As Decimal
'INPUT Enter the U.S. units to be converted.
Console.Write("Enter number of miles: ")
Decimal.TryParse(Console.ReadLine, miles)
Console.Write("Enter the number of yards: ")
Decimal.TryParse(Console.ReadLine, yards)
Console.Write("Enter the number of feet: ")
Decimal.TryParse(Console.ReadLine, feet)
Console.Write("Enter the number of inches: ")
Decimal.TryParse(Console.ReadLine, inches)
Console.ReadLine()
'PROCESSING Time to convert the units.
totalinches = 63360 * miles + 36 * yards + 12 * feet + inches
totalmeters = totalinches / 39.37
kilometers = Int(meters / 1000)
centimeters = Int(meters * 1000)
Console.Write("The metric length is " & kilometers & " Kilometers, " & meters & " meters, and " & centimeters & " centimeters")
Console.ReadLine()
End Sub