Вопрос : Как я определяю что перемеююым будет номер округленный до одно десятичное место?

Здравствулте!,

I имеет 12 перемеююого, каждое представляя увеличиванные дни каникулы месяца (одной на каждый месяц).  Я объявлял этими перемеююыми без определять их тип (они не будут интежеры).  Я хотел был бы приводя к значение каждого переменным для того чтобы быть номером округленным до одно десятичное место.  Как могу я сделать это?

Please ссылается к прикрепленному code.

Thank you. class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
>Option " class= " id= " codeSnippet959796 
= rstAnnualVacation.Fields («FromDate») и rstAnnualVacation.Fields d («FromDate») > FromDate после этого
                FromDate = rstAnnualVacation.Fields («FromDate»)
            Закончитесь если
        rstAnnualVacation.MovePrevious
        Петля
        'Установите I = число дней очередного отпуска от той даты
        rstAnnualVacation.MoveFirst
        rstAnnualVacation.Find «FromDate=» & CStr (FromDate)
        iий = rstAnnualVacation.Fields (номер «AnnualVacation») 'дней каникулы от, котор дали даты
        
        'Работа процентов
        'Находите самую недавнюю дату чем дата этого года под рассмотрением
        FromDate = #1/1/1900#
        rstPercentWork.MoveFirst
        rstPercentWork.MoveLast
        Не сделать до rstPercentWork.BOF
            Если >= rstPercentWork.Fields («FromDate») и rstPercentWork.Fields d («FromDate») > FromDate после этого
                FromDate = rstPercentWork.Fields («FromDate»)
            Закончитесь если
        rstPercentWork.MovePrevious
        Петля
        'Установите I = число дней очередного отпуска от той даты
        rstPercentWork.MoveFirst
        rstPercentWork.Find «FromDate=» & CStr (FromDate)
        iий = ((I * rstPercentWork.Fields («PercentWork»)) /100)/365 'увеличивало ежедневная каникула
        'Размещайте acccrued ежедневную каникулу для того чтобы исправить перемеююый месяца
        Выберите месяц случая (d)
            Покрывайте 1 'январь
                intAccrual1 = intAccrual1 + I
            Случай 2 'февраль
                intAccrual2 = intAccrual2 + I
            Случай 3 'март
                intAccrual3 = intAccrual3 + I
            Случай 4 'Эйприл
                intAccrual4 = intAccrual4 + I
            Случай 5 'May
                intAccrual5 = intAccrual5 + I
            Случай 6 'Джун
                intAccrual6 = intAccrual6 + I
            Случай 7 'июль
                intAccrual7 = intAccrual7 + I
            Случай 8 'август
                intAccrual8 = intAccrual8 + I
            Случай 9 'сентябрь
                intAccrual9 = intAccrual9 + I
            Случай 10 'октябрь
                intAccrual10 = intAccrual10 + I
            Случай 11 'ноябрь
                intAccrual11 = intAccrual11 + I
            Случай 12 'декабрь
                intAccrual12 = intAccrual12 + I
        Конец отборный
    Затем
Подводная лодка конца
class=

Ответ : Как я определяю что перемеююым будет номер округленный до одно десятичное место?

Несколько дороги достигнуть этого в зависимости от вашего предпочтения будут

1. Using встроенная круглая функция вокруг до одно десятичное место как
x = кругло (12.55, 1) 'x стали бы 12.6
Круглые банкошеты польз функции округляя так вас могут пожелать рассматривать алтернативу как ниже.

2.  Using функция INT.
INT (x 10 + .5) /10
Вы вероятно также находите что бега функции INT более быстро однако оно не показались что вашей вставкой будет время исполнения критически.
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us