المسافات ازاله المسافات بين القيم

[king5star]

اريد مساعدة فى ازالة المسافات بين الارقام وهذه صوره توضح المشكلة

واستخدم هذه الداله لتوليد الرقم

Dim S1, S2, S3, S4 As String

S1 = Day(Date)
S2 = Month(Date)
S3 = Year(Date)
S4 = Cus_Num

S1 = str(YA)
S2 = str(RA)
S3 = str(WI)
S4 = str(FE)

Bar_Code = Trim(S1 + S1 + S3 + S4)

 

[jjafferr]

وعليكم السلام

 

جرب هاي الكود

Dim S1, S2, S3, S4 As integer

S1 = Day(Date)
S2 = Month(Date)
S3 = Year(Date)
S4 = Cus_Num

Bar_Code = Trim(S1 & S1 & S3 & S4)

جعفر

[Shivan Rekany]

استأذن من السيد جعفر
فقط لزيادة الفائدة

اليك هذا الرابط 
لعل به ما تريد

 

تم تعديل مايو 8, 2017 بواسطه Shivan Rekany

[king5star]

18 ساعات مضت, jjafferr said:

وعليكم السلام

 

جرب هاي الكود

Dim S1, S2, S3, S4 As integer

S1 = Day(Date)
S2 = Month(Date)
S3 = Year(Date)
S4 = Cus_Num

Bar_Code = Trim(S1 & S1 & S3 & S4)

جعفر

شكراً استاذ جعفر على هذا الكود وجعلك الله فى جنه الفردوس  .

 

17 ساعات مضت, Shivan Rekany said:

استأذن من السيد جعفر
فقط لزيادة الفائدة

اليك هذا الرابط 
لعل به ما تريد

 

شكراً لهذا الموضوع الشيق استاذ شيفان  .