Programalama > VISUAL BASIC


Ort. 0
Puan ver:
<%
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%>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.