تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل رقم لتاريخ
#1
وضع text وفي خانة lost focus
حطيت الكود ده
Text1 = Format(Date, "dd/MM/yyyy")

التاريخ بهذا الشكل
11112011
عند الانتقال ل text اخر
المفروض يديني التاريخ كده
11/11/2011

يعطيني تاريخ اليوم
ارجو التعديل
وشكرا لمجهودكم الكبيييييييير
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم...

دون فواصل لا تستطيع الدالة معرفة ما الذي تقصده بذلك الرقم. نفرض أن المكتوب هو:
كود :
2111980

فهل المقصود:
كود :
2/11/1980

أم:
كود :
21/1/1980

أم:
كود :
21/11/980

؟؟

سلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة:
#3
تفضل اخي هذا الدوال تعدل text الى الذي تريده تاتي"/" من اليوم وتاتي بعد رقمين من الشهر

PHP كود :
Public Sub AutoDate(TextBoxName As TextBoxByVal keyasci As Integer)
If 
Val(keyasci) = 8 Then
If TextBoxName.Text = Empty Then
0
Else
1
End 
If
Exit 
Sub
End 
If
1
If 3 Then
t1 
Mid(TextBoxName.Text12)
t2 Mid(TextBoxName.Text31)
TextBoxName.Text Trim$(t1) & "/" t2
TextBoxName
.SelStart 4
t2 
= Empty
ElseIf 
6 Then
t1 
Mid(TextBoxName.Text15)
t2 Mid(TextBoxName.Text61)
TextBoxName.Text Trim$(t1) & "/" t2
TextBoxName
.SelStart 7
End 
If
If 
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 
الرد }}}}
تم الشكر بواسطة:
#4
وهكذا تستدعيها

PHP كود :
Private Sub Txt_Second_Name_KeyPress(KeyAscii As Integer)
Call AutoDate(Text10)
End Sub
Private Sub Txt_Second_Name_LostFocus()
Call DateValidation(Text1)
End Sub 
الرد }}}}
تم الشكر بواسطة:
#5
اسف هناك خطاء في الاستدعاء

PHP كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
Call AutoDate(Text10)
End Sub
Private Sub Text1_LostFocus()
Call DateValidation(Text1)
End Sub 
الرد }}}}
تم الشكر بواسطة:
#6
تعديل بسيط علي الرقم
2111980
21111980

المطلوب
21/11/1980

استاذ وليد
ارجو عمل برنامج وارفاقه لاني لم استطيع تطبيق المثال
وشكرا استاذنا
الرد }}}}
تم الشكر بواسطة:
#7
تفضل اخي الكريم وان شاء الله يكون المطلوب

دعائكم لي ولوالدي


الملفات المرفقة
.rar   تاريخ.rar (الحجم : 1.86 ك ب / التحميلات : 50)
الرد }}}}
تم الشكر بواسطة:
#8
بارك الله في غمرك
تسلم
الرد }}}}
تم الشكر بواسطة:
#9
شكرا جزيلا لك
لاكن عند مسح التكست وكتابة التاريخ مرة اخري لايظبط
الرد }}}}
تم الشكر بواسطة:
#10
ممكن بشرط تتم كتابة اربع خانات للايام و الاشهر يعني مثلا : الشهر 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)
الرد }}}}
تم الشكر بواسطة: arabe


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تحويل النص من ping الى text (التعرف على النصوص) hsansalhh 4 188 26-06-16, 01:52 PM
آخر رد: hsansalhh
Smile [vb6.0] مساعدة في تحويل التاريخ الميلادي إلى التاريخ الجيولاني ابو اياد@ 3 240 07-02-16, 12:31 PM
آخر رد: ahmedabdelaliem
  [سؤال] مطلوب برنامج تحويل الارقام او الحروف من شكل الى شكل تاج 8 545 31-12-15, 09:35 PM
آخر رد: تاج
  سؤال فيما يخص تحويل الارقام الى حروف abde6726 2 312 23-12-15, 12:48 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] برنامج تحويل الرصيد larbihamri 3 432 15-12-15, 08:58 PM
آخر رد: larbihamri
Question [vb6.0] كيف يتم تحويل التارخ الميلادي الى هجري ولعكس في برنامجي المرفق ؟؟ Microformt 2 353 19-10-15, 08:19 PM
آخر رد: احمداحمداحمد6
Question [vb6.0] كيف يتم تحويل الصوره الى رقم والعكس ؟؟ Microformt 4 387 10-10-15, 04:50 PM
آخر رد: WAEL ABED
  ماهو إصدار فيجول الذي يمكن تحويل البرامج المصممة بـ Vb6 دون مشاكل Ahmed abdallah 5 742 15-08-15, 12:20 AM
آخر رد: Ahmed abdallah
  مشكلة تحويل التاريخ Ksa004 4 712 29-07-15, 01:07 PM
آخر رد: Ksa004
  تحويل التاريخ Ksa004 1 521 01-06-15, 11:47 AM
آخر رد: Ksa004

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم