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