القوانين العامة لمنتديات الخوارزمى ... مشاهدة الإدارة ونقص عدد المشرفين ... للتقدم بطلب للإشراف ... مسابقة ترشيح المشرف العام

خدمات مركز الخوارزمى

خريطة الموقع

معرض الصور

مركز تحميل الصور و الملفات

القرآن الكريـــم

تفسير القرآن الكريــم

المرجع الدينى الشامل

مكتبة البرامج

مكتبة الدروس


« آخـــر الــمــواضــيــع »
         :: ينفع اسافر عن طريق ابن خالي (آخر رد :صانع القادة)       :: ما تشوف يا خوارزمى اللى بيحصل ده (آخر رد :Dr*.-.*GoHaRy)       :: امـــي لــم نبـــن اليــوم قصـــرا فـي الجنــه!!! (آخر رد :حسناء)       :: العصائر المثلجة مضرة بالأسنان (آخر رد :حسناء)       :: الحمية النباتية تساعد مرضى الروماتيزم (آخر رد :حسناء)       :: مشروبات للصحة واللياقة (آخر رد :حسناء)       :: إبحث عن أي مرض في هذا الباحث الصحي‏ (آخر رد :Dr*.-.*GoHaRy)       :: سيارة Corvette Z06‏ (آخر رد :domokh)       :: هذي قصور داخل سفية ...روعه (آخر رد :حسناء)       :: عطورات (آخر رد :حسناء)       :: شجرة الصفصآف والإسبرين (آخر رد :تبارك)       :: معلومات عامه (آخر رد :domokh)       :: رقم قياسي لحواء (آخر رد :تبارك)       :: ماأغناه رغم فقره !! .. سبحان الله (آخر رد :حسناء)       :: معجزة هيلين كيلر (آخر رد :domokh)       :: كبت الدموع يؤدي إلى إصابتك بالصداع والأمراض لماذا؟‏ (آخر رد :domokh)       :: العناية بالظهر (آخر رد :domokh)       :: اشياء عجب والله (آخر رد :domokh)       :: هل ترمى اكياس الشاى بعد استعمالها ؟؟؟!!! (آخر رد :domokh)       :: اسماء الجن (آخر رد :تبارك)      



العودة   :: مركز الخوارزمى للترجمة وخدمات الإنترنت العودة ركن الكمبيوتر و الإنترنت العودة قسم البرمجة وقواعد البيانات
قسم البرمجة وقواعد البيانات ASP.net SQL, ADO.net, C#, PHP , CGI , MySQL , JavaScript , Html , Delphi , Ajax ...



كود للمقارنه بين تاريخين

قسم البرمجة وقواعد البيانات


 
   
أدوات الموضوع انواع عرض الموضوع
قديم 29-10-2005, 05:11 PM رقم المشاركة : 1
معلومات العضو
عضو
نحن نتطلع الى التميز
افتراضي كود للمقارنه بين تاريخين

كود للمقارنه بين تاريخين

كود
  
Private Sub Command1_Click() 
Dim Date1 As Date, Date2 As Date, ans As String 
Date1 = "9 / 9 / 5" 
Date2 = Format$(Now, "dd/mm/yy") 

Select Case Date1 
Case Is > Date2 

ans = " هذا التاريخ أعلى من تاريخ اليوم" 
Case Is < Date2 

ans = " تاريخ اليوم أقل من هذا التاريخ" 
Case Else 

ans = " هذا التاريخ مساوي لتاريخ اليوم" 
End Select 
Label1.Caption = ans 
End Sub







رد مع اقتباس
 


مواقع النشر

الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

كود [IMG] متاحة
كود HTML معطلة