这可以用于对你程序进行测速，优化你的算法，给你毫秒级的计时。

新建From1（窗体），新建Command1（按钮CommandButton），代码：

新建modTimeStampToStr（模块 modTimeStampToStr.bas），代码：

   f_TimeStampToStr(lngTime As Long, Optional lngFormat As Long = 0)  As String 说明：

    '时间戳转换为天、小时、分钟、秒和毫秒，为0不显示
    'lngFormat格式参数：
    '0 默认值 中文显示 X天X小时X分钟X秒X毫秒
    '1 DDTHH:MM:SS
    '2 HH:MM:SS.MS
    '3 HH:MM:SS