Notifikationer

Markér alle som læst Log ud

kimborg Nybegynder

21. april 2007 - 10:12 Der er 12 kommentarer og
1 løsning

subtotal for 12 måneder, én måned af gangen

Hejsa, hvordan får jeg nemmest nedenstående til at virke med ALLE 12 måneder???

strSQL = "select sum(Indskud) as sum_ind, sum(Debit) as sum_deb, sum(Kredit) as sum_kre from Regnskab Where Maaned = '1'"
Set rs = Conn.Execute(strSQL)

SUM_IN = FormatNumber(Rs("sum_ind"),2)
SUM_DE = FormatNumber(Rs("sum_deb"),2)
SUM_KR = FormatNumber(Rs("sum_kre"),2)
SALDO = FormatNumber(Rs("sum_ind") + Rs("sum_deb") - Rs("sum_kre"),2)

Synes godt om

mitbrugernavn Praktikant

21. april 2007 - 10:19 #1

for b = 1 to 12
strSQL = "select sum(Indskud) as sum_ind, sum(Debit) as sum_deb, sum(Kredit) as sum_kre from Regnskab Where Maaned = "& b
Set rs = Conn.Execute(strSQL)

SUM_IN = FormatNumber(Rs("sum_ind"),2)
SUM_DE = FormatNumber(Rs("sum_deb"),2)
SUM_KR = FormatNumber(Rs("sum_kre"),2)
SALDO = FormatNumber(Rs("sum_ind") + Rs("sum_deb") - Rs("sum_kre"),2)

response.write SUM_IN & "<br>"
response.write SUM_DE & "<br>"
response.write SUM_KR & "<br>"
response.write SALDO & "<br>------------------------<br>"
next

Synes godt om

mitbrugernavn Praktikant

21. april 2007 - 10:23 #2

for b = 1 to 12
strSQL = "select sum(Indskud) as sum_ind, sum(Debit) as sum_deb, sum(Kredit) as sum_kre from Regnskab Where Maaned = "& b
Set rs = Conn.Execute(strSQL)
if not rs.eof then
do
SUM_IN = FormatNumber(Rs("sum_ind"),2)
SUM_DE = FormatNumber(Rs("sum_deb"),2)
SUM_KR = FormatNumber(Rs("sum_kre"),2)
SALDO = FormatNumber(Rs("sum_ind") + Rs("sum_deb") - Rs("sum_kre"),2)

response.write "Måned " & b & "<br>"
response.write SUM_IN & "<br>"
response.write SUM_DE & "<br>"
response.write SUM_KR & "<br>"
response.write SALDO & "<br>------------------------<br>"

rs.movenext
loop while not rs.eof
set rs= nothing
end if

next

'glemte lige et gemmenløb
'du laver en løkke der har fra 1 til 12 - dvs. dine måneder - jeg går ud fra at kolonnen Maaned er sat til kun at indeholde tal

Synes godt om

kimborg Nybegynder

21. april 2007 - 10:43 #3

Hej, tak for svaret, men hvordan får jeg det til at passe med dette:

<br><table align="center" style="font-size:13px;" width="960px">
<tr>
<td style="font-weight:bold;text-align:center;" width="72px"></td>
<td style="font-weight:bold;text-align:center;" width="74px">  jan</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Feb</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Mar</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Apr</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Maj</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Jun</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Jul</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Aug</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Sep</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Okt</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Nov</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Dec</td>
</tr>
<tr>
<td height="5px"></td>
</tr>
<tr>
<td width="72px">Indskud:</td>
<td style="text-align:right;" width="74px"><%=SUM_IN%></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
</tr>
<tr>
<td width="72px">Indtægt:</td>
<td style="text-align:right;" width="74px"><%=SUM_DE%></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
</tr>
<tr>
<td width="72px">Udgift:</td>
<td style="text-align:right;" width="74px">-<%=SUM_KR%></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
</tr>
<tr>
<td height="10px"></td>
</tr>
<tr>
<td width="72px"><b>Total:</b></td>
<td style="text-align:right;" width="74px"><span><%=SALDO%></span></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
<td style="text-align:right;" width="74px"></td>
</tr>
</table>

Synes godt om

mitbrugernavn Praktikant

21. april 2007 - 11:01 #4

' jeg ville gøre således:

