Запрос у пользователя даты в кратком формате и ее вывод в полном формате

@Program Data · Регистрация: 11.05.2016

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

Нужна программа запрашивающую у пользователя дату в кратком формате дд.мм.гг (например: 15.10.2005), и отображающую эту дату в полном формате (например: 15 октября 2005 года) в Delphi. Я в delphi почти не работал и написал в PascalABC.NET, в Delphi естественно не работает, как передлать под Delphi?

Pascal

begin
  var cm:array[1..12] of string:=
    ('января','февраля','марта','апреля','мая','июня',
    'июля','августа','сентября','октября','ноября','декабря');
  var dmy:=ReadlnString('Дата в формате ДД.ММ.ГГГГ:').ToWords('.');
  Writeln(dmy[0]+' '+cm[dmy[1].ToInteger]+' '+dmy[2]+' года')
end.

@qwertehok · 13.11.2016, 16:45

то есть вы хотите только месяц в текст перевести?

Delphi

function Monthstr(S: string): string;
const
  Mes: array[1..12] of string = ('января', 'февраля', 'марта', 'апреля',
    'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября',
      'декабря');
var
  Year, Month, Day: Word;
begin
  try
    StrToDate(S); // пр-ка правильности ввода даты
    DecodeDate(StrToDate(S), Year, Month, Day);
    Result := IntToStr(day);
    Result := Result + ' ' + Mes[Month];
    Result := result + ' ' + IntToStr(Year) + ' года';
  except
    raise
      Exception.Create('"' + s + '"' + ' - такой даты нет!');
  end;
end;

вот примерно такая функция вам нужна

@cfbogd · 13.11.2016, 18:40

Program Data, в консоли?

Добавлено через 9 минут
много вариантов решения задачи, можно например stringreplace или с copy повозиться...

@Program Data · 13.11.2016, 20:10 **[ТС]**

Да в консоле нужно, через stringreplace пока не получается сделать

@Program Data · 13.11.2016, 20:37 **[ТС]**

Не работает

@qwertehok · 13.11.2016, 23:12

что именно?

@droider · 14.11.2016, 11:55

Сообщение от cfbogd

можно например stringreplace или с copy повозиться

не очень хороший совет.

Program Data, можно так

Delphi

const
 stMonth : array[1..12] of string[8] =
('января','февраля','марта',
'апреля', 'мая','июня','июля',
'августа','сентября', 'октября',
'ноября','декабря');
var
myDate: TDateTime; // дата
Year, Month, Day : Word;
begin
Writeln('Введите дату в формате дд.мм.гггг');
Read(myDate);  //задаем дату
DecodeDate(myDate, Year, Month, Day);
Writeln(Day,' ',stMonth[Month],' ',Year,' года');
Readln;
end.

либо проще с помощью процедуры DateTimeToString:

Delphi

var
myDate:TDateTime;
FormattedDate:string;
begin
Writeln('Введите дату в формате дд.мм.гггг');
Read(myDate);  //задаем дату
DateTimeToString(FormattedDate, 'dddddd', myDate);
Writeln(FormattedDate);
Readln;
end.

@Пытливый · 14.11.2016, 13:48

Если речь идет только о месяце, то можете дальше не читать, но если все-же о полной дате, то вот вам вопрос на думалку. Если пользователь введет дату 01.01.17 Какая дата должна быть на выходе?

@pavellevshic · 14.11.2016, 14:39

Пытливый, Возможно

Pascal

program test1;
var cm:array[1..12] of string=
   ('января','февраля','марта','апреля','мая','июня',
   'июля','августа','сентября','октября','ноября','декабря');
 datatext: string;
//Для полного вывода даты:
begin
  {для получения числа :=datatext[1]+datatext[2]
    для получения месяца:=datatext[4]+datatext[5]
    для года :=datatext[7]+datatext[8]+datatext[9]+datatext[10]}
  readln(datatext);
  writeln('День: '+datatext[1]+datatext[2]+' Месяц: '+datatext[4]+datatext[5]+' Год: '+datatext[7]+datatext[8]+datatext[9]+datatext[10]);
  readln
end.

Полный вывод

@D1973 · 14.11.2016, 16:54

pavellevshic, Пытливый задал правильный вопрос: какой именно год указывать при такой записи: 01.01.17 : 1917-й или 2017-й? А Вы предлагаете, уж извините, полную ерунду...

@pavellevshic · 14.11.2016, 17:17

D1973, я в коде сделал 4 символа года, чтоб не париться

@D1973 · 14.11.2016, 17:32

pavellevshic, откуда они возмуться, эти 4 цифры, если дата задана как "01.01.17"?
В этом-то и вопрос...

@Program Data · 26.11.2016, 15:06 **[ТС]**

Нужна программа запрашивающую у пользователя дату в кратком формате дд.мм.гг (например: 15.10.2005), и отображающую эту дату в формате (например: 15 октября 2005 года) в Delphi. Есть такой код, но мне нужна эта программа в консоли, прощу помочь.

f

Delphi

unction Monthstr(S: tdatetime): string;
const
Mes: array[1..12] of string = ('января', 'февраля', 'марта', 'апреля',
'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября',
'декабря');
var
Year, Month, Day: Word;
begin
try
// пр-ка правильности ввода даты
DecodeDate(S, Year, Month, Day);
Result := ''+IntToStr(day);
Result := Result + ' ' + Mes[Month];
Result := result + ' ' + IntToStr(Year) + ' года';
except
raise
Exception.Create('"' + datetostr(s) + '"' + ' - такой даты нет!');
end;
end;

