m_time=timemsgbox "原来的时间格式"&m_timefor i=1 to len(m_time)str=mid(m_time,i,1)if str=":" thentemp=temp+"-"else temp=temp+strend ifnextm_time=tempmsgbox "更改后的"&m_time
