Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 249
от 28.03.2006, 17:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 131, Экспертов: 19
В номере:Вопросов: 1, Ответов: 1


Вопрос № 38282: Уважаемые эксперты, добрый день! В БД Access есть такие данные (из трудовой книжки) Принят Уволен 1 запись 12.02.1990 13.05.1991 2 запись 13.06 1991 20.10.2005 и т.д. Надо вычислить общий стаж работы и записатьтак: «10 ...

Вопрос № 38.282
Уважаемые эксперты, добрый день!
В БД Access есть такие данные (из трудовой книжки)
Принят Уволен
1 запись 12.02.1990 13.05.1991
2 запись 13.06 1991 20.10.2005
и т.д.
Надо вычислить общий стаж работы и записатьтак:
«10 лет 2 месяца 1 день»
Программа создаетсая в на VB6.
Благодарю за внимание.
Отправлен: 23.03.2006, 07:51
Вопрос задал: Робатько Анатолий Васильевич (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: AlexanderZh
Здравствуйте, Робатько Анатолий Васильевич!
могу посоветовать так:
1. считать (преобразовать) в переменные типа DATE
2. отнять одну от другой и присвоить значение переменной типа INTEGER или LONG
3. в результате получим дни - из них уже можно вывести остальное (правда будет заморочка с високосными годами...)

Public Sub delta()
Dim d1 As Date, d2 As Date
Dim d As Integer
d1 = "26.03.2006"
d2 = "01.04.2006"
d = d2 - d1: Debug.Print d
End Sub
Ответ отправил: AlexanderZh (статус: 5-ый класс)
Ответ отправлен: 26.03.2006, 03:50


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.20 (beta) от 17.03.2006
Яндекс Rambler's Top100

В избранное