Notice: Function _load_textdomain_just_in_time was called incorrectly. Translation loading for the all-in-one-seo-pack domain was triggered too early. This is usually an indicator for some code in the plugin or theme running too early. Translations should be loaded at the init action or later. Please see Debugging in WordPress for more information. (This message was added in version 6.7.0.) in /home/hwor/blagovest.org.ru/wp-includes/functions.php on line 6114

Notice: Функция _load_textdomain_just_in_time вызвана неправильно. Загрузка перевода для домена kirki была запущена слишком рано. Обычно это индикатор того, что какой-то код в плагине или теме запускается слишком рано. Переводы должны загружаться при выполнении действия init или позже. Дополнительную информацию можно найти на странице «Отладка в WordPress». (Это сообщение было добавлено в версии 6.7.0.) in /home/hwor/blagovest.org.ru/wp-includes/functions.php on line 6114

Notice: Функция _load_textdomain_just_in_time вызвана неправильно. Загрузка перевода для домена shamrock была запущена слишком рано. Обычно это индикатор того, что какой-то код в плагине или теме запускается слишком рано. Переводы должны загружаться при выполнении действия init или позже. Дополнительную информацию можно найти на странице «Отладка в WordPress». (Это сообщение было добавлено в версии 6.7.0.) in /home/hwor/blagovest.org.ru/wp-includes/functions.php on line 6114

Warning: Cannot modify header information - headers already sent by (output started at /home/hwor/blagovest.org.ru/wp-includes/functions.php:6114) in /home/hwor/blagovest.org.ru/wp-content/plugins/all-in-one-seo-pack/app/Common/Meta/Robots.php on line 87

Warning: Cannot modify header information - headers already sent by (output started at /home/hwor/blagovest.org.ru/wp-includes/functions.php:6114) in /home/hwor/blagovest.org.ru/wp-includes/feed-rss2-comments.php on line 8
https://blagovest.org.ru/?p=93839 Задайте вопрос и получите ответ Sat, 12 Dec 2015 09:27:26 +0000 hourly 1 https://wordpress.org/?v=6.7.1 https://blagovest.org.ru/?p=93839#comment-5762 Sat, 12 Dec 2015 09:27:26 +0000 http://blagovest.org.ru/?p=93839#comment-5762 к сожалению, InputBox всегда возвращает строку 🙂
можно проверять введенные данные ф-циями IsNumeric, либо Val, во второй может быть засада — например, если в региональных установках точка будет как разделить целой и дробной частей, то значение 555,99 просто молча обрежется  до 555. А также Val("строка") вернет ноль.
Поэтому с IsNumeric работать предпочтительнее.
То есть делать что-то такое:
Dim ss
ss = "xx"
While Not IsNumeric(ss)
   ss = InputBox("Введите число", "Ввод данных") ‘ Не выпускаем пользователя, пока не введет число
Wend

]]>