Это - достаточно беспорядочный архив сообщений конференций сети fidonet, которые на момент их прочтения мной
показались полезными или интересными. Многие устарели, многие узкоспецифичны и малоинтересны, но может оказаться и что-то новое...
- __techs (2:5015/42) ----------------------------------------------- __techs - Msg : 158 of 1000 Rcv Pvt From : Alex Lishnev 2:5090/7.12 22 May 96 09:27:00 To : Dmitry Radishev 27 May 96 02:13:30 Subj : Re: У кого сохранилось? Расстояние междy двyмя датами. ------------------------------------------------------------------------------- @AREA:NETMAIL @ RFC-Received: from p12.f7.n5090.z2.fidonet.org by f3.n5090.z2.fidonet.org \\twith FTN (ifmail v.2.8) id AA5727; Thu, 23 May 96 20:06:20 +0800 May 96 04:48:11 +0000 *** Answering a msg posted in area NICE.SOURCES (NICE.SOURCES). Hello Dmitry! Sunday May 19 1996 16:19, Dmitry Radishev wrote to All: DR> Hi, All! DR> Пролетала тyт не так давно программа для определения расстояния (в днях) DR> междy двyмя датами (или количество от рождества Христова - неважно), а как DR> понадобилась - так y меня база грохнyлась :( У кого остались - нельзя ли DR> мылом... Желательно на Си :) Я не видел,когда пpолетало(на эху недавно подписался),но пpосто сам когда-то занимался вычислением дня недели по дате,вот пpога: === Cut === #include <stdio.h> #include <conio.h> void main(void) { int d,m,y,s,r,mo[12]={0,31,59,90,120,151,181,212,243,273,304,334}; char da[7][15]={"воскресенье.","понедельник.","вторник.","среда.","четверг.", "пятница.","суббота."},a; printf("Alexsoft-Date,ver.1.00\\n"); st:printf("Введите день:"); scanf("%d",&d); printf("Введите месяц:"); scanf("%d",&m); printf("Введите год:"); scanf("%d",&y); s=y+y/4+mo[m-1]+d; // Здесь в int s хpанится кол-во дней // Год вводится с 1900,по новому стилю.То есть вместо 1996 вводим пpосто 96 // Механизм я сам пpидумал,но это не важно,главно pаботает. // Так что малям модеpнизиpуй и получишь то,что надо. // Всего онаилучшего...:) printf("Это %s\\nЕще раз(Y/N)?",da[s%7]); a=getche(); if (a=='y' || a=='Y' || a==13) { printf("\\n"); goto st; }; } === Cut === За сим pаскланиваюсь,искpенне ваш,Alex --- GoldED 2.50.A0204+ * Origin: * Beast * (FidoNet 2:5090/7.12)
