как написать условия IF: Если Х не Integer то..., Если Y не Date то...

@TOlia-Chainik · Регистрация: 11.11.2010

Author24 — интернет-сервис помощи студентам

как написать условия:
1) Если Х не Integer то...,
2) Если Y не Date то...

@CronMix · 03.01.2011, 03:04

Я додумался вот до чего

On Error GoTo Errors
If (Int(Text1.Text)) Then
Label1.Caption = 'ITAGER'
End If
Exit Sub
Errors:
Label1.Caption = 'NOT ITAGER'

Тобишь если ввели число(целое) тогда все ок!
А если это вызвало ошибку тогда обрабатываем после ошибки !

А с датой что-то не очень, также собственно и другими типами

@CronMix · 03.01.2011, 03:29

А вот как проверить дата ли::

testo = text1.text
If IsDate(testo) Then
MsgBox ('данные являются Датой')
End If

@CronMix · 03.01.2011, 03:31

Вот еще что интересно, если надо проверить числоли, а не только интегер, тогда так::

If IsNumeric(testo) Then MsgBox ('Только числа и ничего больше')

03.01.2011, 11:26

VarType()

@TOlia-Chainik 1 / 1 / 0 Регистрация: 11.11.2010 Сообщений: 17
		1
	как написать условия IF: Если Х не Integer то..., Если Y не Date то... 03.01.2011, 00:55. Показов 996. Ответов 4 Метки нет (Все метки) как написать условия: 1) Если Х не Integer то..., 2) Если Y не Date то... 0

@CronMix 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 71
	03.01.2011, 03:04	2
	Я додумался вот до чего On Error GoTo Errors If (Int(Text1.Text)) Then Label1.Caption = 'ITAGER' End If Exit Sub Errors: Label1.Caption = 'NOT ITAGER' Тобишь если ввели число(целое) тогда все ок! А если это вызвало ошибку тогда обрабатываем после ошибки ! А с датой что-то не очень, также собственно и другими типами 0

@CronMix 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 71
	03.01.2011, 03:29	3
	А вот как проверить дата ли:: testo = text1.text If IsDate(testo) Then MsgBox ('данные являются Датой') End If 0

@CronMix 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 71
	03.01.2011, 03:31	4
	Вот еще что интересно, если надо проверить числоли, а не только интегер, тогда так:: If IsNumeric(testo) Then MsgBox ('Только числа и ничего больше') 0

Comanche
	03.01.2011, 11:26	5
	VarType()

	03.01.2011, 11:26