Все технические форумы на одном сайте Удобный поиск информации с популярных форумов в одном месте
Вопрос: По заданному числу и месяцу определить, какая дата (число и месяц) будут послезавтра

По заданному числу и месяцу определить, какая дата (число и месяц) будут послезавтра.

Входные данные:
Вводятся через пробел два целых числа, обозначающих число и месяц невисокосного года.

Выходные данные:
Вывести два числа - послезавтрашние число и месяц

Пример:
9 10 11 10
Ответ:
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  d,m:integer;
  t:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
  
begin
  repeat
    write('введите день и месяц:');readln(d,m);
  until (m in [1..12]) and (d in [1..t[m]]);
  d:=d+2;
  if d>t[m] then begin d:=d-t[m];m:=m+1;end;
  if m>12 then m:=1;
  writeln('послезавтра:',d,' ',m);
end.
Вопрос: Создать запрос, который выведет расходы по дате за неделю; месяц; год

Всем доброго времени суток. Подключаю базу данных Access к Delphi 7. Столкнулся с проблемой, а именно создать запрос, который выведет расходы по дате за неделю; месяц; год. Прошу вашей помощи, очень нужно!
Прикрепляю свою базу.
Ответ: Доход и Расход - это по сути одна и та-же операция, только доход с +, а расход с -, поэтому достаточно одной таблицы.
Выбрать весь доход или расход за любой период можно тогда такими запросами:
SQL
1
2
SELECT SUM(Сумма) AS Доход FROM Журнал WHERE Сумма > 0 AND DATE BETWEEN :BDate AND :EDate
SELECT SUM(Сумма) AS Расход FROM Журнал WHERE Сумма < 0 AND DATE BETWEEN :BDate AND :EDate
Но для получения корректного результата вам надо понимать как правильно задавать даты в Акцесе
Вопрос: Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Найти все весенние даты

Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Найти все весенние даты.
Ответ:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
#include <ctime>
#include <fstream>
#include <iomanip>
#include <iostream>
 
int main()
{
    std::ifstream ifs("input.txt");
    std::tm date;
    while (ifs >> std::get_time(&date, "%d.%m.%Y"))
        if (date.tm_mon > 1 && date.tm_mon < 5)
            std::cout << std::put_time(&date, "%d.%m.%Y") << std::endl;
}
Для справки:


Вопрос: имя, фамилия, дата рождения (число, месяц, год);

Написать программу, которая:
а) для группы людей создает записи - имя, фамилия, дата рождения (число, месяц, год);
б) выводит на экран имена и фамилии всех людей этой группы, родившихся в заданном
году;
в) выводит на экран все данные о людях этой группы с заданным именем.


начинаем изучать программирование!) РГЗ чтоб его (
Ответ: Спасибо огромное!!!!
Вопрос: Запись имеет четыре поля, содержащие фамилию и дату рождения (число, месяц, год) студента. Напишите программу, которая в

Всем привет, пришлось столкнуться в Java с работой с файлами, не знаю даже как начать, т.к. слаб в джаве, а сделать надо.. и очень прошу, кому не сложно, помогите в реализации следующих двух заданий:

1) Запись имеет четыре поля, содержащие фамилию и дату рождения (число, месяц, год) студента. Напишите программу, которая вводит и печатает эту информацию и печатает фамилии студентов, родившихся <15 числа>.
2)Сформируйте файл из модулей целых чисел. Найдите <Количество квадратов нечетных чисел>.
Спасибо заранее тем, кто откликнется
Ответ:
Сообщение от kotik95
хотя бы набросок скинуть
можем! держи:
Java
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
37
38
39
40
41
42
43
44
45
46
47
48
49
import java.util.ArrayList;
import java.util.Comparator;
import java.util.List;
import java.util.concurrent.ThreadLocalRandom;
 
public class Helper {
 
    public static void main(String[] args) {
        List<Student> gruppa0856 = new ArrayList<>();
        for (int i = 0; i < 15; i++) {
            gruppa0856.add(new Student("Jj#"+(i+1), ThreadLocalRandom.current().nextInt(16,27)));
        }
        // выбираем кто старше 20, вывод сортируем по возрасту
        gruppa0856.stream()
                .filter(s -> s.getAge() > 20)
                .sorted(Comparator.comparing(Student::getAge))
                .forEach(System.out::print);
    }
}
//####
 
public class Student {
    private String name;
    private int age;
 
    public void setAge(int age) {
        this.age = age;
    }
 
    public String getName() {
        return name;
    }
 
    public int getAge() {
        return age;
    }
 
    Student(String name, int age) {
        this.name = name;
        this.age = age;
    }
 
    @Override
    public String toString() {
        return "\n\'" + name + '\'' +
                ", age =" + age;
 
    }
}
Вопрос: MS Excel - макрос, который осуществляет автозаполнения строки клеток месяцами года

MS Excel - макрос, который осуществляет автозаполнения строки клеток месяцами года.
Ответ: В День народного единства Программист 123 предвосхитил эту тему — создал тред !

