Value = (Date())
>What is the value of txtstart.value ?
>
>>hi,
>>i get error mesage
>>Statement is not valid in a class definition
>>thanks
>>
>>>>hi all,
>>>>
>>>>how i can write this code under via correct way ?
>>>>

>>>>Add Object txtstart As TextBox With ;
>>>>    Value = (Date()), Left = 80, Top = 115, Width = 100
>>>>  Add Object cmdCalculate As CommandButton With ;
>>>>    Top = 145, Left = 80, Caption = "Go"
>>>>  Add Object grddistribution As Grid With ;
>>>>    Height = 280, Left = 190, Top = 5, Visible = .F., Width = 280
>>>>
>>>>    ****************************************************************
>>>>IF  day(txtstart.value)=01 or 1 &&
>>>>.
>>>>.
>>>>endif
>>>>

>>>>
>>>>thanks.
>>>
>>>I think what you want is:
>>>
>>>

>>>IF INLIST(ALLTRIM(STR(day(txtstart.value))),"01","1")
>>>