Afrunding af tal efter Kr.
Jeg er ved at lave et fakturesystem og skal kunde afrunde til nærmste 25 øre.og nu hvor du er igang hvordan får jeg den til at skrive 0,50 og ikke bare 0,5..
Min kode ser sådan ud..
<table border="0" width="42%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"> </td>
</tr>
</table>
<table border="0" width="482" height="52">
<tr>
<td width="129" height="23">Dato</td>
<td width="256" height="23">Beskrivlse</td>
<td width="154" height="23">Beløb</td>
</tr>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\web\penge\db1.mdb"
Set RS = Conn.Execute("SELECT * FROM faktur WHERE (ref = '1')")
Set total = conn.execute("SELECT SUM(Saldo) * 1.25 AS Sa FROM faktur WHERE (ref = '1')")
Do Until rs.EOF
%>
<tr>
<td width="129" height="21"><%=rs("Dato")%></td>
<td width="256" height="21"><%=rs("Titel")%></td>
<td width="100" height="21" align="right"><%=rs("Saldo")%> KR.</td>
</tr>
<%
RS.MoveNext
Loop
%>
<tr>
<td width="129" height="21"></td>
<td width="256" height="21">Total</td>
<td width="100" height="21" align="right"><b><%=total("Sa")%> KR.</b></td>
</tr>
</table>
