{"id":69,"date":"2023-08-08T00:02:31","date_gmt":"2023-08-07T21:02:31","guid":{"rendered":"http:\/\/www.cuneytbayrak.com\/?p=69"},"modified":"2025-02-21T00:38:29","modified_gmt":"2025-02-20T21:38:29","slug":"excel-parayi-metne-cevirme","status":"publish","type":"post","link":"http:\/\/www.cuneytbayrak.com\/?p=69","title":{"rendered":"VBA Paray\u0131 Metne \u00c7evirme"},"content":{"rendered":"

 <\/p>\n

\n
Function ParaCevir(Para, Optional PBirim = \"Lira\", Optional KBirim = \"Kuru\u015f\")\r\nDim ParaStr As String\r\nDim Lira As String, Kurus As String\r\n\r\nIf Not IsNumeric(Para) Then\r\nParaCevir = \"G\u0130R\u0130LEN DE\u011eER SAYI DE\u011e\u0130L!\"\r\nExit Function\r\nEnd If\r\n\r\nParaStr = Format(Abs(Para), \"0.00\")\r\n\r\nLira = Left(ParaStr, Len(ParaStr) - 3)\r\nKurus = Right(ParaStr, 2)\r\n\r\nParaCevir = IIf(Para < 0, \"Eksi \", \"\") & Cevir(Lira) & \" \" & PBirim & \" \" & _\r\nIIf(Val(Kurus) <> 0, Cevir(Kurus) & \" \" & KBirim & \" \", \"\")\r\nEnd Function\r\nPrivate Function Cevir(SayiStr As String) As String\r\nDim Rakam(15)\r\nDim c(3), Sonuc, e\r\n\r\nBirler = Array(\"\", \"bir\", \"iki\", \"\u00fc\u00e7\", \"d\u00f6rt\", \"be\u015f\", \"alt\u0131\", \"yedi\", \"sekiz\", \"dokuz\")\r\nOnlar = Array(\"\", \"on\", \"yirmi\", \"otuz\", \"k\u0131rk\", \"elli\", \"altm\u0131\u015f\", \"yetmi\u015f\", \"seksen\", \"doksan\")\r\nBinler = Array(\"trilyon\", \"milyar\", \"milyon\", \"bin\", \"\")\r\n\r\nSayiStr = String(15 - Len(SayiStr), \"0\") + SayiStr\r\n\r\nFor i = 1 To 15\r\nRakam(i) = Val(Mid$(SayiStr, i, 1))\r\nNext i\r\n\r\nSonuc = \"\"\r\nFor i = 0 To 4\r\nc(1) = Rakam(i * 3 + 1)\r\nc(2) = Rakam(i * 3 + 2)\r\nc(3) = Rakam(i * 3 + 3)\r\nIf c(1) = 0 Then\r\ne = \"\"\r\nElseIf c(1) = 1 Then\r\ne = \"y\u00fcz\"\r\nElse\r\ne = Birler(c(1)) + \"y\u00fcz\"\r\nEnd If\r\ne = e + Onlar(c(2)) + Birler(c(3))\r\nIf e <> \"\" Then e = e + Binler(i)\r\nIf (i = 3) And (e = \"birbin\") Then e = \"bin\"\r\nSonuc = Sonuc + e\r\nNext i\r\nIf Sonuc = \"\" Then Sonuc = \"S\u0131f\u0131r\"\r\n\r\nCevir = UCase(Mid(Sonuc, 1, 1)) + Mid(Sonuc, 2, Len(Sonuc) - 1)\r\nEnd Function<\/pre>\n<\/div>\n
Kolay gele…<\/p>\n","protected":false},"excerpt":{"rendered":"
  Function ParaCevir(Para, Optional PBirim = “Lira”, Optional KBirim = “Kuru\u015f”) Dim ParaStr As String Dim Lira As String, Kurus As String If Not IsNumeric(Para) Then ParaCevir = “G\u0130R\u0130LEN DE\u011eER…<\/p>\n
Devam\u0131n\u0131 OkuVBA Paray\u0131 Metne \u00c7evirme<\/span><\/a><\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"iawp_total_views":0,"footnotes":""},"categories":[5],"tags":[20],"class_list":["post-69","post","type-post","status-publish","format-standard","hentry","category-excel-vba","tag-moneytotext","excerpt"],"_links":{"self":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/69","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=69"}],"version-history":[{"count":2,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/69\/revisions"}],"predecessor-version":[{"id":72,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/69\/revisions\/72"}],"wp:attachment":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=69"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=69"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=69"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}