Problemer med plus af tilfældige tal.

Vil du ha den skal forkorte det ned så der fx. kun er 2 decimaler?

ved første tal skal der være to decimaler, ved andet tal skal der være tre.

<%
teller = 1
for antal = 1 to 25
    Randomize
        randnum1 = int(rnd * 10000) + 1000
        FTal=formatnumber((randnum1/100),2)
     
        randnum2 = int(rnd * 100000) + 10000
        ATal=formatnumber((randnum2/1000),3)
 
    resultat = fromatnumber(FTal + Atal,3)
%>

hov stavebøf

resultat = formatnumber(FTal + Atal,3)

Den er ikke helt vild med:
resultat = formatnumber(FTal + ATal,3)

Den giver fejlen:
Typer stemmer ikke overens: 'formatnumber'

hvad med


resultat = formatnumber((FTal + ATal),3)

måske skal den lige sættes til double længere oppe:

    <%
teller = 1
for antal = 1 to 25
    Randomize
        randnum1 = int(rnd * 10000) + 1000
        FTal=formatnumber(Cdbl(randnum1/100),2)
   
        randnum2 = int(rnd * 100000) + 10000
        ATal=formatnumber(Cdbl(randnum2/1000),3)

    resultat = formatnumber(Cdbl(FTal + Atal),3)
%>

Det hjalp heller ikke.

Typer stemmer ikke overens: 'Cdbl'

Så vidt jeg kan huske, smider man "randomize" udenfor loopen..

dvs:

randomize
for
...
next

Men det er ikke det der er problemet her..

PS:

    resultat = formatnumber(Cdbl(FTal) + CDbl(Atal),3)

Hvad er det der går galt??

I randomize bliver de afrundet. Når man skriver dem er de ok, men når man så lægger dem sammen går de amok!!  Jeg fatter ikke en meter af det her......

ravnborg> Hvordan ser din kode ud nu?

Når jeg laver en formatnumber virker det, men så er tallet med tællepunktum og 3 decimaler selvom de to sidste er nuller.
Det bliver bøvlet at arbejde videre med de tal.

Men for at lærer mere om asp. Hvad er det der sker?
Når jeg laver mit Randomize så afrunder ASP. Når jeg så vil lave til kommatal, ved at dividerer med feks 100 og derefter lægge dem sammen, så er tallet ikke afrundet mere!!  hvorfor??

ravnborg> Som jeg skrev i 12/11-2006 01:00:44:

Vis os din kode, så vi kan se hvordan du gør.


Hvis det er dig der gør noget forkert, kan vi jo ikke rigtigt forklare fejlen..

Her er koden:

<table width=100%>
<%
teller = 1
Randomize
for antal = 1 to 25
   
        randnum1 = int(rnd * 10000) + 1000
        FTal=randnum1/100
       
        randnum2 = int(rnd * 100000) + 10000
        ATal=randnum2/1000
   
    'resultat = FTal + Atal
    resultat = formatnumber(Cdbl(FTal + Atal),3)

%>

<tr>
    <td width=200><font size="+1"><%= FTal %> + <%= Atal %></font></td>
    <td>
    <font size="+1">&nbsp;=&nbsp;
    <%= resultat %>
    </font>
    </td>
</tr>
<% next %>

</table>

Som jeg skrev i 06/11-2006 00:20:15:

    resultat = formatnumber(Cdbl(FTal) + CDbl(Atal),3)

Det giver samme resultat. Tal med kun en decimal bliver tvunget til 3 decimaler. Samt at der bliver tilføjet tællepunktum.

Hvorfor går det galt med "resultat = FTal + Atal" ??
40,89 + 71,913  =  112,802999389648 
Hvor kommer alle de decimaler fra????

Underligt.. jeg får: 40.89 + 71.913 = 112,803

Kode:

<%
teller = 1
Randomize
for antal = 1 to 25

    randnum1 = int(rnd * 10000) + 1000
    FTal=randnum1/100

    randnum2 = int(rnd * 100000) + 10000
    ATal=randnum2/1000

    'resultat = FTal + Atal
    resultat = formatnumber(Cdbl(FTal) + CDbl(Atal),1)

    response.write FTal & " + " & Atal & "<br>"

next

response.write "<br>40.89 + 71.913 = " & 40.89 + 71.913
%>

Rettelse:

<%
teller = 1
Randomize
for antal = 1 to 25

    randnum1 = int(rnd * 10000) + 1000
    FTal=randnum1/100

    randnum2 = int(rnd * 100000) + 10000
    ATal=randnum2/1000

    'resultat = FTal + Atal
    resultat = formatnumber(Cdbl(FTal) + CDbl(Atal),3)

    response.write FTal & " + " & Atal & "<br>"

