Foxtable(狐表)用户栏目专家坐堂 → 怎么判定上周有购买过电脑,代码要怎么写


  共有3505人关注过本帖树形打印复制链接

主题:怎么判定上周有购买过电脑,代码要怎么写

帅哥哟,离线,有人找我吗?
F1216310
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:310 威望:0 精华:0 注册:2021/1/10 15:53:00
怎么判定上周有购买过电脑,代码要怎么写  发帖心情 Post By:2023/9/5 13:42:00 [只看该作者]

产品 购买日期
电脑 8.29
电脑 8.30
电脑 9.5

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/9/5 13:52:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/2720.htm


Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek '算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays( - w) '获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w) '获取本周的最后一天
Dim Filter As String
Filter = "购买日期 >= #" & dt1 & "# And 购买日期 <= #" & dt2 & "#"
msgbox("本周条件:" & Filter)

Dim Filter1 As String = "购买日期 >= #" & dt1.AddDays( - 7) & "# And 购买日期 <= #" & dt2.AddDays( - 7) & "#"
msgbox("上周条件:" & Filter1)

 回到顶部
帅哥哟,离线,有人找我吗?
listfor
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:167 积分:1550 威望:0 精华:0 注册:2017/11/6 17:23:00
  发帖心情 Post By:2023/9/5 14:53:00 [只看该作者]

Imports System.Globalization

Public Sub CheckComputerPurchaseLastWeek()
Dim purchaseRecords As List(Of Dictionary(Of String, Object)) = New List(Of Dictionary(Of String, Object))() From {
New Dictionary(Of String, Object) From {{"product", "电脑"}, {"purchaseDate", New DateTime(2023, 8, 29)}, },
New Dictionary(Of String, Object) From {{"product", "电脑"}, {"purchaseDate", New DateTime(2023, 8, 30)}, },
New Dictionary(Of String, Object) From {{"product", "电脑"}, {"purchaseDate", New DateTime(2023, 9, 5)}, }
}

Dim currentDate As DateTime = DateTime.Now
Dim lastWeekStart As DateTime = currentDate.AddDays(-7).Date.ToString("MM/dd/yyyy", CultureInfo.InvariantCulture)

Dim hasPurchase As Boolean = False

For Each record In purchaseRecords
If record("purchaseDate").ToString("MM/dd/yyyy", CultureInfo.InvariantCulture) >= lastWeekStart Then
hasPurchase = True
Exit For
End If
Next

If hasPurchase Then
Console.WriteLine("上周有购买电脑")
Else
Console.WriteLine("上周没有购买电脑")
End If
End Sub
 

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/9/5 15:04:00 [只看该作者]

如果是ChatGPT提问的代码,以后建议还是不要发上来了。

 回到顶部