DTPicker - кто знает как с ним работать помогите *это доп компонент*
очень удобная вещь для ввода даты.
Private Sub txtDateDog_CallbackKeyDown(ByVal_ KeyCode As Integer, ByVal Shift As Integer,_ ByVal CallbackField As String, CallbackDate As_ Date)
End Sub
вот такой заголовок....))
у мя в тексте из нее я просто получаю дату как из тхтвох'а кодом
ADate = txtDateDog.Value '.Text
Print #FreeChannel, "#KeyPassDate:" + CStr(ADate)
в чем фича не догоню...( просто то в одной дате выводит зночание 30 Декабря 1899г. передал
то в другой...((
помогите кто сталкивался...)
DTPicker- дополнительный компонент, ента сволочь у меня на форме в количестве 3х элементов...((
очень удобная вещь для ввода даты.
Private Sub txtDateDog_CallbackKeyDown(ByVal_ KeyCode As Integer, ByVal Shift As Integer,_ ByVal CallbackField As String, CallbackDate As_ Date)
End Sub
вот такой заголовок....))
у мя в тексте из нее я просто получаю дату как из тхтвох'а кодом
ADate = txtDateDog.Value '.Text
Print #FreeChannel, "#KeyPassDate:" + CStr(ADate)
в чем фича не догоню...( просто то в одной дате выводит зночание 30 Декабря 1899г. передал
то в другой...((
помогите кто сталкивался...)
А поподробнее, что значит то выводит, то не выводит, какой тип переменной ADate, и какие значения при сбоях показываются в txtDateDog.Value...
А поподробнее, что значит то выводит, то не выводит, какой тип переменной ADate, и какие значения при сбоях показываются в txtDateDog.Value...
блин вроде упростил и заработало... время показывает
Private Sub cmd_Click()
Dim MonthNameA As String
Dim Variable As String
Dim ADate As Date
Dim LongText As String
ADate = txtDateDog.Value
Variable = BDate(ADate)
Range("a2").Select
ActiveCell.FormulaR1C1 = Variable + " гы"
ADate = txtSKZIPassDate.Value
LongText = "текст" + BDate(ADate)
Range("a4").Select
ActiveCell.FormulaR1C1 = LongText
ADate = txtSKZIPassDate.Value
ADate = txtSKZIDate.Value
Range("a5").Select
ActiveCell.FormulaR1C1 = BDate(ADate)
ADate = txtSKZIExp.Value
Range("b5").Select
ActiveCell.FormulaR1C1 = BDate(ADate)
ADate = txtKeyPassDate.Value
LongText = "текст" + BDate(ADate)
Range("a6").Select
ActiveCell.FormulaR1C1 = LongText
ADate = txtKeyPassDate.Value
ADate = txtKeyDate.Value
Range("a7").Select
ActiveCell.FormulaR1C1 = BDate(ADate)
ADate = txtKeyExp.Value
Range("b7").Select
ActiveCell.FormulaR1C1 = BDate(ADate)
End Sub
Private Function BDate(Data As Date) As String
BDate = CStr(DatePart("d", Data)) + " " + monthtxt(Data) + " " + CStr(DatePart("yyyy", Data)) + "я."
End Function
Private Function monthtxt(Data As Date) As String
If DatePart("m", Data) = 3 Then monthtxt = "марта": Exit Function
If DatePart("m", Data) = 8 Then monthtxt = "августа": Exit Function
monthtxt = Left(MonthName(DatePart("m", Data)), Len(MonthName(DatePart("m", Data))) - 1) + "я"
End Function
но остаются вопросы может кто подскажет что эт за компанент такой DTPicker
тк... при упрощении txtSKZIPassDate * текстовае поле было* , а реально эт объект DTPicker1 и дт...
вот она какая весна...
.....
но остаются вопросы может кто подскажет что эт за компанент такой DTPicker
тк... при упрощении txtSKZIPassDate * текстовае поле было* , а реально эт объект DTPicker1 и дт...
вот она какая весна...
Объект как объект... вот только он малость глючный, если его неаккуратно использовать. Например, дату надо ему присваивать в опроеделенном порядке. Сперва минута, час,... , день, месяц, год. Иначе могут возникнуть излишние прибавления. К сожалению, этот контрол никак не изменить в дизайнерском плане. Он довольно некрасивый.
Но он и не дурак. Когда тупой юзер туда вводит всякую чушь, он местами его поправляет :)