Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с датами / 19 сообщений из 19, страница 1 из 1
23.06.2004, 14:48:19
    #32573923
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
Есть две даты начала работы и конца работы, есть ли встроенная функция подсчитывающая количество месяцев на работу, поделитесь?
...
Рейтинг: 0 / 0
23.06.2004, 14:52:14
    #32573939
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
А нафиг она?
Year(MyDate1)*12+Month(MyDate1)-Year(MyDate2)*12-Month(MyDate2)
...
Рейтинг: 0 / 0
23.06.2004, 14:53:04
    #32573942
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
DateDiff - не то?
...
Рейтинг: 0 / 0
23.06.2004, 14:55:22
    #32573951
ищ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
прога
сначала опеделись, что такое месяц:30 или 31 или 28 или 29 дней
...
Рейтинг: 0 / 0
23.06.2004, 14:57:58
    #32573957
ищ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
если исп. datediff , то возвращает количество переходов из одного месяца в другой
...
Рейтинг: 0 / 0
23.06.2004, 15:03:56
    #32573980
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
to paparome:
Я тебя обожаю. (за телепатию)
...
Рейтинг: 0 / 0
23.06.2004, 15:04:59
    #32573983
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
ищесли исп. datediff , то возвращает количество переходов из одного месяца в другой

Year(MyDate1)*12+Month(MyDate1)-Year(MyDate2)*12-Month(MyDate2)
та же фигня :)
...
Рейтинг: 0 / 0
23.06.2004, 15:20:28
    #32574036
(c)VIG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
авторта же фигня :)
Но зато в три раза длинее :)
...
Рейтинг: 0 / 0
24.06.2004, 11:24:35
    #32575143
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
не работает, выдаёт ошибку, помогите

Private Sub Кнопка2_Click()
Dim rcd As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
Dim h
Set rcd = db.OpenRecordset("balance", dbOpenDynaset, dbSeeChanges)
Do
If rcd.EOF Then GoTo exit1
rcd.Move 3
k = rcd!time_balance
rcd.MoveLast
l = rcd!time_balance
h = DateDiff("m", " & k & ", " & l & ")<<------------------ошибка здесь!!!
MsgBox (" & h & ")
Loop
exit1:
End Sub
...
Рейтинг: 0 / 0
24.06.2004, 11:27:04
    #32575149
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
" & k & " - это что за бред сумасшедшего?
Вы всегда так переменные в функции передаете?
просто k написать не судьба?
...
Рейтинг: 0 / 0
24.06.2004, 11:31:35
    #32575159
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
Всё исправил
Туплю с утра.
код

Private Sub Кнопка2_Click()
Dim rcd As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
Dim h
Dim k As Date
Dim l As Date
Set rcd = db.OpenRecordset("balance", dbOpenDynaset, dbSeeChanges)
Do
If rcd.EOF Then GoTo exit1
rcd.Move 3
k = rcd!time_balance
rcd.MoveLast
l = rcd!time_balance
h = DateDiff("m", k, l)
MsgBox (h)
rcd.MoveNext
Loop
exit1:
End Sub
...
Рейтинг: 0 / 0
24.06.2004, 11:33:05
    #32575163
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
to paparome:
Если не секрет сколько тебе лет и где работаешь или учишься,
просто я смотрю из форума не вылезаешь.
...
Рейтинг: 0 / 0
24.06.2004, 11:35:07
    #32575167
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
Progato paparome:
Если не секрет сколько тебе лет и где работаешь или учишься,
просто я смотрю из форума не вылезаешь.

26.
Работаю.
На работе уже 3 месяца почти нечего делать, так 1-2 часас в день, что-нить подправить.
Вот и развлекаюсь тут :)
...
Рейтинг: 0 / 0
24.06.2004, 11:55:08
    #32575205
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
to paparome:

Не поверишь у меня всё тоже самое, только мне 24,
Прямо родственные души!!!
Во блин, как я проинтуичил.
...
Рейтинг: 0 / 0
24.06.2004, 11:57:37
    #32575211
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
Progato paparome:

Не поверишь у меня всё тоже самое, только мне 24,
Прямо родственные души!!!
Во блин, как я проинтуичил.

Телепат :))
...
Рейтинг: 0 / 0
24.06.2004, 12:00:50
    #32575223
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
Хотя нет, иногда, базы всякие пишу, время убиваю.
А так хочется Real job, but i do what i do, and nobody can't change that.
O my god!!! Soon I'll be insain (читать как сумашедший).
...
Рейтинг: 0 / 0
30.06.2004, 13:09:34
    #32583152
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
Во блин, приходится возращаться к предыдущему,
Datediff не подходит, т.к. необходимо вернуть присутствие задачи как в первом, так и во втором месяце, т.е. число два.
Уже проблематичнее, подскажите как выбраться из этой ситуации.
...
Рейтинг: 0 / 0
30.06.2004, 13:11:01
    #32583156
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
Прибавит 1
?
...
Рейтинг: 0 / 0
30.06.2004, 13:11:51
    #32583157
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с датами
ТОЧНО.
Thank's
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с датами / 19 сообщений из 19, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]