Notifikationer

Markér alle som læst Log ud

steen_hansen Forsker

30. juni 2004 - 07:28 Der er 9 kommentarer og
1 løsning

Tjek om et tal er lige eller ulige

Hvordan tjekker jeg for lige/ulige tal?

<% If bredde = ulige Then %>

tal = x

<% Else %>

tal = y

<% End If %>

Synes godt om

steen_hansen Forsker

30. juni 2004 - 07:35 #1

<%
If bredde = ulige Then

tal = x

Else

tal = y

End If
%>

Synes godt om

steen_hansen Forsker

30. juni 2004 - 07:57 #2

Formålet er, at hvis tabellens bredde er et ulige antal pixels, f.eks. 755 pixels, og jeg ønsker 2 lige bredde kolonner, så vil kolonnebredden være 377,5 pixels, og det er noget rod. Så skal den ene kunne laves om til 378 pixels, og den anden til 377, så jeg får hele tal.

Synes godt om

snowball Novice

30. juni 2004 - 08:02 #3

<%
If (bredde MOD 2 = 0) Then 'Lige tal
tal = x
Else 'Ulige tal
tal = y
End If
%>

Synes godt om

steen_hansen Forsker

30. juni 2004 - 08:07 #4

Det er fornemt, snowball. Men hvordan får jeg sat bredden på den ene til 378, og bredden på den anden til 377 pixels?

Synes godt om

steen_hansen Forsker

30. juni 2004 - 08:15 #5

Og hvis nu en celle har bredden 331 pixels, så skal den ene være 166 pixels, og den anden 165 pixels.

Synes godt om

steen_hansen Forsker

30. juni 2004 - 08:23 #6

Jeg har leget lidt, men kan ikke få det til at spille. Hvis tabellens/cellens bredde er et lige antal pixels, så er der ingen problemer. Men hvis det er et ulige antal pixels, så er der 2 variabler at arbejde med:

Dim TDDividedBy2

TDDividedBy2 = TableWidth / 2
If (TDDividedBy2 MOD 2 = 0) Then
TDDivided = TDDividedBy2
Else
TDDivided = TDDividedBy2 + .5
......?
End If

Synes godt om

steen_hansen Forsker

30. juni 2004 - 08:45 #7

Så så jeg lyset! Tak for hjælpen :o)

<%
TDDividedBy2 = TDMiddle / 2

If (TDMiddle MOD 2 = 0) Then
TDDividedBy2 = TDMiddle / 2
Else
TDDivided1 = (TDMiddle / 2) + .5
TDDivided2 = (TDMiddle / 2) - .5
End If
%>

<html>

<head>
<title></title>
</head>

<body>

<table>
<tr>
<td style="width: <% If (TDMiddle MOD 2 = 0) Then%><%=TDDividedBy2%>px;<% Else %><%=TDDivided1%>px;<% End If %>"> </td>
<td style="width: <% If (TDMiddle MOD 2 = 0) Then%><%=TDDividedBy2%>px;<% Else %><%=TDDivided2%>px;<% End If %>"></td>
</tr>
</table>

</body>

</html>

Synes godt om

snowball Novice

30. juni 2004 - 08:52 #8

OK. Havde selv lige lavet noget næsten magen til ;)

<%
Function Trunc(pNo)
Trunc = Left(pNo, instr(1, pNo, ".")-1)
End Function

Dim MyTableWidt, TWidth1, TWidht2

MyTableWidth = 131

If (MyTableWidth MOD 2 = 0) Then
TWidth1 = MyTableWidth / 2
TWidth2 = MyTableWidth / 2
Else
TWidth1 = Round(MyTableWidth / 2,0)
TWidth2 = Trunc(MyTableWidth / 2)
End If

Response.Write "Width1 = " & TWidth1 & "<br>"
Response.Write "Width2 = " & TWidth2 & "<br>"
Response.Write "Total = " & (TWidth1 + TWidth2)
%>

Synes godt om

steen_hansen Forsker

30. juni 2004 - 08:53 #9

Ok, næsten ærgeligt, at du brugte tiden :o)

1000 tak. Bedste ven! :o)

Synes godt om

steen_hansen Forsker

30. juni 2004 - 08:55 #10

Ok, der var lige et par uhensigtmæssigheder:

<%
Dim TDDividedBy2

TDDividedBy2 = TDMiddle / 2

If (TDMiddle MOD 2 = 0) Then
TDDividedBy2
Else
TDDivided1 = (TDDividedBy2) + .5
TDDivided2 = (TDDividedBy2) - .5
End If
%>

<html>

<head>
<title></title>
</head>

<body>

<table>
<tr>
<td style="width: <% If (TDMiddle MOD 2 = 0) Then%><%=TDDividedBy2%>px;<% Else %><%=TDDivided1%>px;<% End If %>"> </td>
<td style="width: <% If (TDMiddle MOD 2 = 0) Then%><%=TDDividedBy2%>px;<% Else %><%=TDDivided2%>px;<% End If %>"></td>
</tr>
</table>

</body>

</html>

Så nu kører det bare! :o)

Endnu en gang tak :O9

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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