16-09-13, 08:10 PM
السلام عليكم
- فعلاً طلع الكود خطأ , أرجو المعذرة لم أجربه قبل وضعه , على العموم هذا الكود بعد التعديل والتجربة :
- تحياتي .
- فعلاً طلع الكود خطأ , أرجو المعذرة لم أجربه قبل وضعه , على العموم هذا الكود بعد التعديل والتجربة :
كود :
Private Sub Text1_LostFocus()
If IsDate(Trim$(Text1.Text)) Then
Dim zDate As Date
zDate = CDate(Text1.Text)
Text1.Text = Format$(Year(zDate), "0000") & "\" & _
Format$(Month(zDate), "00") & "\" & _
Format$(Day(zDate), "00")
End If
End Sub- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next