Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / тип данных дата / 12 сообщений из 12, страница 1 из 1
05.08.2008, 07:30
    #35470125
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тип данных дата
народ, все таки как работать с датой
как работать с произвольной датой? , у меня почему то не получилось задать типа
dim t as Date
t = 01.01.01
msgBox t
как это правильно записать - подскажите плиз
как из даты взять месяц?
на сколько я понял - сравнивать даты можно как обычные цыфры
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2008, 09:10
    #35470225
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тип данных дата
Ужос какой. Вы МСДН хоть раз читали ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2008, 09:15
    #35470235
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тип данных дата
мне стыдно на самом деле очень ... мсдн не читал :(
потому что просто банально нет времени ... задача большая а времени на нее дали как обычно мало... поэтому и приходится чтото искать а чтото спрашивать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2008, 09:17
    #35470237
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тип данных дата
Код: plaintext
1.
2.
3.
4.
5.
Public Sub TestDate()
Dim d As Date
d = DateSerial( 2001 ,  1 ,  1 )
MsgBox "Month=" & Month(d)
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2008, 09:45
    #35470312
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тип данных дата
получается чтобы из ячейки с форматом ДАТА взять месяц достаточно:

Код: plaintext
1.
2.
3.
4.
Public Sub TestDate()
Dim d As Date
d = Workbooks("name").Sheets( 1 ).Range("A1")
MsgBox "Month=" & Month(d)
End Sub

я прав?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2008, 09:56
    #35470341
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тип данных дата
Вы путаете понятия тип и формат.
Тип - это как хранится.
Формат - это как отображается.
В вашем случае надо так
d = cdate(Workbooks("name").Sheets(1).Range("A1").value)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2008, 11:18
    #35470586
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тип данных дата
спасибо большое, буду дальше стараться)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2008, 13:13
    #35470933
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тип данных дата
хм ... наверное эт ужасно просто я туплю .... просто вот смотрю по столбцу А - если встречаю в ячейке строку "-й этап" то в столбце D я из ячейки с датой хх.хх.хх пытаюсь взять номер месяца ...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Dim fnd, n1, s As Byte
Dim bol As Boolean
bol = False
Dim text As String
Dim d As Date
For h =  1  To Workbooks(nameIn).Sheets.count
If Workbooks(nameIn).Sheets(h).name <> "Шаблон" Then
n1 = Workbooks(nameIn).Sheets(h).Range("A1000").End(xlUp).Row  'может посчитаете эту строчку идиотизмом но она работает .. 
 For s =  1  To n1
  text = Workbooks(nameIn).Sheets(h).Range("A" & s)
  fnd = InStr( 1 , text, "-й этап")
  If fnd =  2  Then
  bol = True
  End If
 If bol = True Then
If Workbooks("nameIn").Sheets(h).Range("D" & s) <> "" Then
 d = CDate(Workbooks("nameIn").Sheets(h).Range("D" & s).Value)
 MsgBox "Объект- " & Workbooks(nameIn).Sheets(h).Range("B1") & Chr( 13 ) & "в ячейке А" & s & "  этап =  " & Workbooks(nameIn).Sheets(h).Range("A" & s) & "Date=   " & Workbooks(nameIn).Sheets(h).Range("D" & s) & Chr( 13 ) & Month(d)
 bol = False
 End If
  End If
  Next
End If
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2008, 06:43
    #35475103
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тип данных дата
неужели никто не наувидит косяк?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2008, 07:41
    #35475118
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тип данных дата
переменная nameIn была в кавычках
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Dim fnd, n1, s As Byte
Dim bol As Boolean
bol = False
Dim text As String
Dim d As Date

For h =  1  To Workbooks(nameIn).Sheets.Count
    If Workbooks(nameIn).Sheets(h).Name <> "Шаблон" Then
        n1 = Workbooks(nameIn).Sheets(h).Range("A100").End(xlUp).Row    'может посчитаете эту строчку идиотизмом но она работает ..
        For s =  1  To n1
            text = Workbooks(nameIn).Sheets(h).Range("A" & s)
            fnd = InStr( 1 , text, "-й этап")
            If fnd =  2  Then
                bol = True
            End If
            If bol = True Then
                If Workbooks(nameIn).Sheets(h).Range("D" & s) <> "" Then
                    d = CDate(Workbooks(nameIn).Sheets(h).Range("D" & s).Value)
                    MsgBox "Объект- " & Workbooks(nameIn).Sheets(h).Range("B1") & _
                                        Chr( 13 ) & "в ячейке А" & s & "  этап =  " & _
                                        Workbooks(nameIn).Sheets(h).Range("A" & s) & "Date=   " & _
                                        Workbooks(nameIn).Sheets(h).Range("D" & s) & Chr( 13 ) & Str(Month(d))
                    bol = False
                End If
            End If
        Next
    End If
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2008, 07:48
    #35475121
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тип данных дата
не, ну я понимаю, где, а как его исправить? ...
почемуто он не хочет понимать дату и все.... вроде все правильно делаю а никак
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2008, 07:51
    #35475124
Nomad87
Nomad87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
тип данных дата
ой, пасиб ) огромное) все поправил и все заработало )))
просто видимо четверг - это уже почти пятница))))))))))))) %)
безумно стыдно что такую мелочь не заметил
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / тип данных дата / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 420ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161983]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 86ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 225ms
total:  420ms
x
x
Закрыть


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