Convert Date to word in Windows Application using C# and VB.Net

Last Reply one year ago By pandeyism

Posted one year ago

Hello,

 I want to convert date to words i.e.

If date is 04/03/2019 then i want to convert it as : fourth march  two thousand ninteen

how to implement this requirement in c# windows application, provide refernce

Thanks

Posted one year ago Modified on one year ago

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