Revision: 14619
Updated Code
at June 7, 2009 19:35 by rtipton
Updated Code
Imports System Namespace StripDecimal_VB Class RemoveDecimal Shared Sub Main(ByVal args As String()) Dim testNum As Double = 255.95 Dim noDecimalVal As String = testNum.ToString().Replace(".", "").PadLeft(9, "0"c) Console.WriteLine("Original Value: " + testNum.ToString()) Console.WriteLine("Value w/No Decimal: " + noDecimalVal) End Sub End Class End Namespace
Revision: 14618
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at June 7, 2009 19:28 by rtipton
Initial Code
Imports System Namespace StripDecimal_VB Class RemoveDecimal Shared Sub Main(ByVal args As String()) Dim testNum As Double = 255.95 Dim noDecimalVal As String = testNum.ToString().Replace(".", "").PadLeft(9, "0"c) Console.WriteLine(noDecimalVal) End Sub End Class End Namespace
Initial URL
Initial Description
Initial Title
Strip Decimal and Zero Fill
Initial Tags
Initial Language
VB.NET