VBA时间制转换问题

sr103023

各位老师好，我现在遇到一个问题，譬如在A1有时间2017/4/3  14:39:53，在B1我用split函数分离出了时间部分14:39:53。
现在的问题是，我电脑的时间格式是24小时，所以B1提取出的时间显示为14:39:53。但是在时间格式为12小时的电脑上，B1提取出的时间显示为2:39:53，我应该怎么设置VBA代码，让其在12小时制和24小时的电脑上，都显示为14:39:53 ？


谢谢！

魂断蓝桥

既然用split函数 说明你这个是文本格式的。

提取出时间后，TimeSerial 函数转成真正的时间，然后设定单元格式即可。

philijian

[b1].NumberFormatLocal = "h:mm:ss;@"

sr103023

philijian 发表于 2017-4-21 09:26
.NumberFormatLocal = "h:mm:ss;@"

这个可以在12小时制的电脑上显示24小时制的时间吗？譬如我A1提取了时分秒，在B1是显示2:39:53还是14:39:53

marchwen01

1. Sub aTest()
   
2.     Dim s As String
   
3.     Dim t As Variant
   
4.    
   
5.     s = "2017/4/3  14:39:53"
   
6.    
   
7.     t = Split(s)
   
8.    
   
9.     [b1] = "'" & t(UBound(t))
   
10. End Sub

复制代码

英文格式的单引号，专治各种格式的不服。哈哈