|
количество дней в месяце!!! срочно
|
||
|---|---|---|
Участник
Откуда: Riga, Latvia
Сообщения: 1 483 |
||
| 14.10.2004, 13:44:31 |
|
|
|
|
|
количество дней в месяце!!! срочно
|
|||
|---|---|---|---|
|
#18+
Такой вопрос как программно на vb в excel’e получить количество дней в месяце в указанном году зная дату 01/08/2004 (на выходе 31/08/2004) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.10.2004, 13:42:47 |
|
||
|
количество дней в месяце!!! срочно
|
|||
|---|---|---|---|
|
#18+
... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.10.2004, 13:44:31 |
|
||
|
количество дней в месяце!!! срочно
|
|||
|---|---|---|---|
|
#18+
А какое отношение Excel имеет к Access? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.10.2004, 14:05:57 |
|
||
|
количество дней в месяце!!! срочно
|
|||
|---|---|---|---|
|
#18+
добавить к 1 числу 1(адын) месяц и найти расстояние между датами в днях ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.10.2004, 14:53:58 |
|
||
|
количество дней в месяце!!! срочно
|
|||
|---|---|---|---|
|
#18+
Для произвольной даты dt: ?datediff("d",dt,dateadd("m",1,dt)) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.10.2004, 15:07:13 |
|
||
|
количество дней в месяце!!! срочно
|
|||
|---|---|---|---|
|
#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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.10.2004, 15:17:57 |
|
||
|
|
start [/forum/topic.php?fid=61&msg=32738665&tid=2186500]: |
0ms |
get settings: |
7ms |
get forum list: |
17ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
429ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
56ms |
get tp. blocked users: |
2ms |
| others: | 220ms |
| total: | 752ms |
| 0 / 0 |
