[Ahmed_Mansoor]

أهلا أختي الكريمة , لابد أن تقومي بتعريف المتغيرات التي تريدين أن تستخدميها لأرقام كبيرة إما من نوع Double أو Currency , بالنسبة للتشيك بوكس إستخدمي صندوق الإدخال لجعل المستخدم هو من يدخل رقم النسبة ثم قومي بإجراء حساب وإضافة مقدار النسبة في التكستات الأخرى , كما يلي :

كود :

Private Sub Check1_Click()

If Check1.Value = 1 Then

   Dim PercentValue As String

   PercentValue = InputBox("أدخل رقم النسبة المئوية التي تريد", "النسبة المئوية")

End If

End Sub

وبالنسبة تنسيق التاريخ فكما ذكرت الأخت رهف :

كود :

Text1.Text = Format$(Now, "dmmmyy")