ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с датой. VBA Excel
9 сообщений из 9, страница 1 из 1
Работа с датой. VBA Excel
    #36259251
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Моя задача такая. Мне надо создать график на любой год.
он должен начинаться с 1 числа и дня недели.
Январь - 2010 - 1 - пятница ..... 31 - воскресение
Февраль - 2010 - 1 - Понедельник ..... 28 - воскресение

Во вложенном фото, виден результат того что должно получится.
...
Рейтинг: 0 / 0
19.10.2009, 13:06
| Ответить | Цитировать | Написать  
Работа с датой. VBA Excel
    #36259413
astatsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
astatsa
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
    Dim i As Long, d As Date
    d = CDate("01.01.2010")
    For i =  1  To  31 
        Sheets( 1 ).Cells( 1 , i) = WeekdayName(Weekday(d + i -  1 , vbMonday), True)
        Sheets( 1 ).Cells( 2 , i) = i
    Next i
...
Рейтинг: 0 / 0
19.10.2009, 13:39
| Ответить | Цитировать | Написать  
Работа с датой. VBA Excel
    #36259532
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
lopuxi, как вариант
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Dim i As Integer, dayName As String
Dim MyYear as Integer, MyMonth  as Integer ' эти переменные надо инициализировать
MyYear =  2010 : MyMonth =  1  ' например, вот так
For i =  1  to  31 
   If IsDate(CStr(MyMonth) & "/" & CStr(i) & "/" & CStr(MyYear)) Then ' проверка на существование даты
      Select Case Weekday(DateSerial(MyYear, MyMonth, i), vbMonday) 
         Case  1 : dayName = "пн"
         Case  2 : dayName = "вт"
         Case  3 : dayName = "ср"
         Case  4 : dayName = "чт"
         Case  5 : dayName = "пт"
         Case  6 : dayName = "сб"
         Case  7 : dayName = "вс"
      End Select
      Sheets( 1 ).Cells( 1 , i).Value = i
      Sheets( 1 ).Cells( 2 , i).Value = dayName
   Else
      Exit For
   End If
Next
...
Рейтинг: 0 / 0
19.10.2009, 14:10
| Ответить | Цитировать | Написать  
Работа с датой. VBA Excel
    #36259617
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Неплохо))
Но всегда 31 день.
Как бы сделать его гибким? Что бы он учитывал високосные год в феврале.
и чередовал остальные месяца 30 - 31 день.
...
Рейтинг: 0 / 0
19.10.2009, 14:32
| Ответить | Цитировать | Написать  
Работа с датой. VBA Excel
    #36259629
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
.Михаил.lopuxi, как вариант
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Dim i As Integer, dayName As String
Dim MyYear as Integer, MyMonth  as Integer ' эти переменные надо инициализировать
MyYear =  2010 : MyMonth =  1  ' например, вот так
For i =  1  to  31 
   If IsDate(CStr(MyMonth) & "/" & CStr(i) & "/" & CStr(MyYear)) Then ' проверка на существование даты
      Select Case Weekday(DateSerial(MyYear, MyMonth, i), vbMonday) 
         Case  1 : dayName = "пн"
         Case  2 : dayName = "вт"
         Case  3 : dayName = "ср"
         Case  4 : dayName = "чт"
         Case  5 : dayName = "пт"
         Case  6 : dayName = "сб"
         Case  7 : dayName = "вс"
      End Select
      Sheets( 1 ).Cells( 1 , i).Value = i
      Sheets( 1 ).Cells( 2 , i).Value = dayName
   Else
      Exit For
   End If
Next


воо вот это интересно.
...
Рейтинг: 0 / 0
19.10.2009, 14:36
| Ответить | Цитировать | Написать  
Работа с датой. VBA Excel
    #36259814
Фотография qwrqwr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwrqwr
Участник
lopuxi,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub test()
Const MyYear =  2010 : Const MyMonth =  4  ' заменить на переменные

Dim days As Integer: days = Day(DateSerial(MyYear, MyMonth +  1 ,  0 ))
    With ActiveSheet
        .Rows("1:2").ClearContents
        .Range("A2") =  1 
        .Range("A2").Resize(, days).DataSeries
        With .Range("A1").Resize(, days)
            .FormulaR1C1 = "=TEXT(DATE(" & MyYear & ", " & MyMonth & ", R[1]C),""ддд"")"  ' м.б. придется "ддд" заменить на "ddd" - для англ. версии Win
            .Value = .Value
        End With
    End With
End Sub
график будет в строках 1:2
...
Рейтинг: 0 / 0
19.10.2009, 15:31
| Ответить | Цитировать | Написать  
Работа с датой. VBA Excel
    #36259955
astatsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
astatsa
Гость
lopuxiНеплохо))
Но всегда 31 день.
Как бы сделать его гибким? Что бы он учитывал високосные год в феврале.
и чередовал остальные месяца 30 - 31 день.

По поводу проверки даты на существование, я думал автор сам догадается или ему нужно все разжевать и выдать готовый код вплоть до мелочей?..
...
Рейтинг: 0 / 0
19.10.2009, 16:11
| Ответить | Цитировать | Написать  
Работа с датой. VBA Excel
    #36260228
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Microsoft Outlook уже не катит?
...
Рейтинг: 0 / 0
19.10.2009, 17:16
| Ответить | Цитировать | Написать  
Работа с датой. VBA Excel
    #36261706
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
astatsalopuxiНеплохо))
Но всегда 31 день.
Как бы сделать его гибким? Что бы он учитывал високосные год в феврале.
и чередовал остальные месяца 30 - 31 день.

По поводу проверки даты на существование, я думал автор сам догадается или ему нужно все разжевать и выдать готовый код вплоть до мелочей?..

Твоя идея тоже хорошая и до думать ее можно было!. Но у меня именно с этим и стояла проблема. Я не мог ни как создать такой график который сам определял високосный год в феврале и правильно определял 31 день в этом месяце или 30.
Поэтому и обратился на этот форум.

.Михаил. - молодец. Проблему решил. Вопрос в общем то можно закрыть :)
Всем большое спасибо! :))
...
Рейтинг: 0 / 0
20.10.2009, 12:40
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с датой. VBA Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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