Сообщение от pashulka
Вариант не для студентов
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
    If Target.Column > 1 Then Exit Sub
    
    Cancel = True
    With Application
        Target(1, 1).Resize(7) = .Transpose(.GetCustomListContents(2))
        Target(1, 2).Resize(7) = .Transpose(.GetCustomListContents(1))
        Target(1, 3).Resize(12) = .Transpose(.GetCustomListContents(3))
        Target(1, 4).Resize(12) = .Transpose(.GetCustomListContents(4))
    End With
 
    ActiveSheet.Cells.ShrinkToFit = True 'вписка содержимого в клетки
End Sub
Здесь по двойному щелчку в колонке A возникают аж 4 автоматических списка, причём на любом доступном языке.
Вопрос: Дата в строку с спряжением месяцев

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

Меня немного напрягает

1 август 2006 -> хочу 1 августа 2006
и так далее

июнь -> июня

написать непроблема
как вариает я бы зделал вот так
 LongMonthNames[1]:='января';
 // здесь другие месяцы
 // здесь другие месяцы
                      //ниже пример с январём
 Edit1.Text:=FormatDateTime('d MMMM yyyy', StrToDate('20.1.2006'));
 // здесь востанавливаю LongMonthNames


Я уверен что есть в системе стандартная фича или как или где , например наводя курсор на дату в ввинде я вижу всё в правильном падеже....
Ответ: Дата в родительном падеже.

function GetGenitiveDate(ADate: TDate): string;
var
  St: SystemTime;
  DateShotString: array[Byte] of Char;
begin
  DateTimeToSystemTime(ADate, St);
  GetDateFormat(LOCALE_USER_DEFAULT,DATE_USE_ALT_CALENDAR, @st, 'dd MMMM yyyy', @DateShotString, 255);
  Result := DateShotString;
end;
Вопрос: перевод строковой даты с именем месяца

Привет всем!

Потратил кучу времени на эксперименты, но так и не добился результата.
Есть такая строка: October 27 2018

Как, используя TFormatSettings и StrToDate, получить дату из этой строки в переменную типа TDate?

Спасибо
Ответ:
DimonJUVE
Если можно, с кодом который так делает.
Я пробовал так, и у меня не вышло.

Мдя. StrToDate оказалась более тупой, чем я предполагал. Она действительно не умеет читать имена месяцев. В таком случае придется поработать ручками - либо полностью конвертация всей даты, либо препроцессор, который например, обработает только имя месяца, заменит его на номер и скормит стандартной функции.
Вопрос: Получить номер недели месяца

получить номер недели месяца, и получить дату второго четверга месяца
при условии: что известна только DateTime.Now
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
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Globalization;
 
namespace datetimetest
{
    class Program
    {
        static void Main(string[] args)
        {
            DateTime now = DateTime.Now;
            Console.WriteLine("{0}    {1}    {2}", WeekNumber(now), DateTime.Now.DayOfWeek, (int)DateTime.Now.DayOfWeek);
            Console.ReadKey();    
        }
        public static int WeekNumber(DateTime date)
        {
            GregorianCalendar cal = new GregorianCalendar(GregorianCalendarTypes.Localized);
            return cal.GetWeekOfYear(date, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday);
        }
 
    }
}
номер недели в году, название дня недели и номер дня недели нахожу
как найти номер недели месяца, и получить дату второго четверга месяца?
Ответ: получаете первый день месяца
DateTime beginningOfMonth = new DateTime(date.Year, date.Month, 1);
смотрите какой это день недели
DateTime.DayOfWeek, пусть это среда -3
вычитаете из дня недели четверг - 4 день недели начала месяца -3, прибавляете 7, прибавляете дату начала месяца и получаете дату второго четверга месяца
Вопрос: Определить дату (число и месяц) по заданному числу дней прошедших от начала года

Доброго времени суток. Прошу помочь с решением следующего задания. Пожалуйста, предельно просто.

Написать программу, которая по заданному числу дней, прошедших от начала года, определяет дату: число d и месяц m, если известно, что год - не високосный.

Заранее благодарю.
Ответ:
Код C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
class Program
    {
        static void Main(string[] args)
        {
            bool b = true;
            int dni;
            DateTime d = new DateTime(2015,01,01);
            do {
                Console.WriteLine("дата по умолчанию: "+d.ToString("dd.MM.yyyy")+"\n");
                Console.Write("введите дни: ");
                dni=Convert.ToInt32(Console.ReadLine());
                d=d.AddDays(dni);
                Console.WriteLine("дата после прибавления дней " + d.ToString("dd.MM.yyyy"));
                Console.WriteLine("число "+d.Day);
                Console.WriteLine("месяц "+d.Month+"\n");
                Console.WriteLine("____________________________"+"\n");
                d = new DateTime(2015,01,01);
            }while(b);
            Console.ReadKey();
        }   
    }