|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
14.10.2004, 13:42
|
|||
|---|---|---|---|
|
|||
количество дней в месяце!!! срочно |
|||
|
#18+
Такой вопрос как программно на vb в excel’e получить количество дней в месяце в указанном году зная дату 01/08/2004 (на выходе 31/08/2004) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
14.10.2004, 13:44
|
|||
|---|---|---|---|
количество дней в месяце!!! срочно |
|||
|
#18+
... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
14.10.2004, 14:05
|
|||
|---|---|---|---|
количество дней в месяце!!! срочно |
|||
|
#18+
А какое отношение Excel имеет к Access? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
14.10.2004, 14:53
|
|||
|---|---|---|---|
количество дней в месяце!!! срочно |
|||
|
#18+
добавить к 1 числу 1(адын) месяц и найти расстояние между датами в днях ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
14.10.2004, 15:07
|
|||
|---|---|---|---|
|
|||
количество дней в месяце!!! срочно |
|||
|
#18+
Для произвольной даты dt: ?datediff("d",dt,dateadd("m",1,dt)) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
14.10.2004, 15:17
|
|||
|---|---|---|---|
|
|||
количество дней в месяце!!! срочно |
|||
|
#18+
Сам поставил задачу, сам даю решение для других Sub dates() For i = 2 To 1212 ActiveSheet.Cells(i, 7) = Day(DateSerial(Year(DateAdd("m", 1, ActiveSheet.Cells(i, 5))), Month(DateAdd("m", 1, ActiveSheet.Cells(i, 5))), 0)) & "." & Month(ActiveSheet.Cells(i, 5)) & "." & Year(ActiveSheet.Cells(i, 5)) 'DateAdd("d", -1, DateAdd("m", 1, ActiveSheet.Cells(i, 5))) Next i End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=61&mobile=1&tid=2186500]: |
0ms |
get settings: |
10ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
34ms |
get topic data: |
14ms |
get forum data: |
3ms |
get page messages: |
52ms |
get tp. blocked users: |
2ms |
| others: | 331ms |
| total: | 466ms |
| 0 / 0 |
