Question : Comment est-ce que je spécifie qu'une variable est un nombre arrondi à une décimale décimale ?

Bonjour, le

I ont 12 variables, chacune qui représente les jours de vacances accrus d'un mois (un pour chaque mois).  J'ai déclaré ces variables sans spécifier leur type (elles ne sont pas des nombres entiers).  Je voudrais que la valeur en résultant de chacun variable soit un nombre arrondi à une décimale décimale.  Comment est-ce que je peux faire ceci ? le

Please se rapportent au code.

Thank you. class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :
101 :
102 :
103 :
104 :
105 :
106 :
107 :
108 :
109 :
110 :
111 :
112 :
113 :
114 :
115 :
116 :
117 :
118 :
119 :
120 :
121 :
122 :
123 :
le >Option " de l'id= " codeSnippet959796 de 
= de d rstAnnualVacation.Fields (« FromDate ») et rstAnnualVacation.Fields (« FromDate ») > FromDate alors
                FromDate = rstAnnualVacation.Fields (« FromDate »)
            Finir si
        rstAnnualVacation.MovePrevious
        Boucle
        'Placer I = le nombre de jours de vacances annuelles en date de cette date
        rstAnnualVacation.MoveFirst
        rstAnnualVacation.Find « FromDate= » et CStr (FromDate)
        i = de rstAnnualVacation.Fields (nombre de « AnnualVacation ») 'de jours de vacances en date de date donnée
        
        'Travail de pour cent
        'Trouver la date la plus récente qui est moins que la date de cette année à l'étude
        FromDate = #1/1/1900#
        rstPercentWork.MoveFirst
        rstPercentWork.MoveLast
        Faire jusqu'à rstPercentWork.BOF
            Si >= de d rstPercentWork.Fields (« FromDate ») et rstPercentWork.Fields (« FromDate ») > FromDate alors
                FromDate = rstPercentWork.Fields (« FromDate »)
            Finir si
        rstPercentWork.MovePrevious
        Boucle
        'Placer I = le nombre de jours de vacances annuelles en date de cette date
        rstPercentWork.MoveFirst
        rstPercentWork.Find « FromDate= » et CStr (FromDate)
        i = ((I * rstPercentWork.Fields (« PercentWork »)) /100)/365 'se sont accrus des vacances quotidiennes
        'Assigner les vacances quotidiennes acccrued pour corriger la variable de mois
        Choisir le mois de cas (d)
            Affaire 1 'janvier
                intAccrual1 = intAccrual1 + I
            Affaire 2 'février
                intAccrual2 = intAccrual2 + I
            Affaire 3 'mars
                intAccrual3 = intAccrual3 + I
            Affaire 4 'avril
                intAccrual4 = intAccrual4 + I
            L'affaire 5 'peut
                intAccrual5 = intAccrual5 + I
            Affaire 6 'juin
                intAccrual6 = intAccrual6 + I
            Affaire 7 'juillet
                intAccrual7 = intAccrual7 + I
            Affaire 8 'août
                intAccrual8 = intAccrual8 + I
            Affaire 9 'septembre
                intAccrual9 = intAccrual9 + I
            Affaire 10 'octobre
                intAccrual10 = intAccrual10 + I
            Affaire 11 'novembre
                intAccrual11 = intAccrual11 + I
            Affaire 12 'décembre
                intAccrual12 = intAccrual12 + I
        Extrémité choisie
    Après
Sous-marin d'extrémité
class= de

Réponse : Comment est-ce que je spécifie qu'une variable est un nombre arrondi à une décimale décimale ?

Deux ou trois manières de réaliser ceci selon votre préférence sont

1. Using la fonction ronde intégrée est autour à une décimale décimale comme
X = rond (12.55, 1) 'x deviendraient 12.6
Les banquiers ronds d'utilisations de fonction vous arrondissant ainsi peuvent souhaiter considérer une alternative comme ci-dessous.

2.  Using la fonction d'international.
International (numéro X 10 + .5) /10
Vous constaterez probablement également que les courses de fonction d'international plus vite cependant il ne s'avéreraient pas que votre exécution est temps d'exécution critique.
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us