Madness.nl | Scripts - Numerieke Punt functie

Hoofdmenu

•  Home
•  ASP Tips
•  Artikelen
•  ASP Lessen
•  Scripts
•  Opleidingen
•  Resources
•  Madness Forum
•  Nieuws
•  Adverteren?

Members

Inloggen
Registreer je nu!
Wachtwoord vergeten?

Laatste reacties

26-11 ASP en formulieren
09-06 ASP en databases
14-03 SQL de basis
28-02 Formulier > E-mail
07-08 Nieuwe versie Madne...

Madness.nl Forum

21:41 Te mooi om waar te ..
08:47 application
08:46 Domein Hosting
08:45 USB webserver
08:45 Eigen Scripts
08:44 Database paging
10:21 Even voorstellen?
10:18 Re: It agree, it is..
10:16 ASp.NET MVC
20:42 GPS-applicatie VB v..

Numerieke Punt functie

Terug naar scripts

Auteur: Ramon
Geplaatst op: 7-7-2003
Laatste update: 17-8-2003 18:27:19
Aantal keer bekeken: 15675
Download script (zip file)

Numerieke Punt functie

Omschrijving: Met deze functie kan je grote getallen op een duidelijkere manier weergeven. Je krijgt dan in plaats van 1000000 > 1.000.000.

Script:

Pagina: Functie.asp

<%
Function Punt(str)
 If Not(IsNumeric(str)) Or str = 0 Then
  Result = 0
 ElseIf Len(Fix(str)) < 4 Then
  Result = str
 Else
  Pos = Instr(1,str,".")
  If Pos > 0 Then
   Dec = Mid(str,Pos)
  End if
  Res = StrReverse(Fix(str))
  LoopCount = 1
  While LoopCount <= Len(Res)
  TempResult = TempResult + Mid(Res,LoopCount,3)
  LoopCount = LoopCount + 3
  If LoopCount <= Len(Res) Then
   TempResult = TempResult + "."
  End If
  Wend
  Result = StrReverse(TempResult) + Dec
 End If
 Punt = Result
End Function
%>


<% response.write Punt(dbfield) %>

Reacties