Tarihi Yazıya çevirmek istiyorum.

Question

Choose(Int(Mod(senet_gun;01^31) "Bir"; "İki"; "Üç"; "Dört"; "Beş"; "Altı"; "Yedi"; "Sekiz"; "Dokuz"; "On"; "Onbir"; "Oniki"; "Onüç"; "Ondört "; "Onbeş"; "Onaltı"; "Onyedi"; "Onsekiz "; "Ondokuz";
"Yirmi"; "Yirmibir"; "Yirmiiki"; "Yirmiüç"; "Yirmidört"; "Yirmibeş"; "Yirmialtı"; "Yirmiyedi"; "Yirmisekiz"; "Yirmidokuz"; "Otuz"; "Otuzbir"))
&
Choose(Int(Mod(senet_ay;01^12); ""; "Ocak"; "Şubat"; "Mart"; "Nisan"; "Mayıs"; "Haziran"; "Temmuz"; "Ağustos"; "Eylül"; "Ekim"; "Kasım"; "Aralık"))
&
Choose(Int(Mod(senet_yil;2020^2030); ""; "İkibinyirmi"; "İkibinyirmibir"; "İkibinyirmiiki"; "İkibinyirmiüç"; "İkibinyirmidört"; "İkibinyirmibeş"; "İkibinyirmialtı"; "İkibinyirmiyedi"; "İkibinyirmisekiz"; "İkibinyirmidokuz"; "İkibinotuz"))

 

Tarihi yazıya çevirmek istiyorum, ay yıl ve gün ayrı sorguda işi uzatmamak adına yaptım.
yardımlarınız için teşekkür ederim.

Answer 1

Herkese selam ederim;

 

Basit bir örnek hazırladım umarım işinizi görür. İşlem biraz uzun olduğu için işlemi özel fonksiyonlara gün ay ve yıl olarak 3 aşamada ekledim. 

 

Örnek Dosya

 

Herkse hayırlı günler dilerim.

Saygılarımla.

Comments

Ercan bey merhaba,

Varolun, tam istediğimi gibi. Teşekkürler.