|
+ |
1162 ( ) . 1. [1:2] (2 ) - : 00 05 2. GTIN [3:8] (6 ) GTIN 14 GTIN, , GTIN 14 BIN (big endian), 6 . 6, . 3. [9:15] (7 ) - Serial Serial , . , CPP 866, 7 4. [22:32] (11 ) , . 5. 1162 : GTIN: 98765432101234 GTIN : 59 D3 9E 7F 19 72 Serial: ABC1234 : 41 42 43 31 32 33 34 1162: : 00 05 TLV . 1162 , 11 : 8A 04 0F 00 00 05 59 D3 9E 7F 19 72 41 42 43 31 32 33 34 8A 04 (1162) 0F 00 (15 ) |
+ |
Function TestNumberToBits2() Dim v As Variant, i As Integer, s As String v = CDec() For i = 40 To 0 Step -1 If v >= CDec(2 ^ i) Then s = s & "1" v = v - CDec(2 ^ i) ElseIf s <> "" Then s = s & "0" End If Next TextBox2 = s Debug.Print s End Function |
https://www.sql.ru/forum/1308018/perevod-stroki-v-binarnyy-format