17-03-15, 03:45 PM
السلام عليكم
جرب الكود التالي
جرب الكود التالي
PHP كود :
Private Sub Command1_Click()
Dim y, m, d, i As Integer
y = Year(Text1.Text)
m = Month(Text1.Text)
d = Day(Text1.Text)
List1.Clear
For i = 0 To Val(Text2.Text)
List1.AddItem y & "/" & m & "/" & d
m = m + 1
If m > 12 Then m = m - 12: y = y + 1
Next i
End Sub
يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))
