Доброго времени суток. На форме есть текстбокс для быстрого ввода времени.Время вводится подряд четыре числа : 1030 и получаем в поле 10:30. В процессе работы возникла проблема ,а как произвести ввод времени :0730,0900.При вводе нет разделителя двоеточия. Как можно исправить данную недоработку?
Доброго времени суток. На форме есть текстбокс для быстрого ввода времени.Время вводится подряд четыре числа : 1030 и получаем в поле 10:30. В процессе работы возникла проблема ,а как произвести ввод времени :0730,0900.При вводе нет разделителя двоеточия. Как можно исправить данную недоработку?parovoznik
Private Sub TextBox1_Change() 'формат времени для текстбоксов Dim vVal& vVal = Replace(Replace(Me.TextBox1.Value, ":", ""), "-", "") Me.TextBox1.Value = Format(vVal, IIf(vVal > 9999, "00:00-00:00", "00:00")) End Sub
[/vba]
вдруг, угадал [vba]
Код
Private Sub TextBox1_Change() 'формат времени для текстбоксов Dim vVal& vVal = Replace(Replace(Me.TextBox1.Value, ":", ""), "-", "") Me.TextBox1.Value = Format(vVal, IIf(vVal > 9999, "00:00-00:00", "00:00")) End Sub
KSV в результате при вводе четырех чисел например 1230 в поле тексбокса должно отобразиться 12:30. Это все отображается. а как быть с вводом 0830 или 0900. Если вводить ,эту комбинацию . то НЕ ОТОБРАЖАЕТСЯ РАЗДЕЛИТЕЛЬ(:)
KSV в результате при вводе четырех чисел например 1230 в поле тексбокса должно отобразиться 12:30. Это все отображается. а как быть с вводом 0830 или 0900. Если вводить ,эту комбинацию . то НЕ ОТОБРАЖАЕТСЯ РАЗДЕЛИТЕЛЬ(:)parovoznik
Private Sub TextBox1_Change() v_ = Me.TextBox1.Value If IsNumeric(v_) And Len(v_) = 4 Then Me.TextBox1.Value = Left(v_, 2) & ":" & Right(v_, 2) End Sub
[/vba]
А так? [vba]
Код
Private Sub TextBox1_Change() v_ = Me.TextBox1.Value If IsNumeric(v_) And Len(v_) = 4 Then Me.TextBox1.Value = Left(v_, 2) & ":" & Right(v_, 2) End Sub
parovoznik, в процессе работы возник вопрос. А если введено время например 25:67.Т.е. это невремя должно быть ссообщение MsgBox "Указано несуществующее время.", vbExclamation? Как отобразить в коде? Спасибо
parovoznik, в процессе работы возник вопрос. А если введено время например 25:67.Т.е. это невремя должно быть ссообщение MsgBox "Указано несуществующее время.", vbExclamation? Как отобразить в коде? Спасибоparovoznik
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
[vba]
