@
Erel & @
DonManfred
Thank you so much I have mixed your code and got what I wanted, I am posting the code for reference if anyone else willing to do for other languages they can use it.
Sub Globals
Dim arabic_name() As String = Array As String("يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر")
Dim arabic_num(10) As String
arabic_num = Array As String ("٠", "١", "٢", "٣", "٤", "٥", "٦", "٧", "٧", "٩")
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("sc03")
Dim dd, yyyy, dummy1, dummy2, Day, Month, Year As String
Month = ConvertNumberToName(DateTime.GetMonth(DateTime.Now))
yyyy = DateTime.GetYear(DateTime.Now)
Year = ""
For i = 0 To yyyy.Length-1
dummy1 = yyyy.SubString2(i,i+1)
Year = Year & arabic_num(dummy1)
Next
dd = DateTime.GetDayOfMonth(DateTime.Now)
Day = ""
For i = 0 To dd.Length-1
dummy2 = dd.SubString2(i,i+1)
Day = Day & arabic_num(dummy2)
Next
DateAR.Text = ( Day & " " & Month & " " & Year )
End Sub
Sub ConvertNumberToName(Number As Int) As String
Return arabic_name(Number -1)
End Sub