Programalama > VISUAL BASIC

<%
Function Virgulle(Rakam)
Dim Dizi(10)

Dizi(0) = Left(Rakam,((Len(Rakam)) Mod 3))

Rakam = Right(Rakam,Len(Rakam) - ((Len(Rakam)) Mod 3))

For I = 1 to (Len(Rakam) / 3)
Dizi(I) = Left(Rakam,3)
Rakam = Right(Rakam, Len(Rakam) - 3)
Next

For I = 0 to 10
If Not Dizi(I) = "" Then
If Not I = 0 Then
Rakam = Rakam & "." & Dizi(I)
Else
Rakam = Dizi(I)
End If
Else
Exit For
End If
Next

Virgulle = Rakam
End Function

%>

<% sonuc = Virgulle("10365000000") %>

<%=sonuc%>