aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/Date-manipulation/Seed7/date-manipulation.seed7
View file

@ -4,7 +4,7 @@ $ include "seed7_05.s7i";
const func time: parseDate (in string: dateStri) is func
result
var time: result is time.value;
var time: aTime is time.value;
local
const array string: monthNames is [] ("January", "February", "March", "April",
"May", "June", "July", "August", "September", "October", "November", "December");
@ -13,23 +13,23 @@ const func time: parseDate (in string: dateStri) is func
var string: timeStri is "";
begin
dateParts := split(dateStri, ' ');
result.year := integer parse (dateParts[3]);
result.month := 1;
while monthNames[result.month] <> dateParts[1] do
incr(result.month);
aTime.year := integer parse (dateParts[3]);
aTime.month := 1;
while monthNames[aTime.month] <> dateParts[1] do
incr(aTime.month);
end while;
result.day := integer parse (dateParts[2]);
aTime.day := integer parse (dateParts[2]);
timeStri := dateParts[4];
if endsWith(timeStri, "am") then
result.hour := integer parse (timeStri[.. pred(pos(timeStri, ':'))]);
aTime.hour := integer parse (timeStri[.. pred(pos(timeStri, ':'))]);
elsif endsWith(timeStri, "pm") then
result.hour := integer parse (timeStri[.. pred(pos(timeStri, ':'))]) + 12;
aTime.hour := integer parse (timeStri[.. pred(pos(timeStri, ':'))]) + 12;
else
raise RANGE_ERROR;
end if;
result.minute := integer parse (timeStri[succ(pos(timeStri, ':')) .. length(timeStri) - 2]);
aTime.minute := integer parse (timeStri[succ(pos(timeStri, ':')) .. length(timeStri) - 2]);
if dateParts[5] <> "UTC" then
result.timeZone := 60 * integer parse (dateParts[5][4 ..]);
aTime.timeZone := 60 * integer parse (dateParts[5][4 ..]);
end if;
end func;