ثانوية خليص

حاسب 2 / تطبيق السادس : حساب العمر NSB/AppStudio

حاسب 2/ تطبيق حساب العمر NSB/AppStudio

الكود 

TextBox1.value=Date

()Function Button1_onclick

  Dim mydate

  mydate=TextBox2.value

  

  If Checkbox1.getValue(1)=True Then

   (TextBox3.value=DateDiff("d",mydate,Date

    End If 

  

   If Checkbox1.getValue(2)=True Then

    (TextBox4.value=DateDiff("m",mydate,Date

  End If 

  

   If Checkbox1.getValue(3)=True Then

    (TextBox5.value=DateDiff("yyyy",mydate,Date

  End If 

  

  

End Function

()Function Button2_onclick

  ()Form1.reset

  TextBox1.value=Date

End Function