@qwertehok · 26.11.2016, 15:17

а в чем проблема то?
readln отменили?
запрашивайте строку, пробуйте перевести ее в дату

@cfbogd · 26.11.2016, 15:23

Не по теме:

ctrl+c и ctrl+v не работает?

@Program Data · 26.11.2016, 20:26 **[ТС]**

Все пробовал, не работает

Добавлено через 5 часов 0 минут
Сделал такую прогу, только выделяет date: TDate;

Delphi

program a;
{$APPTYPE CONSOLE}
 
uses SysUtils; 
 
const
 months: array[1..12] of string = ('января','февраля','марта','апреля',
 'мая','июня','июля','августа','сентября','октября','ноября','декабря');
var
 input: string;
 date: TDate;
 frmt: TFormatSettings;
begin
 ReadLn(input);
 frmt.LongMonthNames := months;
 if TryStrToDate(input, date) then
 WriteLn(FormatDateTime('dd mmmm yyyy', date, frmt) + ' года')
 else
 WriteLn('Ошибка, некорректный формат даты');
 ReadLn;
end.

@Program Data · 26.11.2016, 20:44 **[ТС]**

Нужна программа запрашивающую у пользователя дату в кратком формате дд.мм.гг (например: 15.10.2005), и отображающую эту дату в формате (например: 15 октября 2005 года) в Delphi. Есть такой код в консоли, но выделяет строку

Delphi

1	formatSettings.LongMonthNames:= months;

Если удаляю, то не выводит месяц, в чем проблема?

Delphi

program a;
{$APPTYPE CONSOLE}
 
uses SysUtils;
 
const
months: array[1..12] of string = ('января','февраля','марта','апреля',
'мая','июня','июля','августа','сентября','октября','ноября','декабря');
var
input: string;
date: TDateTime;
formatSettings: TFormatSettings;
begin
ReadLn(input);
[COLOR="DarkRed"]formatSettings.LongMonthNames:= months;[/COLOR]
if TryStrToDate(input, date) then
WriteLn(FormatDateTime('dd mmmm yyyy', date,  formatSettings) + ' года')
else
WriteLn('Ошибка, некорректный формат даты');
ReadLn;
end.

@qwertehok · 26.11.2016, 21:16

так вы в uses не подключили модуль работы с датой

@qwertehok · 26.11.2016, 21:19

Сообщение от Program Data

но выделяет строку

не только выделяет, но и пишет ПОЧЕМУ выделяет

вы бы еще и ошибку выкладывали, а не только темы создавали кучами

@Program Data · 26.11.2016, 21:24 **[ТС]**

[Error] Project2.dpr(15): Incompatible types

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	13.11.2016, 18:40	3
	Program Data, в консоли? Добавлено через 9 минут много вариантов решения задачи, можно например stringreplace или с copy повозиться... 0

@Program Data 0 / 0 / 0 Регистрация: 11.05.2016 Сообщений: 17
	13.11.2016, 20:10 [ТС]	4
	Да в консоле нужно, через stringreplace пока не получается сделать 0

@Program Data 0 / 0 / 0 Регистрация: 11.05.2016 Сообщений: 17
	13.11.2016, 20:37 [ТС]	5
	Не работает 0

@qwertehok 5393 / 4321 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	13.11.2016, 23:12	6
	что именно? 0

@Пытливый 3584 / 2194 / 692 Регистрация: 29.05.2013 Сообщений: 9,366
	14.11.2016, 13:48	8
	Если речь идет только о месяце, то можете дальше не читать, но если все-же о полной дате, то вот вам вопрос на думалку. Если пользователь введет дату 01.01.17 Какая дата должна быть на выходе? 0

@D1973 Модератор 9238 / 6021 / 2374 Регистрация: 21.01.2014 Сообщений: 25,730 Записей в блоге: 3
	14.11.2016, 16:54	10
	pavellevshic, Пытливый задал правильный вопрос: какой именно год указывать при такой записи: 01.01.17 : 1917-й или 2017-й? А Вы предлагаете, уж извините, полную ерунду... 0

@pavellevshic 9 / 9 / 2 Регистрация: 07.11.2016 Сообщений: 67 Записей в блоге: 1
	14.11.2016, 17:17	11
	D1973, я в коде сделал 4 символа года, чтоб не париться 0

@D1973 Модератор 9238 / 6021 / 2374 Регистрация: 21.01.2014 Сообщений: 25,730 Записей в блоге: 3
	14.11.2016, 17:32	12
	pavellevshic, откуда они возмуться, эти 4 цифры, если дата задана как "01.01.17"? В этом-то и вопрос... 0

@qwertehok 5393 / 4321 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	26.11.2016, 15:17	14
	а в чем проблема то? readln отменили? запрашивайте строку, пробуйте перевести ее в дату 0

@cfbogd
	26.11.2016, 15:23 #15
	Не по теме: ctrl+c и ctrl+v не работает? 0

@qwertehok 5393 / 4321 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	26.11.2016, 21:16	18
	так вы в uses не подключили модуль работы с датой 0

@qwertehok 5393 / 4321 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	26.11.2016, 21:19	19
	Сообщение от Program Data но выделяет строку не только выделяет, но и пишет ПОЧЕМУ выделяет вы бы еще и ошибку выкладывали, а не только темы создавали кучами 0

@Program Data 0 / 0 / 0 Регистрация: 11.05.2016 Сообщений: 17
	26.11.2016, 21:24 [ТС]	20
	[Error] Project2.dpr(15): Incompatible types 0