Hi ashishk,
Please refer below sample.
Code
C#
static string[] ones = new string[] { "", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine" };
static string[] teens = new string[] { "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen" };
static string[] tens = new string[] { "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety" };
static string[] thousandsGroups = { "", " Thousand", " Million", " Billion" };
private static string Integer(int n, string leftDigits, int thousands)
{
if (n == 0)
{
return leftDigits;
}
string friendlyInt = leftDigits;
if (friendlyInt.Length > 0)
{
friendlyInt += " ";
}
if (n < 10)
{
friendlyInt += ones[n];
}
else if (n < 20)
{
friendlyInt += teens[n - 10];
}
else if (n < 100)
{
friendlyInt += Integer(n % 10, tens[n / 10 - 2], 0);
}
else if (n < 1000)
{
friendlyInt += Integer(n % 100, (ones[n / 100] + " Hundred"), 0);
}
else
{
friendlyInt += Integer(n % 1000, Integer(n / 1000, "", thousands + 1), 0);
}
return friendlyInt + thousandsGroups[thousands];
}
public static string DateToWord(DateTime date)
{
return string.Format("{0} {1} {2}", IntegerToWord(date.Day), date.ToString("MMMM"), IntegerToWord(date.Year));
}
public static string IntegerToWord(int n)
{
if (n == 0)
{
return "Zero";
}
else if (n < 0)
{
return "Negative " + IntegerToWord(-n);
}
return Integer(n, "", 0);
}
protected void Convert(object sender, EventArgs e)
{
if (!string.IsNullOrEmpty(txtDate.Text))
{
lblResult.Visible = true;
lblResult.Text = DateToWord(DateTime.ParseExact(txtDate.Text, "dd/MM/yyyy", System.Globalization.CultureInfo.InvariantCulture));
}
else
{
lblResult.Text = "";
}
}
}
VB.Net
Shared ones As String() = New String() {"", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"}
Shared teens As String() = New String() {"Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen"}
Shared tens As String() = New String() {"Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety"}
Shared thousandsGroups As String() = {"", " Thousand", " Million", " Billion"}
Private Shared Function Integers(ByVal n As Integer, ByVal leftDigits As String, ByVal thousands As Integer) As String
If n = 0 Then
Return leftDigits
End If
Dim friendlyInt As String = leftDigits
If friendlyInt.Length > 0 Then
friendlyInt += " "
End If
If n < 10 Then
friendlyInt += ones(n)
ElseIf n < 20 Then
friendlyInt += teens(n - 10)
ElseIf n < 100 Then
friendlyInt += Integers(n Mod 10, tens(n / 10 - 2), 0)
ElseIf n < 1000 Then
friendlyInt += Integers(n Mod 100, (ones(n / 100) & " Hundred"), 0)
Else
friendlyInt += Integers(n Mod 1000, Integers(n / 1000, "", thousands + 1), 0)
End If
Return friendlyInt & thousandsGroups(thousands)
End Function
Public Shared Function DateToWord(ByVal date1 As DateTime) As String
Return String.Format("{0} {1} {2}", IntegerToWord(date1.Day), date1.ToString("MMMM"), IntegerToWord(date1.Year))
End Function
Public Shared Function IntegerToWord(ByVal n As Integer) As String
If n = 0 Then
Return "Zero"
ElseIf n < 0 Then
Return "Negative " & IntegerToWord(-n)
End If
Return Integers(n, "", 0)
End Function
Protected Sub Convert(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
If Not String.IsNullOrEmpty(txtDate.Text) Then
lblResult.Text = DateToWord(DateTime.ParseExact(txtDate.Text, "dd/MM/yyyy", System.Globalization.CultureInfo.InvariantCulture))
Else
lblResult.Text = ""
End If
End Sub
Screenshot
