Notifikationer

Markér alle som læst Log ud

henrik20 Nybegynder

30. september 2006 - 21:14 Der er 15 kommentarer og
1 løsning

beregning af forrentning

Hey

Er de nogen der har et forslag til hvordan man koder en funktion der regner forrentning af en kapital ud.
Tænker noget i retning af FormatNumber(kapital*(1+renten)^n og værdien skal så vises. Har ingen ide om hvordan funktionen skal se ud.

Synes godt om

nielle Nybegynder

01. oktober 2006 - 08:19 #1

Noget i denne stil:

Fuction Forentning(kapital, rente, n)
For nx=1 To n
kapital = kapital * (1 + rente)
Next
Forentning = kapital
End Sub

Response.Write FormatNumber(Forentning(10000, 2.5, 30))

Synes godt om

nielle Nybegynder

01. oktober 2006 - 08:42 #2

Ahem, sådan:

Function Forentning(kapital, rente, n)
For nc = 1 To n
kapital = kapital * (1 + rente)
Next
Forentning = kapital
End Function

Response.Write FormatNumber(Forentning(10000, 0.025, 30))

Synes godt om

nielle Nybegynder

01. oktober 2006 - 08:44 #3

... eller sådan:

Function Forentning(kapital, rente, n)
Forentning = kapital * (1 + rente)^n
End Function

Synes godt om

henrik20 Nybegynder

01. oktober 2006 - 10:30 #4

Det ser rigtigt ud.

Er det muligt at få skrevet resultatet til celler i en tabel, eller skal jeg bare kalde funktionen i de enkelte celler med response.write?

Der er flere point i den her naturligvis.

Ellers sender du bare et svar og får for det øverste.

Synes godt om

nielle Nybegynder

01. oktober 2006 - 10:41 #5

Er det noget i denne stil du mener?

<%
startBeloeb = 10000
startAar = 2006
rente = 0.025
%>
<table border='1'>
<tr>
<th>År</th>
<th>Forrentning</th>
</tr>
<tr>
<td><%=startAar%></td>
<td><%=startBeloeb%></td>
</tr>
<%
For deltaAar=1 To 10
aar = startAar + deltaAar
beloeb = Forrentning(startBeloeb, rente, deltaAar)
%>
<tr>
<td><%=aar%></td>
<td><%=beloeb%></td>
</tr>
<%
Next
%>
</table>

Synes godt om

nielle Nybegynder

01. oktober 2006 - 10:43 #6

Og med formatering:

<%
startBeloeb = 10000
startAar = 2006
rente = 0.025
%>
<table border='1'>
<tr>
<th>År</th>
<th>Forrentning</th>
</tr>
<tr>
<td><%=startAar%></td>
<td><%=FormatNumber(startBeloeb, 2)%></td>
</tr>
<%
For deltaAar=1 To 10
aar = startAar + deltaAar
beloeb = Forrentning(startBeloeb, rente, deltaAar)
%>
<tr>
<td><%=aar%></td>
<td><%=FormatNumber(beloeb, 2)%></td>
</tr>
<%
Next
%>
</table>

Synes godt om

henrik20 Nybegynder

01. oktober 2006 - 11:41 #7

Skal der ændres i funktionen før det virker.?

Synes godt om

nielle Nybegynder

01. oktober 2006 - 11:42 #8

Nej :^)

Synes godt om

henrik20 Nybegynder

01. oktober 2006 - 11:42 #9

ville være rart hvis du kunne vise hele koden som det skal stå i html dokumentet.

Synes godt om

nielle Nybegynder

01. oktober 2006 - 11:50 #10

En mulig løsning:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Function Forentning(kapital, rente, n)
Forentning = kapital * (1 + rente)^n
End Function

startBeloeb = 10000
startAar = 2006
rente = 0.025

%>
<html>
<head>
<title>Forentning</title>
</head>
<body>
<table border='1'>
<tr>
<th>År</th>
<th>Forrentning</th>
</tr>
<tr>
<td><%=startAar%></td>
<td><%=FormatNumber(startBeloeb, 2)%></td>
</tr>
<%
For deltaAar=1 To 10
aar = startAar + deltaAar
beloeb = Forrentning(startBeloeb, rente, deltaAar)
%>
<tr>
<td><%=aar%></td>
<td><%=FormatNumber(beloeb, 2)%></td>
</tr>
<%
Next
%>
</table>
</body>
</html>

Synes godt om

henrik20 Nybegynder

01. oktober 2006 - 12:09 #11

Jeg får følgende fejl:

Error Type:
Sun ONE ASP VBScript runtime (0x800A000D)
Type mismatch
/Forrentning.asp, line 29

Line 29: beloeb = Forrentning(startBeloeb, rente, deltaAar)

Synes godt om

henrik20 Nybegynder

01. oktober 2006 - 12:59 #12

Jamen det var jo bare en stavefejl.....smider du et svar...jeg takker og bukker :)

Synes godt om

nielle Nybegynder

01. oktober 2006 - 19:54 #13

Svar :^)

(undskylder besværet)

Synes godt om

nielle Nybegynder

07. oktober 2006 - 11:12 #14

Så mangler du bare at acceptere svaret :^)

Synes godt om

henrik20 Nybegynder

08. oktober 2006 - 15:50 #15

sry....my bad :)

Synes godt om

nielle Nybegynder

08. oktober 2006 - 16:33 #16

Takker for point :^)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS