Uzun zaman sonra, daha önce kullanmadığım birşeye ihtiyacım oldu... Uzun bir sayıyı 3 lü haneler şeklinde virgülle ayırmak. PHP sinide yayınlarım boş zamanımda.

Buyrun fonksiyona,

PLAIN TEXT
ASP:
  1. Function Virgulle(Veri)
  2.     Veri = Cstr(StrReverse(Veri))
  3.     For i = 1 To Len(Veri)
  4.         GeciciVeri = Mid(Veri,i,1) & GeciciVeri
  5.         If i Mod 3 = 0 And Not i = Len(Veri) Then GeciciVeri = "," & GeciciVeri
  6.     Next
  7.     Virgulle = GeciciVeri
  8. End Function