+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تحويل رقم لتاريخ (/showthread.php?tid=2318)
الصفحات:
1
2
تحويل رقم لتاريخ - arabe - 21-03-14
وضع text وفي خانة lost focus
حطيت الكود ده
Text1 = Format(Date, "dd/MM/yyyy")
التاريخ بهذا الشكل
11112011
عند الانتقال ل text اخر
المفروض يديني التاريخ كده
11/11/2011
يعطيني تاريخ اليوم
ارجو التعديل
وشكرا لمجهودكم الكبيييييييير
RE: تحويل رقم لتاريخ - ناجي إبراهيم - 21-03-14
السلام عليكم...
دون فواصل لا تستطيع الدالة معرفة ما الذي تقصده بذلك الرقم. نفرض أن المكتوب هو:
كود :
2111980فهل المقصود:
كود :
2/11/1980أم:
كود :
21/1/1980أم:
كود :
21/11/980؟؟
سلام.
RE: تحويل رقم لتاريخ - ولد رائع - 21-03-14
تفضل اخي هذا الدوال تعدل text الى الذي تريده تاتي"/" من اليوم وتاتي بعد رقمين من الشهر
PHP كود :
Public Sub AutoDate(TextBoxName As TextBox, ByVal keyasci As Integer)
If Val(keyasci) = 8 Then
If TextBoxName.Text = Empty Then
i = 0
Else
i = i - 1
End If
Exit Sub
End If
i = i + 1
If i = 3 Then
t1 = Mid(TextBoxName.Text, 1, 2)
t2 = Mid(TextBoxName.Text, 3, 1)
TextBoxName.Text = Trim$(t1) & "/" & t2
TextBoxName.SelStart = 4
t2 = Empty
ElseIf i = 6 Then
t1 = Mid(TextBoxName.Text, 1, 5)
t2 = Mid(TextBoxName.Text, 6, 1)
TextBoxName.Text = Trim$(t1) & "/" & t2
TextBoxName.SelStart = 7
End If
If i = 11 Then Exit Sub
End Sub
PHP كود :
Public Function DateValidation(TextBoxName As TextBox) As Boolean
If IsDate(Trim$(TextBoxName.Text)) = False Then
MsgBox "Enter valid date in dd/mm/yyyy format.", vbInformation, "System Info.."
TextBoxName.SetFocus
DateValidation = False
ElseIf Not Len(Trim$(TextBoxName.Text)) = 10 Then
MsgBox "Enter valid date in dd/mm/yyyy format.", vbInformation, "System Info.."
TextBoxName.SetFocus
DateValidation = False
Else
DateValidation = True
End If
End Function
RE: تحويل رقم لتاريخ - ولد رائع - 21-03-14
وهكذا تستدعيها
PHP كود :
Private Sub Txt_Second_Name_KeyPress(KeyAscii As Integer)
Call AutoDate(Text1, 0)
End Sub
Private Sub Txt_Second_Name_LostFocus()
Call DateValidation(Text1)
End Sub
RE: تحويل رقم لتاريخ - ولد رائع - 21-03-14
اسف هناك خطاء في الاستدعاء
PHP كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
Call AutoDate(Text1, 0)
End Sub
Private Sub Text1_LostFocus()
Call DateValidation(Text1)
End Sub
RE: تحويل رقم لتاريخ - arabe - 21-03-14
تعديل بسيط علي الرقم
2111980
21111980
المطلوب
21/11/1980
استاذ وليد
ارجو عمل برنامج وارفاقه لاني لم استطيع تطبيق المثال
وشكرا استاذنا
RE: تحويل رقم لتاريخ - ولد رائع - 21-03-14
تفضل اخي الكريم وان شاء الله يكون المطلوب
دعائكم لي ولوالدي
RE: تحويل رقم لتاريخ - arabe - 21-03-14
بارك الله في غمرك
تسلم
RE: تحويل رقم لتاريخ - arabe - 21-03-14
شكرا جزيلا لك
لاكن عند مسح التكست وكتابة التاريخ مرة اخري لايظبط
RE: تحويل رقم لتاريخ - asto - 21-03-14
ممكن بشرط تتم كتابة اربع خانات للايام و الاشهر يعني مثلا : الشهر 3 مثلا يكون 03 و اليوم 3 يكون 03
كود :
t = Left(Text1.Text, 2)
a = Left(Text1.Text, 4)
tt = Right(a, 2)
x = Len(Text1.Text)
xx = x - 4
Text2.Text = t & "\" & tt & "\" & Right(Text1.Text, xx)