Questione : Come specifico che una variabile è un numero arrotondato ad un posto decimale?

Ciao, il

I ha 12 variabili, ciascuna che rappresenta i giorni di vacanza accresciuti di un mese (uno per ogni mese).  Ho dichiarato queste variabili senza specificare il loro tipo (non sono numeri interi).  Vorrei il valore risultante di ciascuno variabile per essere un numero arrotondato ad un posto decimale.  Come posso fare questo? il

Please si riferisce al code.

Thank you. class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
il >Option notpretty " del class= " del id= " codeSnippet959796 del 
= rstAnnualVacation.Fields (“FromDate„) e rstAnnualVacation.Fields (“FromDate„ di d) > FromDate allora
                FromDate = rstAnnualVacation.Fields (“FromDate„)
            Concluder se
        rstAnnualVacation.MovePrevious
        Ciclo
        'Regolar i = il numero dei giorni di vacanza annuale a partire da quella data
        rstAnnualVacation.MoveFirst
        rstAnnualVacation.Find “FromDate=„ & CStr (FromDate)
        i = di rstAnnualVacation.Fields (numero “di AnnualVacation„) 'dei giorni di vacanza a partire dalla data data
        
        'Lavoro delle percentuali
        'Trovare la data più recente che è di meno che la data di questo anno allo studio
        FromDate = #1/1/1900#
        rstPercentWork.MoveFirst
        rstPercentWork.MoveLast
        Fare fino a rstPercentWork.BOF
            Se >= rstPercentWork.Fields (“FromDate„) e rstPercentWork.Fields (“FromDate„ di d) > FromDate allora
                FromDate = rstPercentWork.Fields (“FromDate„)
            Concluder se
        rstPercentWork.MovePrevious
        Ciclo
        'Regolar i = il numero dei giorni di vacanza annuale a partire da quella data
        rstPercentWork.MoveFirst
        rstPercentWork.Find “FromDate=„ & CStr (FromDate)
        i = ((i * rstPercentWork.Fields (“PercentWork„)) /100)/365 'si sono accresciuti vacanza quotidiana
        'Assegnare la vacanza quotidiana acccrued per correggere la variabile di mese
        Selezionare il mese di caso (d)
            Caso 1 'gennaio
                intAccrual1 = intAccrual1 + i
            Caso 2 'febbraio
                intAccrual2 = intAccrual2 + i
            Caso 3 'marzo
                intAccrual3 = intAccrual3 + i
            Caso 4 'aprile
                intAccrual4 = intAccrual4 + i
            Il caso 5 'può
                intAccrual5 = intAccrual5 + i
            Caso 6 'giugno
                intAccrual6 = intAccrual6 + i
            Caso 7 'luglio
                intAccrual7 = intAccrual7 + i
            Caso 8 'agosto
                intAccrual8 = intAccrual8 + i
            Caso 9 'settembre
                intAccrual9 = intAccrual9 + i
            Caso 10 'ottobre
                intAccrual10 = intAccrual10 + i
            Caso 11 'novembre
                intAccrual11 = intAccrual11 + i
            Caso 12 'dicembre
                intAccrual12 = intAccrual12 + i
        Estremità prescelta
    Dopo
Sommergibile dell'estremità
class= del

Risposta : Come specifico che una variabile è un numero arrotondato ad un posto decimale?

Una coppia di sensi realizzare questo secondo la vostra preferenza sono

1. Using la funzione rotonda incorporata è intorno ad un posto decimale come
x = rotondo (12.55, 1) 'x si trasformerebbero in in 12.6
I banchieri rotondi di usi di funzione che lo arrotondano così possono desiderare considerare un'alternativa come sotto.

2.  Using la funzione di INT.
INT (numero x 10 + .5) /10
Probabilmente inoltre troverete che i funzionamenti di funzione di INT più rapidamente tuttavia esso non sembrerebbero che la vostra esecuzione sia tempo di esecuzione critico.
Altre soluzioni  
 
programming4us programming4us