如何更改时间值

Question

使用VB6

在我的表单中使用DateTime Picker for Time。

DateTimePickerValue = 13:00:00 

从的DateTimePicker我需要得到13万，而不是13:00:00，如何避免 '：'

试过代码

Dim dpv As String 

    dpv = Left(dpin, 2) & Mid(dpin, 4, 2) & Right(dpin, 2) 
    MsgBox dpv 

dtpin是datetimepickerforat dtpin格式=自定义格式（HH：mm：ss）

dtpin =“08:00:00”（从日期时间选择器中选择的值）

输出显示：1222Am（MMDD显示）

我需要Timeonly 080000

如何得到这一点。

Answer 1

这将设置 “S” 为 “123456” 如果时间目前是下午12点34分56秒：

Dim s as String 
s = Format(Time(), "HHmmss") 

Answer 2

不知道我是否理解。

尝试

Sub a() 
    dpv = "13:00:00" 
    dp = Left(dpv, 2) & Mid(dpv, 4, 2) & Right(dpv, 2) 
    MsgBox dp 
End Sub 

Answer 3

DateTime.Now.ToString("HHmmss")会做

Answer 4

我没那么熟悉，VB6，但我知道它可以使用正则表达式。正则表达式会让你使用一个正则表达式来查找和替换冒号，这听起来像是你要做的。这里有一个链接，如果你是新的正则表达式。

http://www.funduc.com/regexp.htm