Hamit Bey'in önerdiği gibi Let ile sadeleştirildim formülü. Yazar adı farklı yerlede kullanılıyor mesela. Bunu Let fonksiyonu ile hesaplama içinde bir değişken tanımlayıp ihtiyaç olan kısımlarda kullandım.
Formülü birleşik yazmak yerine enter ve boşluk karaketerleriyle ayırınca düzenlemesi daha rahat oluyor. Uzun süre sonra baksanız bile kısa sürede anlayabiliyorsunuz.
Let (
Yazar = RightWords ( KTP_Yazarı; 1) &
If ( WordCount ( KTP_Yazarı ) = 2; ", " & Left ( KTP_Yazarı; 1) & ". ") &
If ( WordCount ( KTP_Yazarı) = 1; ". ") ;
Case (
KTP_KünyesiSçnk = "APA";
Yazar & "(" & KTP_BasımYılı & "). " & TextStyleAdd ( KTP_Adı; Italic) & ". " & KTP_BasımYeri & ": " & KTP_Yayınevi ;
KTP_KünyesiSçnk = "CHICAGO";
Yazar & KTP_Adı & ". " & KTP_BasımYeri & ": " & KTP_Yayınevi & ", " & KTP_BasımYılı & ". " & KTP_SayfaSayısı & "sf."
) //Case bitis
) //Let bitis