0

我有一张桌子，里面摆满了每个都有独特的物品ItemID。还有另一个表格，其中包含大约每月一次对这些项目进行的测试的信息（有些可能每月进行多次测试，有些可能没有几个月），每个测试条目都有一个完整的日期mm/dd/yyyy。我想每月显示所有数据中一个字段的平均值。所以假设我平均的是物品重量，我想最终得到一个这样的表格： 

Date AvgOfWeight  
1/09 24.55  
2/09 28.64  
3/09 22.39

等等...

我知道我可以做一个查询来做平均值，我可以按某些标准对平均值进行分组，但是有没有一种简单的方法mm/dd/yyyy可以按月份对日期进行分组？

4

1 回答 1

0

我喜欢这个可以在这里使用的 strzero 函数：

m_monthYear = strZero(year(date()),4) & "-" & strZero(month(date()),2)

结果看起来像 2009-09 并且可以按升序排序，因为它们从年份开始。您只需按如下方式创建这个 strZero 函数：

Public function strZero(x_myLong as long, x_length as integer) as string
Dim m_strZero as string

m_strZero = trim(str(x_myLong))
do while len(m_strZero) <= x_length
    m_strZero = "0" & m_strZero
loop
strZero = m_strZero
end function

这是即时写的。请检查 str 的所有参数（如果有），添加错误管理，并根据自己的需要进行调整。例如，您可能希望x_myLong作为变体传递，以便返回“0000”字符串。在将数字转换为固定长度的字符串时，此函数还有多种其他用途。

于 2009-10-15T20:23:41.237 回答