vb获取系统时间_vb 求上下午时间函数