我明白你想要的效果：输入102017显示为10(2017)，输入1显示为1(2016)——本质是把输入数字的最后四位作为年份放进括号，前面的部分保留在括号外。你之前找到的#(#,###)格式因为千位分隔符的问题没法满足需求，下面给你几个实用的解决方案：

方法一：查询中使用计算字段（最灵活，适配任意前缀长度） #

如果只是需要在查询或报表中显示格式化后的内容，不需要修改原表存储的值，直接在查询里添加计算字段即可：

FormattedNumber: Left([你的数字字段名], Len(CStr([你的数字字段名]))-4) & "(" & Right([你的数字字段名],4) & ")"

原理： #

1. 把数字转成字符串，用Len(CStr([字段名]))获取总长度
2. Left(..., 总长度-4)提取除最后四位外的前缀部分
3. Right(...,4)提取最后四位作为年份
4. 用&拼接成前缀(年份)的格式

如果遇到输入数字长度不足4位的情况（比如你例子中的1），可以稍微调整表达式，默认补充年份2016：

FormattedNumber: IIf(Len(CStr([你的数字字段名]))<4, [你的数字字段名] & "(2016)", Left([你的数字字段名], Len(CStr([你的数字字段名]))-4) & "(" & Right([你的数字字段名],4) & ")")

方法二：固定前缀长度时用自定义字段格式 #

如果你的前缀长度是固定的（比如总是1位或2位），可以直接在表的字段属性里设置格式：

• 前缀1位+年份4位：设置格式为 0"("0000")"
• 前缀2位+年份4位：设置格式为 00"("0000")"
  这样输入对应长度的数字就会自动显示成你要的格式，但这个方法只适用于前缀长度固定的场景。

方法三：用VBA函数实现动态格式化（适合窗体/报表控件） #

如果需要在窗体控件里实时显示格式化后的内容，可以写一个简单的VBA函数：

Function FormatYearNumber(num As Variant) As String
    Dim numStr As String
    ' 处理空值或非数字情况
    If IsNull(num) Or Not IsNumeric(num) Then
        FormatYearNumber = ""
        Exit Function
    End If
    numStr = CStr(num)
    If Len(numStr) < 4 Then
        ' 长度不足4位时默认显示2016
        FormatYearNumber = numStr & "(2016)"
    Else
        FormatYearNumber = Left(numStr, Len(numStr)-4) & "(" & Right(numStr,4) & ")"
    End If
End Function

然后在窗体控件的控件来源里输入：=FormatYearNumber([你的数字字段名])，就能实时看到格式化后的效果了。

内容的提问来源于stack exchange，提问作者user8727033