VPF::вернуть период из числа - Форум программистов

Тиль

Дата 16.7.2008, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 27.2.2006

Репутация: нет
Всего: нет

есть число дней. Как можно сделать например что если число 367 то возвращалось бы 1 год 2 дня...Можно это сделать вообще?

--------------------

Казалось нам пипец, оказалось что не казалось

Naghual

Дата 16.7.2008, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49

А если год высокосный?

--------------------

Я желаю всем Счастья!

FINANSIST

Дата 16.7.2008, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Статус: Жив

Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 13
Всего: 23

Ага, можно всё, только с вопросом
Naghual, разберись smile

Добавлено @ 13:58
если не принципиально то для 2-х дат:

Код


Sub DeltaTime()
Dim Data1, Data2 As Date
Dim delta As Integer
Dim txt As String

Data1 = Application.InputBox("Введите начальную дату")
Data2 = Application.InputBox("Введите конечную дату")
delta = CDate(Data2) - CDate(Data1)
txt = Round(delta / 365, 0) & " years and " & delta - Round(delta / 365, 0) * 365 & " days"
MsgBox txt
End Sub

или для количества дней:

Код


Sub DeltaTime()
Dim delta As Integer
Dim txt As String
delta = Application.InputBox("Введите число дней)
txt = Round(delta / 365, 0) & " years and " & delta - Round(delta / 365, 0) * 365 & " days"
MsgBox txt
End Sub

Это сообщение отредактировал(а) FINANSIST - 16.7.2008, 14:03

--------------------

“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”

mihanik

Дата 23.7.2008, 21:28 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109

Цитата(Тиль @ 16.7.2008, 12:28

)

Можно это сделать вообще?

Можно!
Делай!

Используй целочисленное деление и функцию Mod

--------------------

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »