Asp tam sayıları nokta veya virgülle ayırma

Nis 08, 2020 by in Asp Programlama

Asp de tam sayıları nokta ve virgül ile ayırmak için aşağıdaki fonksiyonu kullanabilirsiniz.

<%  
Function ayrac(Veri)  
Veri = Cstr(StrReverse(Veri))  
For i = 1 To Len(Veri)  
GeciciVeri = Mid(Veri,i,1) & GeciciVeri  
If i Mod 3 = 0 And Not i = Len(Veri) Then GeciciVeri = "." & GeciciVeri  
Next 
ayrac = GeciciVeri  
End Function 
%>

Function ayrac(Veri)

Veri = Cstr(StrReverse(Veri))

For i = 1 To Len(Veri)

GeciciVeri = Mid(Veri,i,1) & GeciciVeri

If i Mod 3 = 0 And Not i = Len(Veri) Then GeciciVeri = "." & GeciciVeri

ayrac = GeciciVeri

End Function

Kullanımı:

<%= ayrac(gelenveri)%>

1	<%= ayrac(gelenveri)%>