Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 03.10.2012
Сообщений: 41

как сделать что бы 22 числа каждого месяца в text1.text прибавлялось 1?

01.07.2013, 13:37. Показов 1490. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
как сделать что бы 22 числа каждого месяца в text1.text прибавлялось 1?
по сути программа переходила на новый месяц? то есть 22.07.13 программа должна перейти на 22.08.13, а дата на компьютере остаться неизменной и т.д..
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
01.07.2013, 13:37
Ответы с готовыми решениями:

ActiveX Control: Form1.Show bvModal if(Form1.Text1.Text <> '') then UserControl.Text2.Text = Form1.Text1.Text
Имеется проект ActiveX Control, в нем: Form1(имеет Text1, Button1), UserControl1 (имеет Text2, Button2). По нажатию на Button2 открывается...

Проблема с WInsock'ом Winsock1.GetData Data, vbString Text1.Text = Text1.Text & Data
Получаю данные так: Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Data As String Winsock1.GetData Data, vbString ...

Как создать массив? (i = len(text1.text) Dim q(i))
Как создать массив? i = len(text1.text) Dim q(i) - ОЩИБКА объясните почему, как избежать этого???

1
 Аватар для PAnT0P
1492 / 587 / 107
Регистрация: 26.03.2012
Сообщений: 1,039
01.07.2013, 15:29
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
Text1.Text = "22." & Format(Month(DateAdd("d", Day(DateAdd("d", -1, DateAdd("m", 1, DateAdd("d", 1, DateAdd("d", -Day(Date), Date))))) - 21, Date)), "00") & "." & Year(DateAdd("d", Day(DateAdd("d", -1, DateAdd("m", 1, DateAdd("d", 1, DateAdd("d", -Day(Date), Date))))) - 21, Date))
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
01.07.2013, 15:29
Помогаю со студенческими работами здесь

Text1.Text = "" не очищает Text1
Пример из учебника. Обычное считывание текстового файла. Автор демонстрирует выполнение одного и того же действия двумя различающимися...

Text1.Text = CommonDialog1.FileTitle
Dopustim ja cherez Common Dialog zapisal v TextBox put' faila. A kak uznat' proso imia faila?

Как сделать так чтобы при нажатии на кнопку прибавлялось +0.1 к тексту
Ребята, нужна помощь. Создаю форму, на ней текст и кнопка, в тексте написано 2.0 . Как сделать так чтобы при нажатии на кнопку прибавлялось...

Обновление данных листа 15 числа каждого месяца
здравствуйте, уважаемые форумчане. уже третьи сутки бьюсь. подскажите пожалуйста по следующему вопросу. на Лист1 кроме данных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru