tarihi yazıya çevirme

[irfem4]

a1 hücresine sayısal olarak yazdığım tarihi (15/05/2012)
a2 hücresine metin olarak( onbeş mayıs ikibin oniki) formül ile yazdırmak istiyorum.

 

[Mahir64]

a1 hücresine sayısal olarak yazdığım tarihi (15/05/2012)
a2 hücresine metin olarak( onbeş mayıs ikibin oniki) formül ile yazdırmak istiyorum.

Site içinde arama yaparsanız İhsan Bey ve Ömer Bey'in bununla ilgi güzel bir paylaşımı mevcut.

 

[irfem4]

sitede ararım ama bulamadım. yardımcı olursanız sevinirim.

 

[Huseyinkis]

ekli dosyayı incelermisiniz.

 

[irfem4]

verdiğiniz formülde gün ve yıl değişiyor fakat ay değişmiyor

 

[Huseyinkis]

verdiğiniz formülde gün ve yıl değişiyor fakat ay değişmiyor

ccc = Format(Month(Tarih), "MMMM")

kısmını aşağıdaki gibi değiştirirmisiniz.

ccc = Format(Tarih, "MMMM")

 

[irfem4]

verdiğiniz veriyi nereden değiştireceğim

 

[Huseyinkis]

verdiğiniz veriyi nereden değiştireceğim

dosyayı ekliyorum açtıktan sonra Alt+F11 tuşuna basarak kodları gorebilirsiniz.

 

[Mahir64]

Merhaba,
Uzun aramalar sonucu Sayın Ömer Bey'in formülünü buldum.
Tarihi A1 hücresine yazın ve deneyiniz.

=EĞER(GÜN(A1)>9;ELEMAN(SOLDAN(GÜN(A1);1);"On";"Yirmi";"Otuz");"")& ELEMAN(SAĞDAN(GÜN(A1);1)+1;"";"Bir";"İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz")&" "&METNEÇEVİR(A1;"aaaa")&" "&ELEMAN(SOLDAN(YIL(A1);1);"";"İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz")&"Bin"&EĞER(PARÇAAL(YIL(A1);2;1)+0=0;"";ELEMAN(PARÇAAL(YIL(A1);2;1);"";"İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz")&"Yüz")&EĞER( METNEÇEVİR(A1;"yy")+0>9;ELEMAN(SOLDAN(METNEÇEVİR(A1;"yy");1);"On";"Yirmi";"Otuz";"Kırk";"Elli";"Altmış";"Yetmiş";"Seksen";"Doksan");"")&ELEMAN(SAĞDAN(METNEÇEVİR(A1;"yy");1)+1;"";"Bir"; "İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz")

 

[irfem4]

teşekkur ederim.