Function içinde Function çağırabilirmiyiz..

[mozdem]

1-Aşağıdaki para adlı Function da iki Functionu birleştirmek istiyorum. ama hata veriyor. Function içinde Function çağırılabilir mi.
2- Bunu yapma sebebim rakamı yazıya çevirmek ama lira ve kuruş ayrı hücrelerde.
o yüzden bunu düşündüm.

yardımlarınızı bekliyorum, teşekkürler

Function yaz1(sayı)
    T = "ONİKİ"
    yaz1 = T & " TL"
End Function

Function yaz2(sayı)
    K = "YİRMİBEŞ"
    yaz1 = T & " KRŞ"
End Function

Function para(lira As Integer, kurus As Integer)

P = yaz1 & " " & yaz2

para = P

End Function

 

[hamitcan]

Böyle deneyin.

Function yaz1(sayı)
    T = "ONİKİ"
    yaz1 = T & " TL"
End Function

Function yaz2(sayı)
    K = "YİRMİBEŞ"
    yaz2 = K & " KRŞ"
End Function

Function para(lira As Integer, kurus As Integer)

P = yaz1(lira) & " " & yaz2(kurus)

para = P

End Function
Sub nn()
MsgBox para(1000, 50)
End Sub

 

[mozdem]

Böyle deneyin.

Function yaz1(sayı)
    T = "ONİKİ"
    yaz1 = T & " TL"
End Function

Function yaz2(sayı)
    K = "YİRMİBEŞ"
    yaz2 = K & " KRŞ"
End Function

Function para(lira As Integer, kurus As Integer)

P = yaz1(lira) & " " & yaz2(kurus)

para = P

End Function
Sub nn()
MsgBox para(1000, 50)
End Sub

cok tesekkur ederim.