你的浏览器禁用了JavaScript, 请开启后刷新浏览器获得更好的体验!

如何更改时间值

使用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显示）我需要Timeonly080000 怎么弄这个。

已邀请:

4 个回复

如果时间当前是12:34:56 PM，这会将“s”设置为“123456”：

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

不确定我是否理解。尝试

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

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

我对VB6并不熟悉，但我知道它可以使用正则表达式。正则表达式将允许您使用正则表达式来查找和替换冒号，这听起来像你的目的。如果你是正则表达式的新手，这里有一个链接 http://www.funduc.com/regexp.htm

要回复问题请先登录或注册