hms2h.m

matlacb程序包

function [hours]=hms2h(h,m,s);
% HMS2H      converts hours, minutes, and seconds to hours
%
%  Usage:  [hours]=hms2h(h,m,s);   or [hours]=hms2h(hhmmss);
%

%     $Id: hms2h.m Mon, 03 Jul 2006 17:16:40 $

if nargin== 1,
   hms=h;
   h=floor(hms/10000);
   ms=hms-h*10000;
   m=floor(ms/100);
   s=ms-m*100;
   hours=h+m/60+s/3600;
else
   hours=h+(m+s/60)/60;
end