next

response.write "<br>40.89 + 71.913 = " & 40.89 + 71.913
%>

Det er lige meget om jeg bruger Cdbl(FTal) + CDbl(Atal) eller Cdbl(FTal + Atal)

Denne her virker fint:

response.write "<br>40.89 + 71.913 = " & formatnumber( 40.89 + 71.913 , 3)

Man kan selv vælge antallet af decimaler..

Er antellet for stort, vises nuller..

Eksempel:

response.write "<br>40.89 + 71.913 = " & formatnumber( 40.89 + 71.913 , 10)


Udskrift: 40.89 + 71.913 = 112,8030000000

Prøv med denne kode:
Jeg stopper for i aften, er på igen i morgen.


<table width=100%>
<%
teller = 1
Randomize
for antal = 1 to 25
   
        randnum1 = int(rnd * 10000) + 1000
        FTal=randnum1/100
       
        randnum2 = int(rnd * 100000) + 10000
        ATal=randnum2/1000
   
    resultat = FTal + Atal
    'resultat = formatnumber(Cdbl(FTal) + CDbl(Atal),3)

%>

<tr>
    <td width=200><font size="+1"><%= FTal %> + <%= Atal %></font></td>
    <td>
    <font size="+1">&nbsp;=&nbsp;
    <%= resultat %>
    </font>
    </td>
</tr>
<% next %>

</table>

Jeg får samme fejl.. Jeg ved ikke helt hvorfor..

Jeg må prøve mig frem med nogle tests.. Forhåbentligt her i weekenden..

Hvis jeg ikke svarer inden mandag, skriv lidt et indlæg så jeg får en mail om det..

decimalerne kommer da det er den samme variabel der hentes fra,
den har ikke slettet decimalerne blot afrundet for læsbarhed.

ellers skal du over i en mellemvariabel

nyftal = formatnumber(ftal,3)

nyftal vil så kun indeholde den afkortede information.

Kommer man videre?

Jeg kommer først til at kikke på det i weekenden.
Så skulle det gerne virke ;-)

Er der nogen mulighed for at FORMATNUMBER automatisk tager det antal decimaler som tallet indeholder.
Så hvis tallet har 3 decimaler bliver det retuneret fra FORMATNUMBER med 3, og hvis det har 2 bliver det retuneret med 2?

Hey.. det er vist noget tid siden, at der sidst var gang i tråden her..

Men her er en ide:

Lav en streng, der indeholder tallet. Tæl antallet af tegn, efter komma. Smid antallet af tegn over i en variabel. Brug variablen i stedet for "3", eller hvad du nu har af værdi for antallet af kommatal.

Eksempel:
function FindAntalletAfKommatal(inputstreng)

dim intTal, intAntalKommatal, strTal
intTal = CDbl(inputstreng)
strTal = CStr(intTal)
strTal = mid(strTal, InStr(strTal, ",") + 1)
intAntalKommatal = len(strTal)
FindAntalletAfKommatal = intAntalKommatal
end function

' Test udskrivning:
response.write "Antallet af kommatal for 123.4567 er: " & FindAntalletAfKommatal(123.4567)

Så kan du bruge det sådan her:
intKommatalFTal = FindAntalletAfKommatal(FTal)

intKommatalATal = FindAntalletAfKommatal(ATal)

intAntalDecimaler = intKommatalFTal
if intKommatalATal > intKommatalFTal then intAntalDecimaler = intKommatalATal

og til sidst:

formatnumber(...., intAntalDecimaler)

thesurfer opret lige et svar.

OK :-)

Jeg kom i tanke om, at den vil returnere længden af hele værdien, hvis værdien ikke indeholder kommatal..

Eksempel: FindAntalletAfKommatal(123) vil returnere 3, da "123" består af 3 tegn
Men den skulle jo returnerer 0, da der ikke er kommatal.


Jeg har derfor rettet funktion, så den ser sådan ud:


function FindAntalletAfKommatal(inputstreng)
dim intTal, intAntalKommatal, strTal
intTal = CDbl(inputstreng)
strTal = CStr(intTal)
intAntalKommatal = 0
msgbox InStr(strTal, ",")
if InStr(strTal, ",") > 0 then
    strTal = mid(strTal, InStr(strTal, ",") + 1)
    intAntalKommatal = len(strTal)
end if
FindAntalletAfKommatal = intAntalKommatal
end function


Denne funktion erstatter den tidligere funktion.