如何将任何整数值转换为 2 位文本字符串

Question

我确定一定有一个数学方程式或某种我不熟悉的代码可能能够生成我正在寻找的东西，我正在尝试找到一种方法来转换任何给定的整数到 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 go。SKU 也是一个数字值，介于 1-6 位之间。

目前，它很长，因为它看起来像：2000-995-00216-12，折扣 ID 2000-995，SKU 00216，最少 12

我很想找到一种方法来以任何可能的方式缩短它，同时保持唯一的键。

Answer 1

下面的代码将 map 一个给定的小于 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

Answer 2

如果可能存在任何字符，请使用 ascii 表：

TwoCharacterText = Chr(Value \ 256) & Chr(Value Mod 256)

但是我不清楚你打算如何使用它。

Answer 3

我最终弄明白了，Storax 给了我一个想法，我开始测试它，它似乎一直工作到 520。

这是我使用的公式： =IF(ISEVEN(VALUE(LEFT(TEXT($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 位数字，所以现在可以使用。