如何更改時間值

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