ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / тип данных дата
12 сообщений из 12, страница 1 из 1
тип данных дата
    #35470125
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
народ, все таки как работать с датой
как работать с произвольной датой? , у меня почему то не получилось задать типа
dim t as Date
t = 01.01.01
msgBox t
как это правильно записать - подскажите плиз
как из даты взять месяц?
на сколько я понял - сравнивать даты можно как обычные цыфры
...
Рейтинг: 0 / 0
05.08.2008, 07:30
| Ответить | Цитировать | Написать  
тип данных дата
    #35470225
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Ужос какой. Вы МСДН хоть раз читали ?
...
Рейтинг: 0 / 0
05.08.2008, 09:10
| Ответить | Цитировать | Написать  
тип данных дата
    #35470235
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
мне стыдно на самом деле очень ... мсдн не читал :(
потому что просто банально нет времени ... задача большая а времени на нее дали как обычно мало... поэтому и приходится чтото искать а чтото спрашивать
...
Рейтинг: 0 / 0
05.08.2008, 09:15
| Ответить | Цитировать | Написать  
тип данных дата
    #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:17
| Ответить | Цитировать | Написать  
тип данных дата
    #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:45
| Ответить | Цитировать | Написать  
тип данных дата
    #35470341
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Вы путаете понятия тип и формат.
Тип - это как хранится.
Формат - это как отображается.
В вашем случае надо так
d = cdate(Workbooks("name").Sheets(1).Range("A1").value)
...
Рейтинг: 0 / 0
05.08.2008, 09:56
| Ответить | Цитировать | Написать  
тип данных дата
    #35470586
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
спасибо большое, буду дальше стараться)
...
Рейтинг: 0 / 0
05.08.2008, 11:18
| Ответить | Цитировать | Написать  
тип данных дата
    #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
05.08.2008, 13:13
| Ответить | Цитировать | Написать  
тип данных дата
    #35475103
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
неужели никто не наувидит косяк?
...
Рейтинг: 0 / 0
07.08.2008, 06:43
| Ответить | Цитировать | Написать  
тип данных дата
    #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:41
| Ответить | Цитировать | Написать  
тип данных дата
    #35475121
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
не, ну я понимаю, где, а как его исправить? ...
почемуто он не хочет понимать дату и все.... вроде все правильно делаю а никак
...
Рейтинг: 0 / 0
07.08.2008, 07:48
| Ответить | Цитировать | Написать  
тип данных дата
    #35475124
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
ой, пасиб ) огромное) все поправил и все заработало )))
просто видимо четверг - это уже почти пятница))))))))))))) %)
безумно стыдно что такую мелочь не заметил
...
Рейтинг: 0 / 0
07.08.2008, 07:51
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / тип данных дата
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35470341&tid=2161983]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 92ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 70ms
get tp. blocked users:
 2ms
others: 255ms
total:  472ms
созд. / загр.: 472ms
x
x
Закрыть


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