我確定一定有一個數學方程式或某種我不熟悉的代碼可能能夠生成我正在尋找的東西，我正在嘗試找到一種方法來轉換任何給定的整數到 300，如果可能的話，最好是 9999，（沒有小數位）成一個唯一的 2 位字串。我可以接受包含文本字符、數字或符號的字串。
我正在嘗試為我們的一組折扣資料創建自己的“唯一密鑰”。我希望我可以使用它來將我們的“Min Qty”欄位從它的數量轉換為某種識別符號。我最初的計劃，我很難弄清楚如何制作，但會是這樣的：a = 2^1 * 9 (2^1=2, 所以 18) 如果值低于 18，它將使用“A_”，其中空白用乘數填充 2 以達到該值，如果為 1，則為 0。B 將繼續用于值大于 18 的記錄 EG：1 將等于 A0，17 將等于 A8，42 將相等（B 表示 18 后面的任何內容） B3 類似：18 (B=3*2)
如果有人有任何類似的提示，我會對此持開放態度。我很想找到一種方法來截斷我放入這個唯一鍵的所有識別符號并保持它們唯一。目前我有一個 4 位數的折扣 ID、4 位數的日期“mmyy”開始日期和結束日期，以及始終在 1-400 之間的最小數量。
如果您對該應用程式感到好奇，這只是為了讓我在我們的報告中記錄一個唯一的“折扣行”，所以當我上傳到本地資料庫時，我會有一個可以匹配資料的 ID .
根據請求編輯 我只需要一個由數值生成的唯一鍵。目前我的唯一鍵是折扣 ID、SKU 和最小數量的串聯，但這需要 16 位數字。我希望縮短折扣 ID 和最小數量，同時保持密鑰唯一。
折扣 ID 通常為 2000-995、2001-43、3031-1、2050-100 等。最小數量不超過 400。SKU 也是一個數值，介于 1-6 位之間。
目前，它很長，因為它看起來像：2000-995-00216-12，折扣 ID 2000-995，SKU 00216，最少 12
我很想找到一種方法來以任何可能的方式縮短它，同時保持唯一的鍵。
uj5u.com熱心網友回復：
以下代碼會將小于 1.296 的給定整數映射為兩位唯一字串（由字符“0,1,2,3,..9”和“A,B,...Z”組成總共有 36 個字符，你有 36*36=1.296 種可能的組合。這對于 300 個字符來說已經足夠了，但對于 9.999 個字符來說就足夠了。
Option Explicit
Const ANZ = 36
Function charOne(inpVal As Long) As String
Dim x As Long
' first charcater based on the whole fraction
' which will be 0 for 36 following numbers
x = Int(inpVal / ANZ)
x = CLng(x) ' just to avoid any floating point issues
charOne = selChar(x)
End Function
Function charTwo(inpVal As Long) As String
' second character is based on the modulo
' which will count from 0 to 35
charTwo = selChar(inpVal Mod ANZ)
End Function
Function mapTo2Chars(inpVal As Long) As String
mapTo2Chars = charOne(inpVal) & charTwo(inpVal)
End Function
Function selChar(pos As Long) As String
Dim ret As String
Select Case pos
Case Is <= 9
ret = CStr(pos)
Case Is >= 10
' A has the Ascii Code 65
ret = Chr(65 pos - 10)
End Select
selChar = ret
End Function
你可以用
Sub testit()
Debug.Print mapTo2Chars(10)
Debug.Print mapTo2Chars(887)
End Sub
uj5u.com熱心網友回復：
如果可能存在任何字符，請使用 ascii 表：
TwoCharacterText = Chr(Value \ 256) & Chr(Value Mod 256)
但是我不清楚你打算如何使用它。
uj5u.com熱心網友回復：
我最終弄明白了，Storax 給了我一個想法，我開始測驗它，它似乎一直作業到 520。
這是我使用的公式： =IF(ISEVEN(VALUE(LEFT(T??EXT($A1-(FLOOR($A1/100,1)*100),"00"),1))),INDEX(SUBSTITUTE(ADDRESS( 1,SEQUENCE(26),4),"1",""),MATCH(TRUE,$A1<SEQUENCE(26)*20,0))&RIGHT($A1,1),RIGHT($A1,1) &INDEX(SUBSTITUTE(ADDRESS(1,SEQUENCE(26),4),"1",""),MATCH(TRUE,$A1<SEQUENCE(26)*20,0)))
它使得如果 10 位是偶數（01、20、41 等），它將表示 20 的倍數的字母放在第一個字符中。
如果 10 位是奇數（10、34、51 等），則將字母放在第二個字符中。
另一個字符只是數字的最右邊的數字
我可能最終會嘗試添加第三個字符以幫助縮短 4 位數字，但我真的想將其保持為 2 位數字，所以現在可以使用。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/512738.html
標籤：擅长毫秒访问数学钥匙
上一篇：將值映射到順序范圍