Как изменить значение времени

Question

Использование 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 = custom Формат (ЧЧ: мм: сс)

dtpin = "08:00:00"(Выбранные значения формируют указатель даты и времени)

Отображение вывода: 1222Am (отображение MMDD)

Мне нужно только время 080000

Как получить это.

Answer 1

Это установит "s" в "123456", если время в настоящее время 12:34:56 PM:

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

Answer 2

DateTime.Now.ToString("HHmmss") сделает

Answer 3

Я не очень знаком с VB6, но знаю, что он может использовать Regex. Regex позволит вам использовать регулярное выражение, чтобы найти и заменить двоеточие, которое звучит как то, что вы собираетесь. Вот ссылка, если вы новичок в регулярных выражениях.

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

Answer 4

Не уверен, что понимаю.

Попробуйте

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