<table align="center" style="font-size:13px;" width="960px">
<tr>
<td style="font-weight:bold;text-align:center;" width="72px"></td>
<td style="font-weight:bold;text-align:center;" width="74px">  jan</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Feb</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Mar</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Apr</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Maj</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Jun</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Jul</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Aug</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Sep</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Okt</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Nov</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Dec</td>
</tr>
</table>
<table align="center" style="font-size:13px;" width="960px">
<tr>
<td height="5px"></td>
</tr>
<%
for b = 1 to 12
strSQL = "select sum(Indskud) as sum_ind, sum(Debit) as sum_deb, sum(Kredit) as sum_kre from Regnskab Where Maaned = "& b
Set rs = Conn.Execute(strSQL)
if not rs.eof then
do
SUM_IN = FormatNumber(Rs("sum_ind"),2)
SUM_DE = FormatNumber(Rs("sum_deb"),2)
SUM_KR = FormatNumber(Rs("sum_kre"),2)
SALDO = FormatNumber(Rs("sum_ind") + Rs("sum_deb") - Rs("sum_kre"),2)

if b = 1 then
%>
<tr> <td width="72px">Indskud:</td>
<%
end if

if SUM_IN = "" then SUM_IN = " "
%>
<td style="text-align:right;" width="74px"><%=SUM_IN%></td>
<%
if b = 12 then
%>
</tr>
<%
end if

if SUM_DE = "" then SUM_DE = " "
if b = 1 then
%>
<tr> <td width="72px">Indtægt:</td>
<%
end if
%>
<td style="text-align:right;" width="74px"><%=SUM_DE%></td>
<%
if b = 12 then
%>
</tr>
<%
end if

if SUM_KR = "" then SUM_KR = " "
if b = 1 then
%>
<tr> <td width="72px">Udgift:</td>
<%
end if
%>
<td style="text-align:right;" width="74px"><%=SUM_KR%></td>
<%
if b = 12 then
%>
</tr>
<%
end if

if SALDO = "" then SALDO = " "
if b = 1 then
%>
<tr> <td width="72px">Saldo:</td>
<%
end if
%>
<td style="text-align:right;" width="74px"><%=SALDO%></td>
<%
if b = 12 then
%>
</tr>
<%
end if

rs.movenext
loop while not rs.eof
set rs= nothing
end if

next

%>

</table>

Synes godt om

mitbrugernavn Praktikant

21. april 2007 - 11:20 #5

