删除出错

好像是要使用 format 函数。现在没有 VB，没办法帮你测试。

    Long Time 操作系统定义的长时间
    Format$(Now,"Long Time") 返回值 15:06:36

你所需要的功能是　从一个日期型数据中，把　时间取出来。
也许需要 把这个数据 转为 字符串才能 用 RIGHT 函数吧。猜。