|
Платные хостинги
Раскрутка сайта
Книги по программированию
День недели
- Не могу написать алгоритм который определяет по числу какой день недели былEx: дается дата 12.02.2004 нужно определить какой день недели было 12 число?ПОМОГИТЕ!!!
- Не поверишь, функция DayOfTheWeek
- Vit, без "The", просто DayOfWeek.
- Клёва РАБОТАЕТ!!!СПАСИБО
- Неужели в учебниках, где упоминается работа с датой/временем, об этом ни слова?!
- В Kylix с "The" - я под Linux в Kylix сидел, вот и дал неправильный вариант
- Если еще кому интересно, вот программа:Код uses crt;var day, month, year: integer; dayw: integer; s,s1: string; i,j: integer; date: array[1..3] of string;Function DayOfWeek (day, month, year: integer) : integer;var century, yr, dw: integer;begin if month < 3 then begin Inc(month, 10); Dec(year); end else Dec(month, 2); century := year div 100; yr := year mod 100; dw := (((26*month - 2) div 10)+day+yr+(yr div 4)+ +(century div 4) - (2*century)) mod 7; if dw < 0 then DayOfWeek := dw + 7 else DayOfWeek := dw;end;begin clrscr; write('Введите дату (дд.мм.гг): '); read(s); s1:=''; j:=0; for i:=1 to length(s)+1 do begin if (s[i]='.') or (s[i]='/') or (i = length(s)+1) then begin j:=j+1; date[j]:=s1; s1:=''; end else s1:=s1+s[i]; end; val(date[1],day,day); val(date[2],month,month); val(date[3],year,year); if ((day<1) or (day>31)) or ((month<1) or (month>12)) then begin writeln('Неправильный формат даты'); readln; readln; exit; end; dayw:=DayOfWeek(day,month,year); writeln; write('День недели числа ',s,' - '); case dayw of 0: writeln('Воскресенье'); 1: writeln('Понедельник'); 2: writeln('Вторник'); 3: writeln('Среда'); 4: writeln('Четверг'); 5: writeln('Пятница'); 6: writeln('Суббота'); end; readln; readln;end.highlightSyntax('delphiwYmQxZ','delphi');
- Vit, круто. я тожа хачу ;)
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
