DTPicker

[DVV]

Как с помощью DTPicker возвращать только время!

[tyomitch]

Format установи в 2 - dtpTime

[DVV]

Получ-ся дата и время в св-ве (Value)

[tyomitch]

Ну тогда бери CDate(Frac(CDbl(Value)))
Функция Frac определяется так:

Код: Выделить всё

Public Function Frac(Value As Double) As Double
Frac = Value - Int(Value)
End Function


Альтернативный вариант - Format(Value, "long time")

[DVV]

Хорошо спасибо за совет!

[DVV]

Формат получается,только при загрузке в DTpicker текущего формата выводит ошибку,что не указаны mindate и maxdate,что делать?

[tyomitch]

Ну так укажи!
По умолчанию MinDate = "01.01.1601", MaxDate = "31.12.9999". Почему они у тебя могли сброситься - не знаю.

[Dzhon]

А чем стандартные свойства не устраивают?

Код: Выделить всё

h = DTPicker1.Hour
m = DTPicker1.Minute


[Andrey Fedorov]

Вообще, DTpicker - глючный контрол. У него свойство DataChange не работает (покрайней мере в VB6 SP5 так было). Посему я его никогда и не пользовал... Ибо проще и удобней для меня оказалось орентироваться на другой, аналогичный (и даже чуть получше)...

[Dzhon]

Вообще, DTpicker - глючный контрол. У него свойство DataChange не работает (покрайней мере в VB6 SP5 так было). Посему я его никогда и не пользовал... Ибо проще и удобней для меня оказалось орентироваться на другой, аналогичный (и даже чуть получше)...

Имя? Назови ИМЯ...

[Andrey Fedorov]

Имя? Назови ИМЯ...

Не могу
Ибо он не мой. Взял его в фирме для которой раньше делал заказ (и продолжаю для них выполнять заказы). В своих программах я его пользую, но распространять не решусь...

Впрочем подобных контролов (а-ля DataPicker), с исходниками в интернете хватает, надо просто порыться и выбрать нормальный...