• 全部
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

关于时间表示的问题

teiklance 2005-03-31 03:39:15
系统日期的上一个月的第一天
系统日期的上一个月的最后一天
...全文
125 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hidejay 2005-03-31
Dim d As Date = Now.Date
Dim p As Date
p = d.AddMonths(-1)
Dim a As Integer = p.DaysInMonth(Year(p), Month(p))
Dim m1 As New Date(Year(p), Month(p), 1)
Dim m2 As New Date(Year(p), Month(p), a)
MessageBox.Show(m1.ToString)
MessageBox.Show(m2.ToString)
呵呵,错了一个变量,代码拿来要仔细看看,表一味COPY,否则知识永远是人家的

回复
teiklance 2005-03-31
不过还是十分感谢你们的帮助,CSDN万岁
回复
teiklance 2005-03-31
兰冰的做法比较通俗吧,闵峰Dim d As Date = Now.Date
Dim p As Date
p = d.AddMonths(-1)
Dim a As Integer = p.DaysInMonth(Year(p), Month(p))
Dim m1 As New Date(Year(p), Month(p), 1)
Dim m2 As New Date(Year(p), Month(p), a)
MessageBox.Show(m1.ToString)
MessageBox.Show(m1.ToString)
的方法论只能输出上月第一天,无法输出上月最后一天
回复
strXiaoCaiNiao 2005-03-31
Dim d1, d2 As String
Dim m, days As Integer
If Today.Month = 1 Then
m = 12
Else
m = Today.Month - 1
End If

days = Today.AddMonths(-1).DaysInMonth(Today.Year, m)
d1 = m & "月1日"
d2 = m & "月" & days & "日"

第一天总是1号,最后一天,这个月有几天就几号
回复
hamadou 2005-03-31
Dim d As Date = Now.Date
Dim p As Date
p = d.AddMonths(-1)
Dim a As Integer = p.DaysInMonth(Year(p), Month(p))
Dim m1 As New Date(Year(p), Month(p), 1)
Dim m2 As New Date(Year(p), Month(p), a)
MessageBox.Show(m1.ToString)
MessageBox.Show(m1.ToString)
回复
点点星灯 2005-03-31
上一个月,可以用
Me.Label2.Text = CType(Now, String)
Me.Label3.Text = CType(Now.AddMonths(-1), String)
Me.Label4.Text = CType(Now.AddMonths(1), String)

但第一天和最后一天就不知道了.
UP
回复
相关推荐
发帖
VB
创建于2007-09-28

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2005-03-31 03:39
社区公告
暂无公告