CONVERT DATE AND MONTH IN ENGLISH IN EXCEL

[syar]

BOhat achi sharing

[Haseeb Alamgir]

BOhat achi sharing

اظہار، پسندیدگی کا بہت شکریہ

[hussa]

بہترین

[Haseeb Alamgir]

اظہارِ پسندیدگی کا بہت شکریہ

[syar]

اگر پوری تاریخ کو الفاظ میں تبدیل کرنا ہےتو آپ درج ذیل وی بی کوڈ استعمال کار سکتے ہیں۔

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

اس کوڈ کو وی بی میں لکھنے کے بعد آپ کسی بھی سیل میں
=datetowords(cell reference)
تو پوری تاریخ ورڈ میں ٹرانسلیٹ ہو جاے گی ۔ مثلا آج کی تاریخ کو اس طرح کنورٹ کر دیگا۔
Fifth of January Two Thousand Twenty-Three

وی بی پر مدد کے لءے حسیب صاحب مدد کر دینگے۔ یا
excel help line وزٹ کریں

[Haseeb Alamgir]

اگر پوری تاریخ کو الفاظ میں تبدیل کرنا ہےتو آپ درج ذیل وی بی کوڈ استعمال کار سکتے ہیں۔

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

اس کوڈ کو وی بی میں لکھنے کے بعد آپ کسی بھی سیل میں
=datetowords(cell reference)
تو پوری تاریخ ورڈ میں ٹرانسلیٹ ہو جاے گی ۔ مثلا آج کی تاریخ کو اس طرح کنورٹ کر دیگا۔
Fifth of January Two Thousand Twenty-Three

وی بی پر مدد کے لءے حسیب صاحب مدد کر دینگے۔ یا
excel help line وزٹ کریں

سر جی آپ تو خود ہمارے استادوں میں سے ہیں
بہت اچھا لگا آپ کو اس تھریڈ میں دیکھ کر اور ہماری مذید رہنمائی کرنے پر
اب یہ بھی بتا دیں کہ اگر ہم
Thousand
والی فیگر کو ملین میں تبدیل کرنا چاہیے تو کیا کیا تبدیلی اس کوڈ میں کرنی ہوگی
انتظار رہے گا

[syar]

سر جی آپ تو خود ہمارے استادوں میں سے ہیں
بہت اچھا لگا آپ کو اس تھریڈ میں دیکھ کر اور ہماری مذید رہنمائی کرنے پر
اب یہ بھی بتا دیں کہ اگر ہم
Thousand
والی فیگر کو ملین میں تبدیل کرنا چاہیے تو کیا کیا تبدیلی اس کوڈ میں کرنی ہوگی
انتظار رہے گا

Sir g, date k leye year ko million m change nae kar sakty.

[syar]

لیکن اگر آپ اپنے فارمولے کو بھی اسکے ساتھ جوڑ لیں تو رزلٹ کچھ اسطرح بھی ہو سکتا ہے۔

=TEXT(A1,"dddd")&", "&DateToWords(A1)
Saturday, Seventh of January Two Thousand Twenty-Three

کوما کی جگہ کچھ بھی لکھ سکتے ہیں

[Haseeb Alamgir]

لیکن اگر آپ اپنے فارمولے کو بھی اسکے ساتھ جوڑ لیں تو رزلٹ کچھ اسطرح بھی ہو سکتا ہے۔

=TEXT(A1,"dddd")&", "&DateToWords(A1)
Saturday, Seventh of January Two Thousand Twenty-Three

کوما کی جگہ کچھ بھی لکھ سکتے ہیں

بہت شکریہ
تحریر گزار تاریخ والے کوڈ کی بات نہیں کر رہا ہے
وہ
تو اپنے دیے گئے کوڈ کی بات کر رہا ہے کہ ہم اس میں کیا کیا تبدیلی کریں کہ وہ جواب
THOUSAND
کے بجائے
MILLION
میں جوا ب دے
آپ ماسٹر لوگ ہو اُس کوڈ کو تبدیل آسانی سے کر سکتے ہو
اور
شاید یہ کام دنیا میں پہلی مرتبہ ہوگا جو آپ کرنے کی کوشش کرنے والے ہیں
ہماری درخواست پر

[syar]

میں سمجھا نہیں کیا آپ نمبر کو ورڈ میں تبدیل کرنے والے کوڈ کی بات کر رہے ہیں؟
جو کہ آپنے دوسرے تھریڈ میں دیا ہے؟
لیکن اگر آپ اوپر دے گےکوڈ کی بات کر رہے ہیں تو اسمیں نہیں ہو سکتا۔

[loyal_cupid]

Good Info

[Haseeb Alamgir]

میں سمجھا نہیں کیا آپ نمبر کو ورڈ میں تبدیل کرنے والے کوڈ کی بات کر رہے ہیں؟
جو کہ آپنے دوسرے تھریڈ میں دیا ہے؟
لیکن اگر آپ اوپر دے گےکوڈ کی بات کر رہے ہیں تو اسمیں نہیں ہو سکتا۔

جی اُسی کی بات کر رہا ہوں دوسرے تھریڈ کی