求一个VB去掉系统时间前面 “上午” 俩字的代码。

比如 lbltime.caption=time .控件出来的是上午 11.40.58 。是这样吧？求个代码去掉上午。老师教的时候忘了。。貌似是这样的 lbltime.caption="time"FXXX F什么我忘记了。。谢谢大家了

2026年09月24日 22:48

有4个网友回答

网友（1）：

其实这个问题与VB程序无关，要到控制面板中去设置。
【控制面板】---【日期、时间、语言和区域设置】---【区域和语言选项】
进入【区域和语言选项】后，选【自定义】在自定义中选择【时间】选项卡，将【时间格式】设成HH:mm:ss就可以了，这样是以24小时的时间格式显示时间的。

如果仅仅用替换等方式将“上午”去掉，是不合适的，这样，下午5点，显示的是5点，不会显示17点，会出错的。

网友（2）：

lbltime.caption=replace(time,"上午 ","")
lbltime.caption=replace(lbltime.caption,"下午 ","") '注意上午后面有个空格，也许现在不怎么要紧，但养成一个习惯很重要，不然以后程序出错了还得慢慢调试找问题。
第一句这个是调用了字符串替换函数，从字符串“Time（也就是返回系统当前时间）”，如果TIME总包好了上午，则在“上午 ”替换成空白。
第二句的意思跟第一句一样，只是原字符串和被替换的字符不同罢了。

网友（3）：

lbltime.caption=replace(time,'上午'，'')

网友（4）：

简单用right(TIME,8)搞定