mohsen57
سه شنبه 10 اردیبهشت 1387, 14:54 عصر
تابع زیر اگه اشتباه نکنم word رو میگیره و به asci تبدیل میکنه من تابعی می خوام که برعکس این عمل کنه چجوری باید بنویسمش !:متفکر:
'Put a value up to 65535 into this, and get a 2 byte integer
Public Function Word(ByVal lngVal As Long) As String
'by Xeon
Dim Lo As Single
Dim Hi As Single
Lo = Fix(lngVal / 256)
Hi = lngVal Mod 256
Word = Chr(Lo) & Chr(Hi)
End Function
'Put a value up to 65535 into this, and get a 2 byte integer
Public Function Word(ByVal lngVal As Long) As String
'by Xeon
Dim Lo As Single
Dim Hi As Single
Lo = Fix(lngVal / 256)
Hi = lngVal Mod 256
Word = Chr(Lo) & Chr(Hi)
End Function