ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / определение числа дней в месяце ( VBS )
22 сообщений из 22, страница 1 из 1
определение числа дней в месяце ( VBS )
    #39647060
PUT_2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PUT_2012
Гость
Здравствуйте
подскажитепожалуйста, как можно на VBS определить число дней в конкретном месяце конкретного года ?
...
Рейтинг: 0 / 0
19.05.2018, 16:30
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647063
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
2.
3.
s_year = 2000
s_month = 2
MsgBox Day(DateAdd("d", -1, DateSerial(s_year, s_month + 1, 1)))
...
Рейтинг: 0 / 0
19.05.2018, 17:03
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647064
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
даже проще
Код: vbnet
1.
MsgBox Day(DateSerial(s_year, s_month + 1, 0))
...
Рейтинг: 0 / 0
19.05.2018, 17:07
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647066
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Shocker.Proдаже проще
Код: vbnet
1.
MsgBox Day(DateSerial(s_year, s_month + 1, 0))


Ничосе трюк с последним нулём, не знал
...
Рейтинг: 0 / 0
19.05.2018, 17:11
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647075
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
big-dukeНичосе трюк с последним нулём, не зналага, тоже не знал до поры, в качестве аргументов для DateSerial можно писать что попало, например 13-й месяц - это январь следующего года, можно и отрицательные значения задавать
...
Рейтинг: 0 / 0
19.05.2018, 17:28
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647078
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ради интереса, нашел исходный топик. Это Миша глаза открыл. И что бы вы думали, топик... про количество дней в месяце
http://www.sql.ru/forum/751086/pomogite-pozhaluysta-sostavit-programmu?hl=dateserial
...
Рейтинг: 0 / 0
19.05.2018, 17:37
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647079
PUT_2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PUT_2012
Гость
Shocker.Pro, БЛАГОДАРЮ !
подскажите пожалуйста еще, как преобразовать название месяца в его номер ?
...
Рейтинг: 0 / 0
19.05.2018, 18:11
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647082
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
На каком языке будет написано название месяца, и будут ли заведомо совпадать региональные настройки Windows с этим языком?
...
Рейтинг: 0 / 0
19.05.2018, 18:21
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647083
PUT_2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PUT_2012
Гость
Shocker.Pro, название месяца написано на РУССКОМ
региональные совпадают
...
Рейтинг: 0 / 0
19.05.2018, 18:26
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647084
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
PUT_2012,

а название короткое -- янв или длинное -- январь ?
...
Рейтинг: 0 / 0
19.05.2018, 18:39
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647085
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
2.
s_month = "февраль"
MsgBox Month(CDate("1-" & s_month & "-2000"))
...
Рейтинг: 0 / 0
19.05.2018, 18:40
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647088
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
PUT_2012,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Sub GetDateFromStr_RU()
    Dim sSource As String
    Dim lM As Long
    sSource = "16 апреля 1999"
    lM = Val(InStr(1, "янвфевмарапрмаяиюниюлавгсеноктноядек", Mid(sSource, InStr(1, sSource, " ", 1) + 1, 3), 1) + 2) / 3
    MsgBox DateSerial(Right(sSource, 4), lM, Left(sSource, 2))
End Sub


но формат даты всегда должен быть как выше с годом из 4-х цифр. Иначе надо допиливать.
...
Рейтинг: 0 / 0
19.05.2018, 18:48
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647089
PUT_2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PUT_2012
Гость
big-duke, название длинное - МАЙ, ДЕКАБРЬ ....
...
Рейтинг: 0 / 0
19.05.2018, 18:49
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647094
PUT_2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PUT_2012
Гость
Shocker.Pro, БЛАГОДАРЮ !!!
предложенный вами вариант работаем !
а какой нужен код если название месяцев будет на русском а язык системы будет английский ?
...
Рейтинг: 0 / 0
19.05.2018, 19:16
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647095
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ну тогда только через справочник, один из вариантов предложил The_Prist
...
Рейтинг: 0 / 0
19.05.2018, 19:17
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647096
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
только с маем там следует определиться
...
Рейтинг: 0 / 0
19.05.2018, 19:19
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647125
PUT_2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PUT_2012
Гость
Shocker.Pro,проверил на машине где системный язык английский.
Ваш код тоже работает.
Может вы ошиблись отноительно настроек ?
...
Рейтинг: 0 / 0
19.05.2018, 21:12
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647130
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
PUT_2012Shocker.Pro,проверил на машине где системный язык английский.системный язык может и английский, а региональные настройки, вполне вероятно, русские
...
Рейтинг: 0 / 0
19.05.2018, 21:43
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647136
PUT_2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PUT_2012
Гость
Подскажите еще пожалуйста, как узнать количество прошедших дней в текущем месяце ?
...
Рейтинг: 0 / 0
19.05.2018, 21:53
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647141
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Day()

Не пора ли взять в руки справочник по функциям VB?
...
Рейтинг: 0 / 0
19.05.2018, 22:07
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647236
PUT_2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PUT_2012
Гость
Shocker.Pro, посоветуйте IDE для написания и отладки кода VBS
...
Рейтинг: 0 / 0
20.05.2018, 13:36
| Ответить | Цитировать | Написать  
определение числа дней в месяце ( VBS )
    #39647241
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
PUT_2012Shocker.Pro, посоветуйте IDE для написания и отладки кода VBSпочему только я? я на VBS не пишу, не знаю.
...
Рейтинг: 0 / 0
20.05.2018, 14:06
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / определение числа дней в месяце ( VBS )
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2155063]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 28ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 275ms
total:  411ms
созд. / загр.: 411ms
x
x
Закрыть


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