Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / определение числа дней в месяце ( VBS ) / 22 сообщений из 22, страница 1 из 1
19.05.2018, 16:30
    #39647060
PUT_2012
PUT_2012
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
Здравствуйте
подскажитепожалуйста, как можно на VBS определить число дней в конкретном месяце конкретного года ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2018, 17:03
    #39647063
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
Код: 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:07
    #39647064
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
даже проще
Код: vbnet
1.
MsgBox Day(DateSerial(s_year, s_month + 1, 0))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2018, 17:11
    #39647066
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
Shocker.Proдаже проще
Код: vbnet
1.
MsgBox Day(DateSerial(s_year, s_month + 1, 0))


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

а название короткое -- янв или длинное -- январь ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2018, 18:40
    #39647085
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
Код: vbnet
1.
2.
s_month = "февраль"
MsgBox Month(CDate("1-" & s_month & "-2000"))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2018, 18:48
    #39647088
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
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:49
    #39647089
PUT_2012
PUT_2012
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
big-duke, название длинное - МАЙ, ДЕКАБРЬ ....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2018, 19:16
    #39647094
PUT_2012
PUT_2012
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
Shocker.Pro, БЛАГОДАРЮ !!!
предложенный вами вариант работаем !
а какой нужен код если название месяцев будет на русском а язык системы будет английский ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2018, 19:17
    #39647095
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
ну тогда только через справочник, один из вариантов предложил The_Prist
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2018, 19:19
    #39647096
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
только с маем там следует определиться
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2018, 21:12
    #39647125
PUT_2012
PUT_2012
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
Shocker.Pro,проверил на машине где системный язык английский.
Ваш код тоже работает.
Может вы ошиблись отноительно настроек ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2018, 21:43
    #39647130
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
PUT_2012Shocker.Pro,проверил на машине где системный язык английский.системный язык может и английский, а региональные настройки, вполне вероятно, русские
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2018, 21:53
    #39647136
PUT_2012
PUT_2012
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
Подскажите еще пожалуйста, как узнать количество прошедших дней в текущем месяце ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2018, 22:07
    #39647141
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определение числа дней в месяце ( VBS )
Day()

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


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