怎么表示这个date?

susanxiaoshan 2003-03-30 10:44:57
我有代码如下:
Private Sub Form_Load()
i= date2- now
Label1.Caption = "离本月25号还有" + Str$(i) + "天!"
End Sub

我现在希望date2是一个年份和月份都和now相同且日期为25的日子,怎么表示date2呢?
...全文
56 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
goldfish9 2003-03-30
  • 打赏
  • 举报
回复
同上
billyqiao 2003-03-30
  • 打赏
  • 举报
回复
date2 = cdate(Year(Now) & " - " & Month(Now) & " - " & "25")
lihonggen0 2003-03-30
  • 打赏
  • 举报
回复
Dim date2 As Date
date2 = Year(Now) & " - " & Month(Now) & " - " & "25"
i = DateDiff("d", date2, Now)
Label1.Caption = "离本月25号还有" + Str$(i) + "天!"
lihonggen0 2003-03-30
  • 打赏
  • 举报
回复
date2 = Year(Now) & " - " & Month(Now) & " - " & "25"
northwolves 2003-03-30
  • 打赏
  • 举报
回复
dateserial(year(date()),month(date()),25)

7,762

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