С Новым годом! Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
0 / 0 / 0
Регистрация: 06.03.2015
Сообщений: 13

Календарь на год

20.05.2015, 23:49. Показов 3025. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Подскажите плз как сделать так, чтобы при изменении года, менялся год в каждом monthСalendar и месяца шли по порядку от января до декабря.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.05.2015, 23:49
Ответы с готовыми решениями:

Календарь, похожий на Google календарь, в C++ Builder 6
Доброго времени суток. Может кто-то сталкивался с созданием календаря на неделю. Нужно чтоб календарь показывал дни недели и время с...

Как сравнить год со строкой, где год указан после числа и месяца через точки
Здравствуйте. Мне нужно отобрать даты, где год больше, чем 1984: Сам понимаю, что такой код: if...

Календарь на год
Здравствуйте! Хочу сделать календарь событий на год типа как тут http://www.mbo4x4.ru/index.phtml?way=rasp но покрасивее нашел...

2
place status here
 Аватар для gunslinger
3186 / 2220 / 640
Регистрация: 20.07.2013
Сообщений: 6,013
21.05.2015, 02:00
Лучший ответ Сообщение было отмечено So_srsly как решение

Решение

Если имена объектов "календарь" таковы: MonthCalendar1, MonthCalendar2, ..., MonthCalendar12, то можно так (у меня ShowToday = 0, ShowTodayCircle = 1 для всех MonthCalendar)

cpp:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  SpinEdit1->OnChange(this);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpinEdit1Change(TObject *Sender)
{
  for (int i = 1; i <= 12; i++)
    dynamic_cast<TMonthCalendar*>(FindComponent("MonthCalendar" + String(i)))->Date = StrToDate("1." + String(i) + "." + String(SpinEdit1->Value));
}
h:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ComCtrls.hpp>
#include <Vcl.Samples.Spin.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TLabel *Label1;
    TSpinEdit *SpinEdit1;
    TMonthCalendar *MonthCalendar1;
    TMonthCalendar *MonthCalendar2;
    TMonthCalendar *MonthCalendar3;
    TMonthCalendar *MonthCalendar4;
    TMonthCalendar *MonthCalendar5;
    TMonthCalendar *MonthCalendar6;
    TMonthCalendar *MonthCalendar7;
    TMonthCalendar *MonthCalendar8;
    TMonthCalendar *MonthCalendar9;
    TMonthCalendar *MonthCalendar10;
    TMonthCalendar *MonthCalendar11;
    TMonthCalendar *MonthCalendar12;
    void __fastcall SpinEdit1Change(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
P.S.: можно создавать "календари" динамически (по уму так и нужно делать), но мне лень заморачиваться.
Миниатюры
Календарь на год  
1
0 / 0 / 0
Регистрация: 06.03.2015
Сообщений: 13
21.05.2015, 23:04  [ТС]
спс) +rep
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.05.2015, 23:04
Помогаю со студенческими работами здесь

Календарь на год
Доброго времени суток, никак не получается решить задачу. Написать программу формирования календаря для любого года, начиная с 1900 (1...

Создать календарь на год
помогите пожалуйста составить календарь,так что бы при вводе года на экран выводился календарь на весь год.

Вывести календарь на год
Как сделать так, чтобы печатался календарь 3х4. Он у меня печатает 1х12. Ещё нужно установить расстояние между элементами не через \t, а...

Вывести календарь на год
Когда берем по два элемента остается один, когда берем по 3,4,5 и 6 элементов тоже остается один, а когда берем по семь элементов то не...

Календарь на любой год
Доброго времени суток.. Есть одна проблема, а собственно имеется макрос для Exel VBA для составления календаря на данный месяц данного...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru