14-05-14, 06:42 PM
ده الكود بعدالتعديل
Private Sub Command1_Click()
Dim answer As Integer
Dim givedate As Date
givedate = 10 / 6 / 1433
answer = givedate + 792
Label6.Caption = DateAdd("d", 792, "10/6/1433")
Exit Sub
MsgBox ("ÃÏÎá ÇáÊÇÑíÎ ÈÇáÔßá ÇáÕÍíÍ")
End Sub
Private Sub Command1_Click()
Dim answer As Integer
Dim givedate As Date
givedate = 10 / 6 / 1433
answer = givedate + 792
Label6.Caption = DateAdd("d", 792, "10/6/1433")
Exit Sub
MsgBox ("ÃÏÎá ÇáÊÇÑíÎ ÈÇáÔßá ÇáÕÍíÍ")
End Sub