المشاركات : 165
المواضيع 33
الإنتساب : Oct 2012
السمعة :
0
الشكر: 37
تم شكره 106 مرات في 32 مشاركات
ارجو المساعدة فى عمل هذه الدالة
الدالة المرفقة تعمل بشكل جيد :
مثلا : لديا العدد 135000
عندما اقوم بتحويله يعطينى النتيجة 580F0296
لحد الان الفكرة واضحة
المطلوب :
اريد تحويل النيجة 580F0296
الى العدد 135000
اي عمل عكس الدالة
المثال فى المرفقات الرجاء التعديل عليه
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
ضع الدالة التالية في الـ Module:
كود :
Public Function Revert(ByVal AHexVal As String) As Long
Dim AValue As String
AValue = Left$(AHexVal, 6)
AValue = "&H" & Mid$(AValue, 5, 2) & Mid$(AValue, 3, 2) & Mid$(AValue, 1, 2)
Revert = CLng(AValue)
End Function
ضع على الـ Form مربع نص آخر (Text3 مثلاً) و زر آخر (Command2 مثلاً) للاستعادة. في كود الزر اكتب:
كود :
Private Sub Command2_Click()
Text3.Text = CStr(Revert(Text2.Text))
End Sub
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