Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Расчет стажа 
V
    Опции темы
kapbepucm
Дата 20.7.2007, 08:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 12
Цитата(Anton3000 @  19.7.2007,  19:56 Найти цитируемый пост)
как раз так и надо 

Ну, так изменим (о да простит меня Akina) код Test
Код

Public Function Staz(FirstDate As Date, LastDate As Date) As String
  Dim y As Integer
  Dim m As Integer
  Dim d As Integer
  y = DateDiff("yyyy", FirstDate, LastDate)
  m = DateDiff("m", DateAdd("yyyy", y, FirstDate), LastDate)
  d = DateDiff("d", DateAdd("m", m, DateAdd("yyyy", y, FirstDate)), LastDate)
  Staz = CStr(y) & " год(лет) " & CStr(m) & " месяц(ев) и" & CStr(d) & " день(дней)"
End Function

кинь в модуль VBA ну и дальше..., как я уже писал.

Это сообщение отредактировал(а) kapbepucm - 20.7.2007, 10:49


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Anton3000
Дата 20.7.2007, 11:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо большое !
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Access | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.2036 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.