ник: Дядя Федор
А? Чё? А у кого не работает? 
Что вы меня пугаете.
У мну работает а у вас не работает. Щас скачал свое же вложение - все работает.
Может вы калькулятор проверяли, а я код только для календаря дал (!!!!!!!).
Что б все - надо: (я думал что сами измените :()
Private Sub cmdTryCalculator_Click()
Dim s$
s = Nz(adhDoCalc(), "")
If Len(s$) > 0 Then txtCalcOutput = s 'txtCalcOutput = adhDoCalc()
End Sub
Private Sub cmdTryCalendar_Click()
Dim s$
s = Nz(adhDoCalendar(txtCalOutput), "")
If Len(s$) > 0 Then txtCalOutput = s 'adhDoCalendar(txtCalOutput)
End Sub
|
txtCalcOutput? txtCalOutput? - разные по гетцу. но похожие.