Dim n = Val( StrReverse(1234) )
(30-12-18, 05:11 PM)fouadhdfouad كتب : شكرا اخي الكريم على الرد الكود الذي وضعته انت يعطي هذه النتيجة 4321 انا اريد هذا الرقم 3412
Dim k = 1234Dim n = Val(k.ToString.Substring(2, 2) & k.ToString.Substring(0, 2))
(30-12-18, 05:23 PM)fouadhdfouad كتب : الف تحية لك اخي وجدي ربنا يبارك في عمرك