LPARAMETERS lpBD return Month(lpBD) = Month(Date()) AND Day(lpBD) = Day(Date())
Thisform.lblBD.Caption = iif(isbd(MyTable->dob),'Yes','No')