Блог

Главная - Вопросы по программированию - Обрезать Double в Access

Обрезать Double в Access

#ms-access #vba

#ms-access #vba

Вопрос:

Я использую DateDiff() функцию для вычисления возраста.

 Dim a As Double
a = DateDiff("d", Me.Age, Me.ApptDate) / 365

Я хочу получить усеченное значение, а не округленное значение.

Я просто хочу целое число — без десятичных знаков.

Как я могу это сделать?

Ответ №1:

Я верю, что вам нужна функция INT():

 Dim a As Double
a = Int(DateDiff("d", Me.Age, Me.ApptDate) / 365)

Или вы пытались выполнить следующее:

 Dim a As Integer
a = DateDiff("d", Me.Age, Me.ApptDate) / 365

Комментарии:

1. Я считаю, что это округляет число. Не усекается, как я надеялся.

2. Нет, я так не думаю. CInt() Округлило бы число, но Int() не должно округлять число. Вы работаете с отрицательными числами?

3. Нет, это не так. Вот что я получаю.

4. Я использую datediff с 03.06.1947 и 02.10.2012. Это дает мне 64,99 …. но когда я использую int() Я получаю 65, а не 64

5. Мои извинения! Это работает! Большое вам спасибо!!