Округление числа

[ForVarD]

Я создал программу по подсчёту кол-ву прожитых дней, месяц и лет, но возникла проблема с округлением... Для отображения целого числа я использовал тип данных integer, так вот если ты прожил допустим 18 лет и 7 месяцев он округляет до 19, как можно этого избежать подскажите пожлста.

[Duxoвник]

Вот здесь, кое-что по теме:
http://www.vbstreets.ru/VB/Articles/66479.aspx

[alibek]

DateDiff

[ForVarD]

Спасибо вам за ответы, но DateDiff мне кажется это не совсем то что нужно...

Вот для наглядности сама програмка:

Код: Выделить всё

Option Explicit
Dim dtmdate1 As Date
Dim dtmdate2 As Date
Dim dtmdays As Long
Dim dtmmesc As Long
Dim dtmlets As Long

Private Sub cmdcompute_Click()
dtmdate1 = CDate(txtdate1.Text)
dtmdate2 = CDate(txtsk.Text)
dtmdays = dtmdate1 - dtmdate2
dtmmesc = dtmdays / 12
dtmlets = dtmdays / 365
txtresult.Text = dtmdays
txtmes.Text = dtmmesc
txtlet.Text = dtmlets
End Sub

Проблема лишь в том что мне нужно убрать все знаки после запятой или чтобы он просто не округлял, тоесть если у меня выводиться значение 18,7314 лет отображалось только 18...

[alibek]

Для подсчета интервалов между датами (лет, месяцев, часов) лучше как-раз использовать DateDiff, а не самодельное округление.
В DateDiff учитываются все особенности календарей и часовых поясов.

[ForVarD]

Спасибо всем большое за помощь... Решил данную проблему функцией Fix().