hms2str

PURPOSE

$Id: hms2str.m,v 1.1 2004/05/17 19:35:30 dalai Exp $

SYNOPSIS

function hms_str = hms2str(hms)

DESCRIPTION

 $Id: hms2str.m,v 1.1 2004/05/17 19:35:30 dalai Exp $

CROSS-REFERENCE INFORMATION

This function calls:

This function is called by:

waitleftconsole $Id: waitleftconsole.m,v 1.4 2004/05/17 19:35:44 dalai Exp $

SOURCE CODE

0001 % $Id: hms2str.m,v 1.1 2004/05/17 19:35:30 dalai Exp $
0002 function hms_str = hms2str(hms)
0003 
0004 h = hms(1);
0005 m = hms(2);
0006 s = hms(3);
0007 
0008 
0009 h1 = fix(h/10);
0010 h0 = h - h1*10;
0011 
0012 m1 = fix(m/10);
0013 m0 = m - m1*10;
0014 
0015 s1 = fix(s/10);
0016 s0 = s - s1*10;
0017 
0018 hms_str = [num2str(h1) num2str(h0) ':' num2str(m1) num2str(m0) ':' num2str(s1) num2str(s0)];