osama2003
-
Posts
1 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو osama2003
-
الاخ مؤيد ارجوا ان تكون هذه بغيتك : Private Sub ss() Dim a As Double, b As Integer, c As Single a = 123.456 b = Int(a) c = a - Int(a) MsgBox b & "-" & c End Sub انسخ هذا الكود كما هو في محرر vb