Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1644|回复: 3

[已解决]数组中存着日期,如何获得最大日期和最小日期

[复制链接]
发表于 2016-8-18 16:25 | 显示全部楼层 |阅读模式
数组中存着日期,如何获得最大日期和最小日期

brr(1,1)="2016/1/1"
brr(2,1)="2016/2/29"
brr(3,1)="2016/4/11"
brr(4,1)="2016/3/21"

用单纯的比大小我发现brr(4,1)居然比brr(3,1)大,导致算出来最大的日期是brr(4,1)
最佳答案
2016-8-19 05:40
日期的数组赋值方法是两边加#
  1. Sub Macro1()
  2. Dim brr(1 To 4, 1 To 1)
  3. brr(1, 1) = #1/1/2016#
  4. brr(2, 1) = #2/29/2016#
  5. brr(3, 1) = #4/11/2016#
  6. brr(4, 1) = #3/21/2016#
  7. If brr(4, 1) < brr(3, 1) Then MsgBox brr(4, 1)
  8. End Sub
复制代码
发表于 2016-8-18 21:13 | 显示全部楼层
本帖最后由 pel46585 于 2016-8-18 21:16 编辑

确定是日期类型而不是文本类型?
确定的话,=max(range(***))   
=min(range(***))
就可以获得结果了。

晕,看错了,是数组啊,循环比较大小就行了啊,最怕的是你的内容是文本类型的。文本的也不怕,可以转换为日期型的,再比较。
回复

使用道具 举报

发表于 2016-8-19 05:40 | 显示全部楼层    本楼为最佳答案   
日期的数组赋值方法是两边加#
  1. Sub Macro1()
  2. Dim brr(1 To 4, 1 To 1)
  3. brr(1, 1) = #1/1/2016#
  4. brr(2, 1) = #2/29/2016#
  5. brr(3, 1) = #4/11/2016#
  6. brr(4, 1) = #3/21/2016#
  7. If brr(4, 1) < brr(3, 1) Then MsgBox brr(4, 1)
  8. End Sub
复制代码
回复

使用道具 举报

发表于 2016-8-19 08:07 | 显示全部楼层
学习中!!!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 03:11 , Processed in 0.452708 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表