Как получить текущий день недели?

@Nikakula · Регистрация: 07.03.2014

Author24 — интернет-сервис помощи студентам

Pascal

uses system;
var a:DateTime;
b:integer;
begin
a:=DateTime.Now;
b:=a.day;
write(b);
end.

Вот так я получаю текущий день месяца, а как получить день недели(пн, вт, ср...)?

@Arik100 · 27.08.2015, 10:49

По введенной дате определить день недели

@SergMolo · 27.08.2015, 11:26

Используйте DateTime.DayOfWeek
MSDN

@Puporev · 27.08.2015, 12:02

Pascal

uses System;
const 
  week:array[1..7] of string = ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
  a:DateTime;
  b:integer;
  c:byte;
begin
a:=DateTime.Now;
b:=a.day;
c:=ord(a.DayOfWeek);
write('Сегодня ',b,' ',week[c]);
end.

@tezaurismosis · 27.08.2015, 14:46

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

Pascal

uses System, System.Globalization;
 
begin
    Console.WriteLine(
        DateTime.Now.ToString('dddd', CultureInfo.CurrentCulture));
end.

Чтобы заставить программу вывести день недели на русском языке (если, например, у вас винда на английском), нужно явно задать культуру

Pascal

uses System, System.Globalization;
 
begin
    Console.WriteLine(
        DateTime.Now.ToString('dddd', new CultureInfo('ru-RU'));
end.

@Arik100 59 / 60 / 37 Регистрация: 24.07.2015 Сообщений: 224
	27.08.2015, 10:49	2
	По введенной дате определить день недели 0

@SergMolo 12 / 12 / 10 Регистрация: 24.06.2015 Сообщений: 83
	27.08.2015, 11:26	3
	Используйте DateTime.DayOfWeek MSDN 1

	27.08.2015, 14:46