如何更改时间值

时间:2010-12-22 05:23:24

标签: vb6

使用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

如何得到这个。

4 个答案:

答案 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并不熟悉,但我知道它可以使用正则表达式。正则表达式将允许您使用正则表达式来查找和替换冒号,这听起来像你的目的。如果你是正则表达式的新手,这里有一个链接。

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