''''''''''UPS DET VAR IKKE SÅ SMART - PRØV SÅLEDES:

<table align="center" style="font-size:13px;" width="960px">
<tr>
<td style="font-weight:bold;text-align:center;" width="72px"></td>
<td style="font-weight:bold;text-align:center;" width="74px">  jan</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Feb</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Mar</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Apr</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Maj</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Jun</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Jul</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Aug</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Sep</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Okt</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Nov</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Dec</td>
</tr>
<tr>
<td width="17%">
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="40px" align="left" style="font-weight:bold;text-align:left;">indskud</td>
</tr>
<tr>
<td width="40px" align="left" style="font-weight:bold;text-align:left;">indtægt</td>
</tr>
<tr>
<td width="40px" align="left" style="font-weight:bold;text-align:left;">udgift</td>
</tr>
<tr>
<td width="40px" align="left" style="font-weight:bold;text-align:left;">saldo</td>
</tr>
</table></td>
<%
for b = 1 to 12
strSQL = "select sum(Indskud) as sum_ind, sum(Debit) as sum_deb, sum(Kredit) as sum_kre from Regnskab Where Maaned = "& b
Set rs = Conn.Execute(strSQL)
if not rs.eof then
do
SUM_IN = FormatNumber(Rs("sum_ind"),2)
SUM_DE = FormatNumber(Rs("sum_deb"),2)
SUM_KR = FormatNumber(Rs("sum_kre"),2)
SALDO = FormatNumber(Rs("sum_ind") + Rs("sum_deb") - Rs("sum_kre"),2)
if SUM_IN = "" then SUM_IN = " " & b
if SUM_DE = "" then SUM_DE = " "& b
if SUM_KR = "" then SUM_KR = " "& b
if SALDO = "" then SALDO = " "& b

%>
<td style="font-weight:bold;text-align:center;" width="74px">
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td style="font-weight:bold;text-align:center;" width="74px"><%=SUM_IN%></td>
</tr>
<tr>
<td style="font-weight:bold;text-align:center;" width="74px"><%=SUM_DE%></td>
</tr>
<tr>
<td style="font-weight:bold;text-align:center;" width="74px"><%=SUM_KR%></td>
</tr>
<tr>
<td style="font-weight:bold;text-align:center;" width="74px"><%=SALDO%></td>
</tr>
</table>
</td>
<%
rs.movenext
loop while not rs.eof
set rs= nothing
end if

next

%>

</tr>
</table>

Synes godt om

kimborg Nybegynder

21. april 2007 - 11:20 #6

Hej, alle tal kommer på samme linie ud for saldo...

<table align="center" style="font-size:13px;" width="960px">
<tr>
<td style="font-weight:bold;text-align:center;" width="72px"></td>
<td style="font-weight:bold;text-align:center;" width="74px">  jan</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Feb</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Mar</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Apr</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Maj</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Jun</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Jul</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Aug</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Sep</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Okt</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Nov</td>
<td style="font-weight:bold;text-align:center;" width="74px">  Dec</td>
</tr>
</table>
<table align="center" style="font-size:13px;" width="960px">
<tr>
<td height="5px"></td>
</tr>

<%
for b = 1 to 12
strSQL = "select sum(Indskud) as sum_ind, sum(Debit) as sum_deb, sum(Kredit) as sum_kre from Regnskab Where Aar = '2007' AND Maaned = "& b
Set rs = Conn.Execute(strSQL)
if not rs.eof then
do
SUM_IN = Rs("sum_ind")
SUM_DE = Rs("sum_deb")
SUM_KR = Rs("sum_kre")
SALDO = Rs("sum_ind") + Rs("sum_deb") - Rs("sum_kre")

if b = 1 then
%>
<tr> <td width="72px">Indskud:</td>
<%
end if

if SUM_IN = "" then SUM_IN = " "
%>
<td style="text-align:right;" width="74px"><%=SUM_IN%></td>
<%
if b = 12 then
%>
</tr>
<%
end if

if SUM_DE = "" then SUM_DE = " "
if b = 1 then
%>
<tr> <td width="72px">Indtægt:</td>
<%
end if
%>
<td style="text-align:right;" width="74px"><%=SUM_DE%></td>
<%
if b = 12 then
%>
</tr>
<%
end if

if SUM_KR = "" then SUM_KR = " "
if b = 1 then
%>
<tr> <td width="72px">Udgift:</td>
<%
end if
%>
<td style="text-align:right;" width="74px"><%=SUM_KR%></td>
<%
if b = 12 then
%>
</tr>
<%
end if

if SALDO = "" then SALDO = " "
if b = 1 then
%>
<tr> <td width="72px">Saldo:</td>
<%
end if
%>
<td style="text-align:right;" width="74px"><%=SALDO%></td>
<%
if b = 12 then
%>
</tr>
<%
end if

rs.movenext
loop while not rs.eof
set rs= nothing
end if

next

%>
</table>
<%

Conn.Close
Set Conn = Nothing

Synes godt om

mitbrugernavn Praktikant

21. april 2007 - 11:21 #7

du skal selvfølgelige lige fjerne & b i disse sætninger

if SUM_IN = "" then SUM_IN = " " & b
if SUM_DE = "" then SUM_DE = " "& b
if SUM_KR = "" then SUM_KR = " "& b
if SALDO = "" then SALDO = " "& b

det var for at kunne teste

Synes godt om

mitbrugernavn Praktikant

21. april 2007 - 11:31 #8

du skal bruge den sidste jeg har lavet...... ;-)))) - jeg opdage nemlig også at jeg var lidt for hurtig.....

Synes godt om

kimborg Nybegynder

21. april 2007 - 11:41 #9

Så virker det :o)

Men formatnumber kan jeg ikke få det at virke...

Takker

Synes godt om

mitbrugernavn Praktikant

21. april 2007 - 11:47 #10

du skriv dem ind således der hvor den udskriver

<%=formatnumber(SUM_KR,2)%>

Synes godt om

mitbrugernavn Praktikant

21. april 2007 - 11:50 #11

ups glem det -det giver nogle fejl hvis der ikke er noget i tabellen- gør således

if SUM_IN = "" then
SUM_IN = " "
else
SUM_IN = formatnumber(SUM_IN,2)
end if

if SUM_DE = "" then
SUM_DE = " "
else
SUM_DE = formatnumber(SUM_DE,2)
end if

if SUM_KR = "" then
SUM_KR = " "
else
SUM_KR = formatnumber(SUM_KR,2)
end if

if SALDO = "" then
SALDO = " "
else
SALDO = formatnumber(SALDO ,2)
end if

Synes godt om

kimborg Nybegynder

21. april 2007 - 11:52 #12

Tusind tak

Synes godt om

mitbrugernavn Praktikant

21. april 2007 - 12:02 #13

det var så lidt.

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
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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