Rosetta Code

Date manipulation: Difference between revisions

Page Discussion

Date manipulation (view source)

Revision as of 09:28, 5 November 2016

10 bytes removed ,  7 years ago
Change name of result.
(Lingo added)
(Change name of result.)
Line 2,094:
const func time: parseDate (in string: dateStri) is func
result
var time: resultaTime is time.value;
local
const array string: monthNames is [] ("January", "February", "March", "April",
Line 2,103:
begin
dateParts := split(dateStri, ' ');
resultaTime.year := integer parse (dateParts[3]);
resultaTime.month := 1;
while monthNames[resultaTime.month] <> dateParts[1] do
incr(resultaTime.month);
end while;
resultaTime.day := integer parse (dateParts[2]);
timeStri := dateParts[4];
if endsWith(timeStri, "am") then
resultaTime.hour := integer parse (timeStri[.. pred(pos(timeStri, ':'))]);
elsif endsWith(timeStri, "pm") then
resultaTime.hour := integer parse (timeStri[.. pred(pos(timeStri, ':'))]) + 12;
else
raise RANGE_ERROR;
end if;
resultaTime.minute := integer parse (timeStri[succ(pos(timeStri, ':')) .. length(timeStri) - 2]);
if dateParts[5] <> "UTC" then
resultaTime.timeZone := 60 * integer parse (dateParts[5][4 ..]);
end if;
end func;
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/109954"