14.06.2009, 17:18
|
|
Постоянный
Регистрация: 30.09.2007
Сообщений: 815
С нами:
9796693
Репутация:
659
|
|
последний раз писал на паскале лет 5 назад, ну попробую вспомнить:
PHP код:
procedure convert(date: string; var result: string);
var
mm, dd, yy : string;
i, err : integer;
months : array[1..12] of string[20];
begin
months[1] := 'январь';
...
months[12] := 'декабрь';
mm := date[1]+date[2];
dd := date[4]+date[5];
yy := date[7]+date[8];
val(mm, i, err);
result := months[i] + ' ' + dd + ',20' + yy;
end;
var
result : string;
begin
convert('12.14.02', result);
writeln(result);
end.
|
|
|