mysql如何查询日期与时间？本篇文章小编给大家分享一下mysql查询日期与时间代码示例，文章代码介绍的很详细，小编觉得挺不错的，现在分享给大家供大家参考，有需要的小伙伴们可以来看看。
1.日期和时间类型概览
MySQL支持的日期和时间类型有 DATETIME、TIMESTAMP、DATE、TIME、YEAR ，几种类型比较如下：
涉及到日期和时间字段类型选择时，根据存储需求选择合适的类型即可。
2.日期和时间相关函数
处理日期和时间字段的函数有很多，有的经常会在查询中使用到，下面介绍下几个相关函数的使用方法。
CURDATE 和 CURRENT_DATE 两个函数作用相同，返回当前系统的日期值。
CURTIME 和 CURRENT_TIME 两个函数作用相同，返回当前系统的时间值。
NOW() 和 SYSDATE() 两个函数作用相同，返回当前系统的日期和时间值。
UNIX_TIMESTAMP 获取UNIX时间戳函数，返回一个以 UNIX 时间戳为基础的无符号整数。
FROM_UNIXTIME 将 UNIX 时间戳转换为时间格式，与UNIX_TIMESTAMP互为反函数。
TO_DAYS() 提取日期值并返回自公元0年到现在的天数。
DAY() 获取指定日期或时间中的天值。
DATE() 获取指定日期或时间中的日期。
TIME() 获取指定日期或时间中的时间。
MONTH 获取指定日期中的月份。
WEEK 获取指定日期是一年中的第几周。
YEAR 获取年份。
QUARTER 获取日期所在的季度值。
DATE_ADD 和 ADDDATE 两个函数功能相同，都是向日期添加指定的时间间隔。
DATE_SUB 和 SUBDATE 两个函数功能相同，都是向日期减去指定的时间间隔。
ADDTIME 时间加法运算，在原始时间上添加指定的时间。
SUBTIME 时间减法运算，在原始时间上减去指定的时间。
DATEDIFF 获取两个日期之间间隔，返回参数 1 减去参数 2 的值。
DATE_FORMAT 格式化指定的日期，根据参数返回指定格式的值。
一些使用示例：
mysql> select CURRENT_DATE,CURRENT_TIME,NOW();
+--------------+--------------+---------------------+
| CURRENT_DATE | CURRENT_TIME | NOW()        |
+--------------+--------------+---------------------+
| 2020-06-03  | 15:09:37   | 2020-06-03 15:09:37 |
+--------------+--------------+---------------------+
mysql> select TO_DAYS('2020-06-03 15:09:37'),
TO_DAYS('2020-06-03')-TO_DAYS('2020-06-01');
+--------------------------------+---------------------------------------------+
| TO_DAYS('2020-06-03 15:09:37') | TO_DAYS('2020-06-03')-TO_DAYS('2020-06-01') |
+--------------------------------+---------------------------------------------+
|             737944 |                      2 |
+--------------------------------+---------------------------------------------+
mysql> select MONTH('2020-06-03'),WEEK('2020-06-03'),YEAR('2020-06-03');
+---------------------+--------------------+--------------------+
| MONTH('2020-06-03') | WEEK('2020-06-03') | YEAR('2020-06-03') |
+---------------------+--------------------+--------------------+
|          6 |         22 |        2020 |
+---------------------+--------------------+--------------------+
# DATEDIFF(date1，date2) 返回起始时间 date1 和结束时间 date2 之间的天数
mysql> SELECT DATEDIFF('2017-11-30','2017-11-29') AS COL1,
-> DATEDIFF('2017-11-30','2017-12-15') AS col2;
+------+------+
| COL1 | col2 |
+------+------+
|  1 | -15 |
+------+------+
3.日期和时间字段的规范查询
上面的内容都是为我们的查询需求做准备，在项目需求中，经常会以日期或时间为条件进行筛选查询。有时候这类需求多种多样，下面我们来学习下关于日期和时间字段的查询写法。
首先，为了使查询更加准确，在插入数据时也要按规范来插入。比如说年份使用4位数字，日期和月份要在合理范围内等，下面为了测试方便，我们创建一个表，并插入部分数据。
CREATE TABLE `t_date` (
`increment_id` int unsigned NOT NULL AUTO_INCREMENT COMMENT '自增主键',
`year_col` YEAR NOT NULL COMMENT '年',
`date_col` date NOT NULL COMMENT '日期',
`time_col` time NOT NULL COMMENT '时间',
`dt_col` datetime NOT NULL COMMENT 'datetime时间',
`create_time` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP COMMENT '创建时间',
PRIMARY KEY (`increment_id`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='time测试表';
# 日期和时间都选取当前的日期或时间
INSERT INTO t_date (year_col,date_col,time_col,dt_col,create_time) VALUES
(year(now()),DATE(NOW()),time(now()),NOW(),NOW());
# 指定日期或时间插入
INSERT INTO t_date ( `year_col`, `date_col`, `time_col`, `dt_col`, `create_time` )
VALUES
( 2020, '2020-06-03', '09:00:00', '2020-06-03 10:04:04', '2020-06-03 10:04:04' ),
( 2020, '2020-05-10', '18:00:00', '2020-05-10 16:00:00', '2020-05-10 16:00:00' ),
( 2019, '2019-10-03', '16:04:04', '2019-10-03 16:00:00', '2019-10-03 16:00:00' ),
( 2018, '2018-06-03', '16:04:04', '2018-06-03 16:00:00', '2018-06-03 16:00:00' ),
( 2000, '2000-06-03', '16:04:04', '2000-06-03 08:00:00', '2000-06-03 08:00:00' ),
( 2008, '2008-06-03', '16:04:04', '2008-06-03 08:00:00', '2008-06-03 08:00:00' ),
( 1980, '1980-06-03', '16:04:04', '1980-06-03 08:00:00', '1980-06-03 08:00:00' );
根据上面测试表的数据，我们来学习下几种常见查询语句的写法：
根据日期或时间等值查询
select * from t_date where year_col = 2020;
select * from t_date where date_col = '2020-06-03';
select * from t_date where dt_col = '2020-06-03 16:04:04';
根据日期或时间范围查询
select * from t_date where date_col > '2018-01-01';
select * from t_date where dt_col >= '2020-05-01 00:00:00' and dt_col < '2020-05-31 23:59:59';
select * from t_date where dt_col between '2020-05-01 00:00:00' and '2020-05-31 23:59:59';
查询本月的数据
# 查询create_time在本月的数据
select * from t_date where DATE_FORMAT(create_time, '%Y-%m' ) = DATE_FORMAT( CURDATE( ) , '%Y-%m' );
查询最近多少天的数据
# 以date_col为条件 查询最近7天或30天的数据
SELECT * FROM t_date where DATE_SUB(CURDATE(), INTERVAL 7 DAY) <= date(date_col);
SELECT * FROM t_date where DATE_SUB(CURDATE(), INTERVAL 30 DAY) <= date(date_col);
其他各类查询写法
# 查询今天的数据
SELECT * FROM t_date WHERE TO_DAYS(create_time) = TO_DAYS(NOW());
# 查询某个月的数据
SELECT * FROM t_date WHERE DATE_FORMAT(create_time, '%Y-%m')='2020-06';
# 查询某年的数据
SELECT * FROM t_date WHERE DATE_FORMAT(create_time, '%Y')= 2020;
SELECT * FROM t_date WHERE YEAR(create_time) = 2020;
# 根据日期区间查询数据,并排序
SELECT * FROM t_date WHERE DATE_FORMAT(create_time, '%Y') BETWEEN '2018' AND '2020' ORDER BY create_time DESC;

近段时间工作中，需要对比两个Excel中对应的数据是否相同匹配（保证每一行中每一列数据都相同才算匹配），两个表都有15列，加起来超过150w行，如果用vlookup则相当费时间，而且Excel非常容易崩溃。

我发现比如以下：

表一：



表二：



缩小了样本，如果每列都要检查，那么每行中数据都得要搭配在一起，我在这里先从最左边加一列用来记录关键词，比如第一行 = A2&B2&C2&D2



现在从B列开始检查，C列插入一列然后输入下面VBA 代码：
Sub bb()
Dim arr1, arr2
Dim ssa, bw As Workbook

Set ssa = ThisWorkbook  ‘表一
Set bw = Workbooks("表二")
arr1 = ssa.Sheets(1).Range("A2:E6")
arr2 = bw.Sheets(1).Range("A2:E6")
Set dic1 = CreateObject("scripting.dictionary")
Set dic2 = CreateObject("scripting.dictionary")

For i = 1 To UBound(arr2)
If Not dic2.exists(arr2(i, 1)) Then dic2(arr2(i, 1)) = arr2(i, 2) 
Next

ReDim arr_v1(1 To UBound(arr1), 1 To 2) 
For n = 1 To UBound(arr1)
If dic2.exists(arr1(n, 1)) Then arr_v1(n, 1) = dic2(arr1(n, 1)) End If 
Next

ssa.Sheets(1).Range("C2:C6") = arr_v1 
End Sub


结果如下，表一：



其中表中空白部分则代表表一中没有与表二在该行不完全相同。

谢谢！

问题：VBA,  如何时间文本滚动的效果？

一般来说，从左向右或从右向左的走马灯效果比较常见
	
还想做一下，上下滚动的效果
	
这个我自己完全没思考，网上查了很多实现方法，学着实现下
 

思路最重要

多种思路，解决问题，从起点，到终点，观察差别，思考路径
	
分析起点，分析终点，拟合两者
	
多用几种方法开阔思路
 

方法1 使用典型的文本改变思路

主函数：显示文本和改变文本
	
delay1函数：实现delay效果
	
stop1函数：控制函数，因为主函数不关闭，实现
 

写法
	
Range("a1") = Right(Range("a1"), Len(Range("a1")) - 1) & Left(Range("a1"), 1)
	
Range("a1") = mid(Range("a1"), 2,Len(Range("a1")) - 1) & Left(Range("a1"), 1)
	
Len(Range("a1"))- 1)千万别写错成    Len(Range("a1")- 1))
 

