تقييم الموضوع :
  • 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 ك ب / التحميلات : 86)
الرد }}}
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] سؤال حول تحويل الرقم لعملة في Msflexgrid جلال اليمني 3 408 28-08-23, 07:19 PM
آخر رد: جلال اليمني
  تحويل أكواد فيصل الحطامي 0 246 09-05-23, 04:45 PM
آخر رد: فيصل الحطامي
  تحويل أكواد فيصل الحطامي 0 227 09-05-23, 04:36 PM
آخر رد: فيصل الحطامي
  تحويل أكواد فيصل الحطامي 1 425 01-03-23, 02:37 AM
آخر رد: Amir_Alzubidy
  [vb6.0] المساعدة في تحويل كود بلغة ال VB.Net الى لغة ال VB6 وادي العوضي 0 371 16-12-22, 11:24 AM
آخر رد: وادي العوضي
Rainbow [سؤال] تحويل مشروع محمد مسافر 4 708 24-08-22, 03:36 PM
آخر رد: محمد مسافر
  السلام عليكم ورحمة الله وبركاته برجاء المساعدة فى تحويل تقرير اكتف ريبورت ل بى دي اف mhareek 9 2,540 28-11-20, 01:49 PM
آخر رد: sendbad100
  تحويل تاريخ الجهاز لفورمات محدد hannileo 1 1,232 16-04-20, 01:12 AM
آخر رد: AL_BRNS
  كيف يمكن تحويل برنامج الVB6 الى EXE اسلام الكبابى 3 1,809 22-03-20, 05:03 PM
آخر رد: اسلام الكبابى
  [سؤال] تعديل على كود تحويل الرقم الى نص(التفقيط) رجاءً haider kh 2 1,722 26-03-19, 09:10 PM
آخر رد: Microformt

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


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