时间显示转换.prg

田径运动会管理系统RAR 用VFP编写

FUNCTION timetochar
PARAMETERS xmdm,mmm
m1=0
m2=0
f1=0
s1=0
IF UPPER(LEFT(ALLTRIM(xmdm),1))="J"
IF mmm>0
m1=INT(mmm)
m2=MOD(mmm,1)
IF m1>=60
   f1=INT(m1/60)
   m1=MOD(m1,60)
   IF f1>=60
      s1=INT(f1/60)
      f1=MOD(f1,60)
   ENDIF
ENDIF
ENDIF

IF s1>0 
time_disp=STR(s1,1)+":"+PADL(ALLTRIM(STR(f1,2)),2,"0")+":"+PADL(ALLTRIM(STR(m1,2)),2,"0")+"."+PADL(ALLTRIM(STR(m2,2)),2,"0")
ELSE
  IF f1>0
time_disp=ALLTRIM(STR(f1,2))+":"+PADL(ALLTRIM(STR(m1,2)),2,"0")+"."+PADL(ALLTRIM(STR(m2,2)),2,"0") 
ELSE
time_disp=ALLTRIM(STR(m1,2))+"."+PADL(ALLTRIM(STR(m2,2)),2,"0")
ENDIF
ENDIF
ENDIF
RETURN time_disp