Discussion :

[maxtin]

Bonjour, jutilise vb4 (je sais, mais jai pas le choix pour mon cas) pour une application et je veux arrondir un "single" (7.526411E-02) a 4 places apres la virgule. Je ne crois pas que vb4 possede de fonction Round() alors a laide svp!




merci a lavance

[ProgElecT]

4 places apres la virgule

En notion scientifique 7.526789E-02 -> 7.5267E-02
ou 0.07526789 -> 0.0752

Je ne me souvenai pas que sous VB4 la fonction Round n'existait pas

voila se que je te propose, pas un arrondi mais une limitation à 4 chiffres apres la virgule

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
22
23
Option Explicit
Dim Mechiffre As Single
Dim ChifStr As String
Dim T As Integer, U As Integer
Dim MeRound As String
Dim NbrDecimal As Integer
Private Sub Form_Load()
'Mechiffre = 75267890123456# '7.526789E-02
Mechiffre = 0.07526789 '7.526789E-02
'Mechiffre = 789.0289563
ChifStr = CStr(Mechiffre)
U = 0: NbrDecimal = 4 + 1
For T = 1 To Len(ChifStr)
 If U <> 0 Then U = U + 1
 If Mid(ChifStr, T, 1) = "," Then U = 1
 MeRound = MeRound & Mid(ChifStr, T, 1)
 If U = NbrDecimal Then Exit For '4 chiffres apres la virgule
Next T
If Left(Right(ChifStr, 4), 1) = "E" Then
 MeRound = MeRound & Right(ChifStr, 4)
End If
Mechiffre = CSng(MeRound)
End Sub

Je pense que d'ici demain, d'autres forumeurs te feront des proposition plus elaborées

[OhMonBato]

nombre = format(nombre,"0.0000") me parait plus simple à moins que je n'ai pas bien compris le truc.

[ProgElecT]

ProgElecT DODO

[zazaraignée]

Je ne crois pas que vb4 possede de fonction Round()

Ha? T'as essayé? Il est vrai que j'ai commencé à jouer avec VB à partir de la version 5 et Round existait à ce moment.

Code :

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

1
2
Dim NbrArrondi As Single
NbrArrondi = Round(leNombre, 4)