使用VB6
在我的表格中使用DateTime Picker for Time。
DateTimePickerValue = 13:00:00
从DateTimePicker我需要得到130000而不是13:00:00,如何避免':'
尝试代码
Dim dpv As String
dpv = Left(dpin, 2) & Mid(dpin, 4, 2) & Right(dpin, 2)
MsgBox dpv
dtpin是datetimepickerforat dtpin format =自定义格式(HH:mm:ss)
dtpin =“08:00:00”(选定值构成日期时间选择器)
输出显示:1222Am
(显示MMDD)
我需要Timeonly 080000
如何得到这个。
答案 0 :(得分:1)
如果时间目前是12:34:56 PM,则会将“s”设置为“123456”:
Dim s as String
s = Format( Time(), "HHmmss" )
答案 1 :(得分:0)
不确定我是否理解。
尝试
Sub a()
dpv = "13:00:00"
dp = Left(dpv, 2) & Mid(dpv, 4, 2) & Right(dpv, 2)
MsgBox dp
End Sub
答案 2 :(得分:0)
DateTime.Now.ToString("HHmmss")
会做
答案 3 :(得分:0)
我对VB6并不熟悉,但我知道它可以使用正则表达式。正则表达式将允许您使用正则表达式来查找和替换冒号,这听起来像你的目的。如果你是正则表达式的新手,这里有一个链接。