>>>>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 >>>>>>>>
>>>IF INLIST(ALLTRIM(STR(day(txtstart.value))),"01","1") >>>