换成"bb = Right(bb, Len(bb) - 1) & Left(bb, 1)"

上下的利用换行来做？，还是把文本显示为竖条的，换前后呢？

 

dim x

Sub WordsRoll()
x = 1
Range("a1") = "测试这句话的滚动效果"
Do
Range("a1") = Right(Range("a1"), Len(Range("a1")) - 1) & Left(Range("a1"), 1)
delay1 (0.1)
Loop Until x = 0
End Sub



Sub delay1(t)
time1 = Timer()
Do
  DoEvents
Loop While Timer() < (time1 + t)
End Sub



Sub stop1()
x = 0
End Sub


 

 

 

 

方法2：如果可以识别窗体和控件的长宽，利用这个

 



 

思路：往字符串里添加空格？

https://zhidao.baidu.com/question/546331261.html

 

 

还要禁止换行？

 

http://www.exceltip.net/thread-33847-1-1.html

 

参考文档

https://www.jianshu.com/p/99840a95f7ed

http://www.360doc.cn/mip/728196438.html

http://www.excelpx.com/thread-313255-1-1.html

http://www.excelpx.com/thread-198101-1-1.html

http://www.exceltip.net/thread-33847-1-1.html

 

 

​
Private Sub Label1_Click()

End Sub

'------------------走马灯------------------------------
Private Sub UserForm_Activate()
    Dim bb As String
    kk = False
    Label1.WordWrap = False
    bb = Label1
    
    Do
      If kk = True Then Exit Sub
'      bb = Right(bb, 1) & Left(bb, Len(bb) - 1)
'        bb = Right(bb, Len(bb) - 1) & Left(bb, 1)
         bb = Right(bb, Len(bb) - 1) & Left(bb, 1)
      Label1 = bb
      
            vv = Timer
         Do While Timer < vv + 0.1
            DoEvents
         Loop
      
    Loop
    
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
kk = True
End Sub

​

 

Private Sub Label1_Click()

End Sub

'------------------走马灯------------------------------
Private Sub UserForm_Activate()
    Dim bb As String
    kk = False
    Label1.WordWrap = False
    bb = Label1
    
    Do
      If kk = True Then Exit Sub
'      bb = Right(bb, 1) & Left(bb, Len(bb) - 1)
'        bb = Right(bb, Len(bb) - 1) & Left(bb, 1)
         bb = Right(bb, Len(bb) - 1) & Left(bb, 1)
      Label1 = bb
      
            vv = Timer
         Do While Timer < vv + 0.1
            DoEvents
         Loop
      
    Loop
    
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
kk = True
End Sub

前段时间，偶然看到一位名叫“KINGSON1412”的粉丝朋友私信提及两个问题“1、如何引用12个月份的工作簿里面的sheet1工作表的单元格出来？；2、不想将同一个文件夹的12个月份的工作簿导入到一个工作簿里面而直接进行最后单元格求和”，事实上，他的这个问题，如果说解决的话，我之前有一期头条文章和西瓜视频的作品关于“成功实现基于VBA下批量导入外部Excel相同格式文件数据”已经比较完美解决了这位粉丝朋友的问题，按理说，我今天无需再老生常谈啰嗦了吧。但是呢，我觉得还是有必要做，主要是关于不导入外部数据的情况隔空统计数据问题也算是一个小亮点吧。为了佐证该粉丝提的问题，我特意截图。如下图所示
图1 “KINGSON1412”粉丝的提问截图
说实在话，如果说是引用外部数据，我们可以通过跨文件路径引用的方式进行，比如在工作表单元格可以用公式：='路径[外部的Excel文档文件名]工作表'!单元格 的形式实现，当然，这种引用方式是比较简单的，但是不足之处是较为机械不够灵活，尤其是外部有多个Excel工作簿文档时，就显得有些力不从心。所以，从高级应用的意义上讲，VBA后台技术应该才是解决这种问题的首选方案，同时也很容易达到解决不导入外部数据直接统计的效果。
为此，我们先来看看如何解决该“KINGSON1412”粉丝的第一个问题“如何引用12个月份的工作簿里面的sheet1工作表的单元格出来？”，然后再看第二个问题“不想将同一个文件夹的12个月份的工作簿导入到一个工作簿里面而直接进行最后单元格求和”如何解决。对于第一个问题，有了之前的类似头条作品，应该说是理解起来是较为容易的，第二个问题，即是我们本次作品的创新点，还是先来解决第一个问题吧。
一、用VBA后台技术强势“引用”外部多个工作簿数据
为什么我们这里的引用要打上双引号呢？其目的是说明，我们表象上给人感觉是引用外部数据，事实上是从外部捕获吸取数据，说本质一点就是复制外部多个工作簿数据，而且从“感觉上”给人是没有打开外部这些多个工作簿文件的感觉。
(一)增加两个前端交互按钮
为了实现交互的友好性，我们增设了简单的交互按钮。如下图
图2 前端界面
(二)准备一些外部的Excel工作簿文档素材并统一命名
为了方便操作，我们准备了如下图所示的外部Excel工作簿数据素材。如下图所示
图3 备用的外部Excel工作簿数据素材
(三)后台功能代码实现
我们还是以截图的方式给各位呈现。如下系列截图所示
图4“引用”外部数据VBA后台功能代码截图1
图5“引用”外部数据VBA后台功能代码截图2
图6“引用”外部数据VBA后台功能代码截图3
(四)“引用”外部数据VBA后台执行效果体验
1、点击前端表单控件按钮，将看到“引用”外部数据成功的效果。如下图所示
图7 “引用”外部数据成功的效果
2、如果已经完全导入外部数据了，而此时再次强行点击前端表单控件按钮，将看到“禁止操作”的提示。如下图所示
图8 完全导入外部数据后将不允许进行再次导入操作
3、如果没有外部数据，而此时强行点击前端表单控件按钮，将看到“先准备外部数据”的提示。如下图所示
图9 没有外部数据将提示用户先准备外部数据
二、用VBA后台技术轻松实现不导入外部多个工作簿数据的数据统计
这一点，我刚才就说了，比较容易办到，给人感觉上是没有打开外部数据工作簿实施外部数据统计，事实上，我们也是利用了和上面类似的方法，只不过，我们无需导入外部数据而已，统计的操作机理是再程序运行中完成数据的统计和统计结果数据的回传而已，这样也减小了程序运行的时间复杂度和空间复杂度，使得运行更加高效。前端界面涉及和备用的外部数据素材在上面已经说明了，这里我们至分享实现的功能代码和执行效果截图。
(一)后台功能代码实现
同上面一样，我们还是以截图的方式给各位呈现。如下系列截图所示
图10 不导入外部数据实现统计数据的VBA功能代码截图1
图11 不导入外部数据实现统计数据的VBA功能代码截图2
(二)不导入外部数据而统计外部数据的执行效果体验
1、点击前端表单控件按钮，将看到不导入外部数据而统计外部数据成功的效果。如下图所示
图12 不导入外部数据而统计外部数据成功的效果
2、如果已经统计过来不导入的外部数据了，而此时再次强行点击前端表单控件按钮，将看到“禁止操作”的提示。如下图所示
图13 已经统计过来不导入的外部数据后将不允许进行再次统计操作
3、如果没有外部数据，而此时强行点击前端表单控件按钮，将看到“先准备外部苏剧”的提示。如下图所示
图14 没有外部数据将提示用户先准备外部数据
好了，到现在为止，我们将该“KINGSON1412”粉丝的分享完了，这中间的“引用”外部Excel工作簿数据技术实际上是利用了“拷贝”外部Excel工作簿数据的行为(语法：“源数据区域.Copy Destination:=目标数据区域”)，通过循环，每次都用一个临时的工作簿对象变量去指向打开的外部工作簿文(打开的工作簿文档为了隐藏其显示，我们利用“Windows(工作簿名称).Visible=False”方法实现视觉上的不显示)，然后用一个数据范围区域对象指向具体要“拷贝”的该工作簿的数据区域，“拷贝”该区域的数据到目标工作簿指定的区域，最后，不保存源外部数据的工作簿文档形式进行关闭(语法：“源外部数据工作簿.Close False”)，至此，就完成了功能意义上的外部工作簿数据的形式上的“引用”；另外，“不导入外部工作簿数据的情况下实现对外部数据的统计计算”其实和“引用”外部工作簿数据的方法类似，只是省去了“拷贝”外部的数据的功能，替代的是直接每循环一次，都统计一下打开的临时外部数据，除此之外，其它的都和“引用”的方法完全一致。现在，大家可以比对我之前的做过的类似案例的，进行选择适合自己的方法解决外部数据导入和统计的问题了，大胆去试试吧！
最后，还是那句老话，非常感谢各位粉丝朋友的长期关注(头条号：跟我学Office高级办公)、推广和对作品的点评！疫情快过去了，现在已经是深秋了，天气也已经骤然降温了，大家可要多多注意身体健康别感冒哦，与此同时，也请多多关注我的Office高级办公其他的后续原创作品哦！谢谢！