Date of Birth in Word

[M Imran Mugal]

Experts help krain meri data base me date of birth k bry me........

[M Imran Mugal]

help dosto help

[Irfan Ch48]

عرفان خالد کی طرف سے

[Sahil_Jaan]

change date format in excel
Change Date Format Tip 2

[M Imran Mugal]

Dear sahil jan Assalam o alaikum
Bhai boht boht mehrbani ap ne mry ley koshish ki mgr bhai mera sawal kuch aur hai.....

[sayhellotoit]

Wa-alaikum-assalam,
Aisa chah rahain hain aap:

[M Imran Mugal]

Wa-alaikum-assalam,
Aisa chah rahain hain aap:

Oh.....
g bhai aisa he chah raha tha me thanks thank u very very much............................. Khuda ap k elam me aur Izafa aatta frmayyy ameeennn......

[M Imran Mugal]

Wa-alaikum-assalam,
Aisa chah rahain hain aap:

bhai is me aik maslah hai abi wo ye k jo ap ne date likhi hai upper wo aisy hai
09-05-2013 Nine May Two Thousand Thirteen
10-05-2013 Ten May Two Thousand Thirteen
Mery khayal se ye aisy honi chahey
09-05-2013 Ninth May Two Thousand Thirteen
14-05-2013 Fourteenth May Two Thousand Thirteen
25-05-2013 twenty fifth May Two Thousand Thirteen
ager year 19 ho exp: 19980,1985 rtc
25/05/1985 Twenty Fifth May Nineteen Hundred Eighty Five

Pleas ye masla b hal krain Bari nawazish hogi Shukriya........

[M Imran Mugal]

change date format in excel
Change Date Format Tip 2

Dear sahil bhai me ne IT Dunya k ruls me padha tha k ksi aur website ya forum ki link ni deni... ap ne mery sawal k ley link di
me puchna ye chahta hn k kiya aisy sawal k jawab k ley link di jaskti hai????????????????

[syar]

Wa-alaikum-assalam,
Aisa chah rahain hain aap:

Really Nice approach. Give it a try may be you will find it useful in future.

Function DateToWords(ByVal DateIn As Variant) As String
Dim Yrs As String
Dim Hundreds As String
Dim Decades As String
Dim Tens As Variant
Dim Ordinal As Variant
Dim Cardinal As Variant
Ordinal = Array("First", "Second", "Third", _
"Fourth", "Fifth", "Sixth", _
"Seventh", "Eighth", "Nineth", _
"Tenth", "Eleventh", "Twelfth", _
"Thirteenth", "Fourteenth", _
"Fifteenth", "Sixteenth", _
"Seventeenth", "Eighteenth", _
"Nineteenth", "Twentieth", _
"Twenty-first", "Twenty-second", _
"Twenty-third", "Twenty-fourth", _
"Twenty-fifth", "Twenty-sixth", _
"Twenty-seventh", "Twenty-eighth", _
"Twenty-nineth", "Thirtieth", _
"Thirty-first")
Cardinal = Array("", "One", "Two", "Three", "Four", _
"Five", "Six", "Seven", "Eight", "Nine", _
"Ten", "Eleven", "Twelve", "Thirteen", _
"Fourteen", "Fifteen", "Sixteen", _
"Seventeen", "Eighteen", "Nineteen")
Tens = Array("Twenty", "Thirty", "Forty", "Fifty", _
"Sixty", "Seventy", "Eighty", "Ninety")
DateIn = CDate(DateIn)
Yrs = CStr(Year(DateIn))
Decades = Mid$(Yrs, 3)
If CInt(Decades) < 20 Then
Decades = Cardinal(CInt(Decades))
Else
Decades = Tens(CInt(Left$(Decades, 1)) - 2) & "-" & _
Cardinal(CInt(Right$(Decades, 1)))
End If
Hundreds = Mid$(Yrs, 2, 1)
If CInt(Hundreds) Then
Hundreds = Cardinal(CInt(Hundreds)) & " Hundred "
Else
Hundreds = ""
End If
DateToWords = Ordinal(Day(DateIn) - 1) & _
Format$(DateIn, " of mmmm ") & _
Cardinal(CInt(Left$(Yrs, 1))) & _
" Thousand " & Hundreds & Decades
End Function

SUPPOSE A1 m date ha tu B1 m forumla asa ho ga

=DateToWords(A1)

regards,

[sayhellotoit]

Well, your approach is better, to-the-point and simple. Thank you for sharing.

[M Imran Mugal]

Really Nice approach. Give it a try may be you will find it useful in future.

Function DateToWords(ByVal DateIn As Variant) As String
Dim Yrs As String
Dim Hundreds As String
Dim Decades As String
Dim Tens As Variant
Dim Ordinal As Variant
Dim Cardinal As Variant
Ordinal = Array("First", "Second", "Third", _
"Fourth", "Fifth", "Sixth", _
"Seventh", "Eighth", "Nineth", _
"Tenth", "Eleventh", "Twelfth", _
"Thirteenth", "Fourteenth", _
"Fifteenth", "Sixteenth", _
"Seventeenth", "Eighteenth", _
"Nineteenth", "Twentieth", _
"Twenty-first", "Twenty-second", _
"Twenty-third", "Twenty-fourth", _
"Twenty-fifth", "Twenty-sixth", _
"Twenty-seventh", "Twenty-eighth", _
"Twenty-nineth", "Thirtieth", _
"Thirty-first")
Cardinal = Array("", "One", "Two", "Three", "Four", _
"Five", "Six", "Seven", "Eight", "Nine", _
"Ten", "Eleven", "Twelve", "Thirteen", _
"Fourteen", "Fifteen", "Sixteen", _
"Seventeen", "Eighteen", "Nineteen")
Tens = Array("Twenty", "Thirty", "Forty", "Fifty", _
"Sixty", "Seventy", "Eighty", "Ninety")
DateIn = CDate(DateIn)
Yrs = CStr(Year(DateIn))
Decades = Mid$(Yrs, 3)
If CInt(Decades) < 20 Then
Decades = Cardinal(CInt(Decades))
Else
Decades = Tens(CInt(Left$(Decades, 1)) - 2) & "-" & _
Cardinal(CInt(Right$(Decades, 1)))
End If
Hundreds = Mid$(Yrs, 2, 1)
If CInt(Hundreds) Then
Hundreds = Cardinal(CInt(Hundreds)) & " Hundred "
Else
Hundreds = ""
End If
DateToWords = Ordinal(Day(DateIn) - 1) & _
Format$(DateIn, " of mmmm ") & _
Cardinal(CInt(Left$(Yrs, 1))) & _
" Thousand " & Hundreds & Decades
End Function

SUPPOSE A1 m date ha tu B1 m forumla asa ho ga

=DateToWords(A1)

regards,

kiya ye mukamal formula b1 me type kiya jay gha ????
ya macro hai yeeeeee??????