Discussion :

[LadyArwen]

Bonjour,

Les gens de PHP m'envoient chez vous.
Voici le problème : http://www.developpez.net/forums/viewtopic.php?t=437514

Je remet le script en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
filepath = "\\serveur\rep\equipe\Gestion\export\factures"
 
set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(filepath&"\facture.txt", True)
 
tf.WriteLine ("ID;N°Facture;NomC;Montant;adr;cp;com")
 
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=Gestion.mdb;"
Set RS = CreateObject("ADODB.Recordset") 
'SQL = "SELECT * FROM ACTION"
SQL = "SELECT *,[clients]![nom] as cli,clients!Adresse & auditeurs!Adresse AS adr, clients![Code postal] & auditeurs![Code postal] AS cp, clients!Commune & auditeurs!Commune AS com FROM ((Facturation LEFT JOIN (Conventions LEFT JOIN CLIENTS ON Conventions.[Code client] = CLIENTS.[Code client])"_ 
&" ON Facturation.N°Ligne = Conventions.N°Convention) LEFT JOIN [AFFECTATION AUDITEUR ACTION] ON Conventions.[Code auditeur] = [AFFECTATION AUDITEUR ACTION].N°ligne) LEFT JOIN AUDITEURS ON"_
&" [AFFECTATION AUDITEUR ACTION].[Code auditeur] = AUDITEURS.[Code auditeur] WHERE Facturation.Montant<>0 AND [clients]![Nom] & [auditeurs]![nom] & [auditeurs]![Prénom]<>'""' and Facturation.Payé=No"
rs.open SQL, conn, 3, 3
do while not rs.eof
 
tf.WriteLine (rs("ID")&";"&rs("N°Facture")&";"&rs("cli")&rs("nom")&" "&rs("Prénom")&";"&Round(rs("Montant"),2)&";"&rs("adr")&";"&rs("cp")&";"&rs("com"))
 
rs.movenext
loop

Et je souhaite savoir si cette fonction dans la dernière ligne est bien censée me mettre 2 décimales : Round(rs("Montant"),2)

Merci de votre aide.

[pc75]

Bonjour,

Pour te répondre, voici un extrait de MSDN :

Microsoft® Visual Basic® Scripting Edition
Round, fonction Référence du langage
Version 2


Voir aussi


--------------------------------------------------------------------------------

Description
Retourne un nombre arrondi à un nombre spécifié de positions décimales.
Syntaxe
Round(expression[, numdecimalplaces])
La syntaxe de la fonction Round comprend les éléments suivants:

élément Description
expression Expression numérique arrondie.
numdecimalplaces Facultatif. Nombre indiquant combien de positions à la droite de la virgule sont incluses dans le nombre arrondi. Si cette valeur est omise, les entiers sont arrondis par la fonction Round.


Notes
L'exemple ci-dessous utilise la fonction Round pour arrondir un nombre à deux décimales :
Dim MyVar, pi
pi = 3.14159
MyVar = Round(pi, 2) 'MyVar contient
3,14.

[LadyArwen]

résolu par le développeur du script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

&Round(rs("Montant"),2)*100&