I want to convert vb code to c# Here is the code.
- Public Class clsNum2Word
-
- Public Function Num2WordConverter(ByVal Number As String)
-
- Dim Words As String
- Dim Length As Integer
- Dim Whole As Decimal
- Dim Fraction As Decimal
-
- Whole = Math.Floor(Convert.ToDecimal(Number))
-
- Fraction = (Convert.ToDecimal(Number) - Whole).ToString + "000"
-
- Length = Whole.ToString.Length
-
- If Fraction.ToString.Length >= 4 Then
- Fraction = Convert.ToInt32(Fraction.ToString.Substring(2, 2))
- End If
-
- If Length = 9 Then
-
- Words = MakeWord(Convert.ToInt32(Whole.ToString.Substring(0, 2))) + " Crore(s)"
-
- If Convert.ToInt32(Whole.ToString.Substring(2, 2)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(2, 2))) + " Lac(s)"
- End If
-
-
- If Convert.ToInt32(Whole.ToString.Substring(4, 2)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(4, 2))) + " Thousand"
- End If
-
-
- If Convert.ToInt32(Whole.ToString.Substring(6, 1)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(6, 1))) + " Hundred"
- End If
-
- If Convert.ToInt32(Whole.ToString.Substring(7, 2)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(7, 2)))
- End If
-
- Words += " Rupee(s) And " + MakeWord(Fraction) + " Paise Only."
-
-
-
- ElseIf Length = 8 Then
-
- Words = MakeWord(Convert.ToInt32(Whole.ToString.Substring(0, 1))) + " Crore(s)"
-
- If Convert.ToInt32(Whole.ToString.Substring(1, 2)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(1, 2))) + " Lac(s)"
- End If
-
-
- If Convert.ToInt32(Whole.ToString.Substring(3, 2)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(3, 2))) + " Thousand"
- End If
-
-
- If Convert.ToInt32(Whole.ToString.Substring(5, 1)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(5, 1))) + " Hundred"
- End If
-
- If Convert.ToInt32(Whole.ToString.Substring(6, 2)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(6, 2)))
- End If
-
- Words += " Rupee(s) And " + MakeWord(Fraction) + " Paise Only."
-
-
- ElseIf Length = 7 Then
-
- Words = MakeWord(Convert.ToInt32(Whole.ToString.Substring(0, 2))) + " Lac(s)"
-
- If Convert.ToInt32(Whole.ToString.Substring(2, 2)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(2, 2))) + " Thousand"
- End If
-
-
- If Convert.ToInt32(Whole.ToString.Substring(4, 1)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(4, 1))) + " Hundred"
- End If
-
- If Convert.ToInt32(Whole.ToString.Substring(5, 2)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(5, 2)))
- End If
-
- Words += " Rupee(s) And " + MakeWord(Fraction) + " Paise Only."
-
- ElseIf Length = 6 Then
-
- Words = MakeWord(Convert.ToInt32(Whole.ToString.Substring(0, 1))) + " lac(s)"
-
- If Convert.ToInt32(Whole.ToString.Substring(1, 2)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(1, 2))) + " Thousand"
- End If
-
-
- If Convert.ToInt32(Whole.ToString.Substring(3, 1)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(3, 1))) + " Hundred"
- End If
-
- If Convert.ToInt32(Whole.ToString.Substring(4, 2)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(4, 2)))
- End If
-
- Words += " Rupee(s) And " + MakeWord(Fraction) + " Paise Only."
-
- ElseIf Length = 5 Then
-
- Words = MakeWord(Convert.ToInt32(Whole.ToString.Substring(0, 2))) + " Thousand"
-
- If Convert.ToInt32(Whole.ToString.Substring(2, 1)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(2, 1))) + " Hundred"
- End If
-
- If Convert.ToInt32(Whole.ToString.Substring(3, 2)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(3, 2)))
- End If
-
- Words += " Rupee(s) And " + MakeWord(Fraction) + " Paise Only."
-
- ElseIf Length = 4 Then
-
- Words = MakeWord(Convert.ToInt32(Whole.ToString.Substring(0, 1))) + " Thousand"
-
- If Convert.ToInt32(Whole.ToString.Substring(1, 1)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(1, 1))) + " Hundred"
- End If
-
- If Convert.ToInt32(Whole.ToString.Substring(2, 2)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(2, 2)))
- End If
-
- Words += " Rupee(s) And " + MakeWord(Fraction) + " Paise Only."
-
- ElseIf Length = 3 Then
-
- Words = MakeWord(Convert.ToInt32(Whole.ToString.Substring(0, 1))) + " Hundred"
-
- If Convert.ToInt32(Whole.ToString.Substring(1, 2)) <> 0 Then
- Words += " " + MakeWord(Convert.ToInt32(Whole.ToString.Substring(1, 2)))
- End If
-
- Words += " Rupee(s) And " + MakeWord(Fraction) + " Paise Only."
-
- ElseIf Length <= 2 Then
- Words = MakeWord(Whole) + " Rupee(s) And " + MakeWord(Fraction) + " Paise Only."
- Else
- Words = "Range Exceeded."
- End If
-
-
- Return Words
-
- End Function
-
-
-
- Private Function MakeWord(ByVal Number As Integer)
-
- Select Case Number
- Case 0
- Return "Zero"
- Case 1
- Return "One"
- Case 2
- Return "Two"
- Case 3
- Return "Three"
- Case 4
- Return "Four"
- Case 5
- Return "Five"
- Case 6
- Return "Six"
- Case 7
- Return "Seven"
- Case 8
- Return "Eight"
- Case 9
- Return "Nine"
- Case 10
- Return "Ten"
- Case 11
- Return "Eleven"
- Case 12
- Return "Tweleve"
- Case 13
- Return "Thirteen"
- Case 14
- Return "Fourteen"
- Case 15
- Return "Fifteen"
- Case 16
- Return "Sixteen"
- Case 17
- Return "Seventeen"
- Case 18
- Return "Eighteen"
- Case 19
- Return "Nineteen"
- Case 20
- Return "Twenty"
- Case 21
- Return "Twenty One"
- Case 22
- Return "Twenty Two"
- Case 23
- Return "Twenty Three"
- Case 24
- Return "Twenty Four"
- Case 25
- Return "Twenty Five"
- Case 26
- Return "Twenty Six"
- Case 27
- Return "Twenty Seven"
- Case 28
- Return "Twenty Eight"
- Case 29
- Return "Twenty Nine"
- Case 30
- Return "Thirty"
- Case 31
- Return "Thirty One"
- Case 32
- Return "Thirty Two"
- Case 33
- Return "Thirty Three"
- Case 34
- Return "Thirty Four"
- Case 35
- Return "Thirty Five"
- Case 36
- Return "Thirty Six"
- Case 37
- Return "Thirty Seven"
- Case 38
- Return "Thirty Eight"
- Case 39
- Return "Thirty Nine"
- Case 40
- Return "Forty"
- Case 41
- Return "Forty One"
- Case 42
- Return "Forty Two"
- Case 43
- Return "Forty Three"
- Case 44
- Return "Forty Four"
- Case 45
- Return "Forty Five"
- Case 46
- Return "Forty Six"
- Case 47
- Return "Forty Seven"
- Case 48
- Return "Forty Eight"
- Case 49
- Return "Forty Nine"
- Case 50
- Return "Fifty"
- Case 51
- Return "Fifty One"
- Case 52
- Return "Fifty Two"
- Case 53
- Return "Fifty Three"
- Case 54
- Return "Fifty Four"
- Case 55
- Return "Fifty Five"
- Case 56
- Return "Fifty Six"
- Case 57
- Return "Fifty Seven"
- Case 58
- Return "Fifty Eight"
- Case 59
- Return "Fifty Nine"
- Case 60
- Return "Sixty"
- Case 61
- Return "Sixty One"
- Case 62
- Return "Sixty Two"
- Case 63
- Return "Sixty Three"
- Case 64
- Return "Sixty Four"
- Case 65
- Return "Sixty Five"
- Case 66
- Return "Sixty Six"
- Case 67
- Return "Sixty Seven"
- Case 68
- Return "Sixty Eight"
- Case 69
- Return "Sixty Nine"
- Case 70
- Return "Seventy"
- Case 71
- Return "Seventy One"
- Case 72
- Return "Seventy Two"
- Case 73
- Return "Seventy Three"
- Case 74
- Return "Seventy Four"
- Case 75
- Return "Seventy Five"
- Case 76
- Return "Seventy Six"
- Case 77
- Return "Seventy Seven"
- Case 78
- Return "Seventy Eight"
- Case 79
- Return "Seventy Nine"
- Case 80
- Return "Eighty"
- Case 81
- Return "Eighty One"
- Case 82
- Return "Eighty Two"
- Case 83
- Return "Eighty Three"
- Case 84
- Return "Eighty Four"
- Case 85
- Return "Eighty Five"
- Case 86
- Return "Eighty Six"
- Case 87
- Return "Eighty Seven"
- Case 88
- Return "Eighty Eight"
- Case 89
- Return "Eighty Nine"
- Case 90
- Return "Ninety"
- Case 91
- Return "Ninety One"
- Case 92
- Return "Ninety Two"
- Case 93
- Return "Ninety Three"
- Case 94
- Return "Ninety Four"
- Case 95
- Return "Ninety Five"
- Case 96
- Return "Ninety Six"
- Case 97
- Return "Ninety Seven"
- Case 98
- Return "Ninety Eight"
- Case 99
- Return "Ninety Nine"
- Case Else
- Return "Error"
- End Select
- End Function
-
- End Class
Please anyone help me to convert the code for c#