Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/25: Рейтинг темы: голосов - 25, средняя оценка - 4.88
0 / 1 / 2
Регистрация: 30.10.2012
Сообщений: 113
1

Ввод даты вида хх.хх.хххх и её преобразоватие в другие форматы форматы. String

17.03.2013, 13:56. Просмотров 4928. Ответов 1
Метки нет (Все метки)


пользователь вводит дату рождения вида хх.хх.хххх, написать программу, которая выводит эту дату в форматах (напр. 21.10.2013):
1. 21-10-2013
2. 10.21.2013
3. 21 октября 2013
4. сегодня 21, месяц октябрь, год 2013
тип данных String
Pascal
1
Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.03.2013, 13:56
Ответы с готовыми решениями:

Конвертор из *.mdb в другие форматы бд
Добрый день! Подскажите пожалуйста какие команды можно использовать для того, чтобы данные из mdb...

Конвертирование Unicode в другие форматы
Всем здравствуйте !!! Интересует такой вопрос. Замучил этот Unicode !!! Может кто-то занимался...

Конвертация файла .scm в другие форматы
Нужно конвертировать файл .scm, созданный в "Экранной камере" в avi или mkv. Посоветуйте хороший и...

форматы даты
Импортирую .csv файл в БД сделанную на пхмайабмин но в итоге дата почему-то сбивается. В чем может...

