Date manipulation: Difference between revisions

Line 2,094:

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",

Line 2,103:

begin

dateParts := split(dateStri, ' ');

~~result~~.year := integer parse (dateParts[3]);

aTime.year := integer parse (dateParts[3]);

~~result~~.month := 1;

aTime.month := 1;

while monthNames[~~result~~.month] <> dateParts[1] do

while monthNames[aTime.month] <> dateParts[1] do

incr(~~result~~.month);

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;