root/trunk/ampmto24.m

function [hours minutes] = ampmto24(time)
% Convert an AM/PM time into 24h time
%
% [HOURS MINUTES] = AMPMTO24(TIME)
%
% time:    time in .csv format                                     [string]
% hours:   extracted hours                                            [int]
% minutes: extracted minutes                                          [int]

% Copyright 2006-2007 INRIA
%
% This file is part of WellReader
% 
% WellReader is free software: you can redistribute it and/or modify
% it under the terms of the GNU Lesser General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% WellReader is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
% GNU Lesser General Public License for more details.
%
% You should have received a copy of the GNU Lesser General Public License
% along with WellReader.  If not, see <http://www.gnu.org/licenses/>.

hourSplit = regexp(time,'(\d{1,2}):(\d{2})\s(\w{2})','tokens');
hours = hourSplit{1}{1};
minutes = hourSplit{1}{2};
antePost = hourSplit{1}{3};
if strcmp(antePost, 'PM')
    if ~strcmp(hours, '12') %if time is 12:10 PM it actually means 12:10 24h
        hours = num2str(str2double(hours) + 12);
    end
else %if AM
    if strcmp(hours, '12')
        hours = '00';
    end
end
if length(hours)==1
    hours = ['0' hours];
end
hours = char(hours);
minutes = char(minutes);