Cuestión : ¿Cómo especifico que una variable es un número redondeado a un lugar decimal?

Hola, el

I tiene 12 variables, cada uno que representa los días de vacaciones acrecentados de un mes (uno para cada mes).  He declarado estas variables sin especificar su tipo (no son números enteros).  Quisiera que el valor resultante de cada uno variable fuera un número redondeado a un lugar decimal.  ¿Cómo puedo hacer esto? el

Please refiere al code.

Thank you. class= > " claro " 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:
el >Option notpretty " del class= " del id= " codeSnippet959796 del 
= rstAnnualVacation.Fields (“FromDate”) y rstAnnualVacation.Fields (“FromDate” de d) > FromDate entonces
                FromDate = rstAnnualVacation.Fields (“FromDate”)
            Terminar si
        rstAnnualVacation.MovePrevious
        Lazo
        'Fijar i = el número de días de vacaciones anuales en fecha esa fecha
        rstAnnualVacation.MoveFirst
        rstAnnualVacation.Find “FromDate=” y CStr (FromDate)
        i = de rstAnnualVacation.Fields (número de “AnnualVacation”) 'de días de vacaciones en fecha fecha dada
        
        'Trabajo del por ciento
        'Encontrar la fecha más reciente que es menos que la fecha de este año considerada
        FromDate = #1/1/1900#
        rstPercentWork.MoveFirst
        rstPercentWork.MoveLast
        Hacer hasta rstPercentWork.BOF
            Si >= rstPercentWork.Fields (“FromDate”) y rstPercentWork.Fields (“FromDate” de d) > FromDate entonces
                FromDate = rstPercentWork.Fields (“FromDate”)
            Terminar si
        rstPercentWork.MovePrevious
        Lazo
        'Fijar i = el número de días de vacaciones anuales en fecha esa fecha
        rstPercentWork.MoveFirst
        rstPercentWork.Find “FromDate=” y CStr (FromDate)
        i = ((i * rstPercentWork.Fields (“PercentWork”)) /100)/365 'acrecentaron las vacaciones diarias
        'Asignar las vacaciones diarias acccrued para corregir variable del mes
        Seleccionar el mes del caso (d)
            Encajonar 1 'enero
                intAccrual1 = intAccrual1 + i
            Caso 2 'febrero
                intAccrual2 = intAccrual2 + i
            Caso 3 'marcha
                intAccrual3 = intAccrual3 + i
            Caso 4 'abril
                intAccrual4 = intAccrual4 + i
            El caso 5 'puede
                intAccrual5 = intAccrual5 + i
            Caso 6 'junio
                intAccrual6 = intAccrual6 + i
            Caso 7 'julio
                intAccrual7 = intAccrual7 + i
            Caso 8 'agosto
                intAccrual8 = intAccrual8 + i
            Caso 9 'septiembre
                intAccrual9 = intAccrual9 + i
            Caso 10 'octubre
                intAccrual10 = intAccrual10 + i
            Caso 11 'noviembre
                intAccrual11 = intAccrual11 + i
            Caso 12 'diciembre
                intAccrual12 = intAccrual12 + i
        Extremo selecto
    Después
Submarino del extremo
class= del

Respuesta : ¿Cómo especifico que una variable es un número redondeado a un lugar decimal?

Unas par de maneras de alcanzar esto dependiendo de su preferencia son

1. Usar la función redonda incorporada está alrededor a un lugar decimal como
x = redondo (12.55, 1) 'x se convirtieron en 12.6
Los banqueros redondos de las aplicaciones de la función que le redondean tan pueden desear considerar una alternativa como abajo.

2.  Usar la función de la internacional.
Internacional (número x 10 + .5) /10
Usted probablemente también encontrará que los funcionamientos de la función de la internacional más aprisa sin embargo él no aparecerían que su puesta en práctica es tiempo de ejecución crítico.
Otras soluciones  
 
programming4us programming4us