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

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

01.07.2013, 13:37. Показов 1515. Ответов 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
Ответ Создать тему
Новые блоги и статьи
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru