求助大神

Qs18

exce vba SQL语句日期变量的拼接

Qs18

日期 = CDate(Sh79.Range("B2").Value)

Qs18

日期 = CDate(Sh79.Range("B2").Value)
strSQL = "select SUM(借方金额),SUM(贷方金额) from [总表$A:I] where 店名='公安'and where 账务所属时间=#" & 日期 & "#"

WANT-T

日期格式太多了，通过代码是看不出具体格式的，自己的数据，日期建议统一成文本类型，如：2024年5月1日，转成20240501，2024年5月，转成202405，2024年转成2024，记住是文本，不是数值，这样检索起来会方便很多；

Qs18

WANT-T 发表于 2024-5-17 14:15
日期格式太多了，通过代码是看不出具体格式的，自己的数据，日期建议统一成文本类型，如：2024年5月1日，转 ...

您好！如果日期时间格式改为了文本，进行日期区间查询怎么查呢。望指教

fanyoulin

Qs18 发表于 2024-5-17 14:25
您好！如果日期时间格式改为了文本，进行日期区间查询怎么查呢。望指教

vba里面的日期需要用#来显示定义，有这么几个步骤：

1、用字符拼接自定义日期，需要拼接成这个样子：rq="2024-05-17"；
2、用cdate转换成真正的日期 s1=cdate(rq);
3、在SQL中加上#，大致的格式：
     sqlstr="...  where (日期 between #" & s1 & "# and #" & s2 & "#)
     其中 s1 , s2都是自定义日期；

Qs18

fanyoulin 发表于 2024-5-17 15:08
vba里面的日期需要用#来显示定义，有这么几个步骤：

1、用字符拼接自定义日期，需要拼接成这个样子：r ...

谢谢，刚才到时拼接成功了，但是又遇到了新的问题，当SQL语句的where条件达到3个的时候，又报错了。

WANT-T

Qs18 发表于 2024-5-17 14:25
您好！如果日期时间格式改为了文本，进行日期区间查询怎么查呢。望指教

1、between and
acct_date between '20240510' and '20230530'
2、>=,<=
acct_date >='20240510' and acct_date <= '20240530'

Qs18

WANT-T 发表于 2024-5-18 19:13
1、between and
acct_date between '20240510' and '20230530'
2、>=,='20240510' and acct_date

谢谢帮助，确实这样也是不错的一种方法