1
69 / 83 / 33
Регистрация: 09.12.2012
Сообщений: 222
Записей в блоге: 3
17.03.2013, 16:04 2
denfox_pro, вроде вот
Pascal
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
var
date:String;
target:String;
target2:String;
i:integer;
begin
writeln('Ââåäèòå äàòó â ôîðìàòå XX.XX.XXXX');
readln(date);
target:=date[4]+date[5];
target2:=date[4]+date[5];
for  i:=0 to length(date) do
begin
if date[i] = '.' then
date[i]:='-';
end;
writeln(date);
if target='01' then
target:=date[1]+date[2]+' ÿíâàðÿ ' + date[7] + date[8] + date[9] + date[10];
if target='02' then
target:=date[1]+date[2]+' ôåâðàëÿ ' + date[7] + date[8] + date[9] + date[10];
if target='03' then
target:=date[1]+date[2]+' ìàðòà ' + date[7] + date[8] + date[9] + date[10];
if target='04' then
target:=date[1]+date[2]+' àïðåëÿ ' + date[7] + date[8] + date[9] + date[10];
if target='05' then
target:=date[1]+date[2]+' ìàÿ ' + date[7] + date[8] + date[9] + date[10];
if target='06' then
target:=date[1]+date[2]+' èþíÿ ' + date[7] + date[8] + date[9] + date[10];
if target='07' then
target:=date[1]+date[2]+' èþëÿ ' + date[7] + date[8] + date[9] + date[10];
if target='08' then
target:=date[1]+date[2]+' àâãóñòà ' + date[7] + date[8] + date[9] + date[10];
if target='09' then
target:=date[1]+date[2]+' ñåíòÿáðÿ ' + date[7] + date[8] + date[9] + date[10];
if target='10' then
target:=date[1]+date[2]+' îêòÿáðÿ ' + date[7] + date[8] + date[9] + date[10];
if target='11' then
target:=date[1]+date[2]+' íîÿáðÿ ' + date[7] + date[8] + date[9] + date[10];
if target='12' then
target:=date[1]+date[2]+' äåêàáðÿ ' + date[7] + date[8] + date[9] + date[10];
writeln(target);
if target2='01' then
target2:='ñåãîäíÿ ' + date[1]+date[2] + ', ìåñÿö ÿíâàðü,' + ' ãîä ' + date[7] + date[8] + date[9] + date[10];
if target2='02' then
target2:='ñåãîäíÿ ' + date[1]+date[2] + ', ìåñÿö ôåâðàëü,' + ' ãîä ' + date[7] + date[8] + date[9] + date[10];
if target2='03' then
target2:='ñåãîäíÿ ' + date[1]+date[2] + ', ìåñÿö ìàðò,' + ' ãîä ' + date[7] + date[8] + date[9] + date[10];
if target2='04' then
target2:='ñåãîäíÿ ' + date[1]+date[2] + ', ìåñÿö àïðåëü,' + ' ãîä ' + date[7] + date[8] + date[9] + date[10];
if target2='05' then
target2:='ñåãîäíÿ ' + date[1]+date[2] + ', ìåñÿö ìàé,' + ' ãîä ' + date[7] + date[8] + date[9] + date[10];
if target2='06' then
target2:='ñåãîäíÿ ' + date[1]+date[2] + ', ìåñÿö èþíü,' + ' ãîä ' + date[7] + date[8] + date[9] + date[10];
if target2='07' then
target2:='ñåãîäíÿ ' + date[1]+date[2] + ', ìåñÿö èþëü,' + ' ãîä ' + date[7] + date[8] + date[9] + date[10];
if target2='08' then
target2:='ñåãîäíÿ ' + date[1]+date[2] + ', ìåñÿö àâãóñò,' + ' ãîä ' + date[7] + date[8] + date[9] + date[10];
if target2='09' then
target2:='ñåãîäíÿ ' + date[1]+date[2] + ', ìåñÿö ñåíòÿáðü,' + ' ãîä ' + date[7] + date[8] + date[9] + date[10];
if target2='10' then
target2:='ñåãîäíÿ ' + date[1]+date[2] + ', ìåñÿö îêòÿáðü,' + ' ãîä ' + date[7] + date[8] + date[9] + date[10];
if target2='11' then
target2:='ñåãîäíÿ ' + date[1]+date[2] + ', ìåñÿö íîÿáðü,' + ' ãîä ' + date[7] + date[8] + date[9] + date[10];
if target2='12' then
target2:='ñåãîäíÿ ' + date[1]+date[2] + ', ìåñÿö äåêàáðü,' + ' ãîä ' + date[7] + date[8] + date[9] + date[10];
writeln(target2);
end.
Добавлено через 24 минуты
Pascal
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
var
date:String;
target:String;
target2:String;
target3:String;
target4:String;
i:integer;
begin
writeln('Введите дату в формате XX.XX.XXXX');
readln(date);
target3:=date[1]+date[2];
target:=date[4]+date[5];
target2:=date[4]+date[5];
target4:=target+'.'+target3+'.'+date[7] + date[8] + date[9] + date[10];
writeln(target4);
for  i:=0 to length(date) do
begin
if date[i] = '.' then
date[i]:='-';
end;
writeln(date);
if target='01' then
target:=date[1]+date[2]+' января ' + date[7] + date[8] + date[9] + date[10];
if target='02' then
target:=date[1]+date[2]+' февраля ' + date[7] + date[8] + date[9] + date[10];
if target='03' then
target:=date[1]+date[2]+' марта ' + date[7] + date[8] + date[9] + date[10];
if target='04' then
target:=date[1]+date[2]+' апреля ' + date[7] + date[8] + date[9] + date[10];
if target='05' then
target:=date[1]+date[2]+' мая ' + date[7] + date[8] + date[9] + date[10];
if target='06' then
target:=date[1]+date[2]+' июня ' + date[7] + date[8] + date[9] + date[10];
if target='07' then
target:=date[1]+date[2]+' июля ' + date[7] + date[8] + date[9] + date[10];
if target='08' then
target:=date[1]+date[2]+' августа ' + date[7] + date[8] + date[9] + date[10];
if target='09' then
target:=date[1]+date[2]+' сентября ' + date[7] + date[8] + date[9] + date[10];
if target='10' then
target:=date[1]+date[2]+' октября ' + date[7] + date[8] + date[9] + date[10];
if target='11' then
target:=date[1]+date[2]+' ноября ' + date[7] + date[8] + date[9] + date[10];
if target='12' then
target:=date[1]+date[2]+' декабря ' + date[7] + date[8] + date[9] + date[10];
writeln(target);
if target2='01' then
target2:='сегодня ' + date[1]+date[2] + ', месяц январь,' + ' год ' + date[7] + date[8] + date[9] + date[10];
if target2='02' then
target2:='сегодня ' + date[1]+date[2] + ', месяц февраль,' + ' год ' + date[7] + date[8] + date[9] + date[10];
if target2='03' then
target2:='сегодня ' + date[1]+date[2] + ', месяц март,' + ' год ' + date[7] + date[8] + date[9] + date[10];
if target2='04' then
target2:='сегодня ' + date[1]+date[2] + ', месяц апрель,' + ' год ' + date[7] + date[8] + date[9] + date[10];
if target2='05' then
target2:='сегодня ' + date[1]+date[2] + ', месяц май,' + ' год ' + date[7] + date[8] + date[9] + date[10];
if target2='06' then
target2:='сегодня ' + date[1]+date[2] + ', месяц июнь,' + ' год ' + date[7] + date[8] + date[9] + date[10];
if target2='07' then
target2:='сегодня ' + date[1]+date[2] + ', месяц июль,' + ' год ' + date[7] + date[8] + date[9] + date[10];
if target2='08' then
target2:='сегодня ' + date[1]+date[2] + ', месяц август,' + ' год ' + date[7] + date[8] + date[9] + date[10];
if target2='09' then
target2:='сегодня ' + date[1]+date[2] + ', месяц сентябрь,' + ' год ' + date[7] + date[8] + date[9] + date[10];
if target2='10' then
target2:='сегодня ' + date[1]+date[2] + ', месяц октябрь,' + ' год ' + date[7] + date[8] + date[9] + date[10];
if target2='11' then
target2:='сегодня ' + date[1]+date[2] + ', месяц ноябрь,' + ' год ' + date[7] + date[8] + date[9] + date[10];
if target2='12' then
target2:='сегодня ' + date[1]+date[2] + ', месяц декабрь,' + ' год ' + date[7] + date[8] + date[9] + date[10];
writeln(target2);
end.
не заметил что надо месяц и день менять местами, теперь правильно.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.03.2013, 16:04

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Для чего нужна конвертация в другие форматы?
Здравствуйте! Я бы хотел попросить вас мне рассказать как сделать элементарную программу....

Перевод даты в разные форматы
Такая проблемка, как можно перевести 01.01.2002 16:30:00 в 01.01.2002 04:30:00 PM ?

Php strtotime - различные форматы даты
Привет всем! Такой вопрос. В переменной хранится строка с датой. Это может быть и 20.03.2015, и 20...

Файловый ввод/вывод. Какие форматы файлов можно читать в файловых потоках?
Заранее простите за тупой вопрос, но какие форматы файлов можно считать с помощью #include...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.