1.6w+
社区成员
- 全部
- VBS
- .NET技术
- VBA
- VB网络编程
- VB多媒体
- VB数据库
- VB控件
- VB COM/DCOM
- VB基础类
- VB API
- 问答
...全文
当前发帖距今超过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,否则知识永远是人家的
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)
的方法论只能输出上月第一天,无法输出上月最后一天
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号,最后一天,这个月有几天就几号
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)
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
Me.Label2.Text = CType(Now, String)
Me.Label3.Text = CType(Now.AddMonths(-1), String)
Me.Label4.Text = CType(Now.AddMonths(1), String)
但第一天和最后一天就不知道了.
UP
vue-devtools chrome 插件 chrome（谷歌浏览器）vue代码调试插件， 已打包。解压后，通过chrome扩展程序加载即可使用。
使用方法：
1、chrome浏览器输入地址“chrome://extensions/”进入扩展程序页面
2、勾选开发者模式
3、点击“加载已解压的扩展程序...”按钮，选择解压后的chrome文件夹，即可添加成功。
4、添加完vue-devtools扩展程序之后，我们在调试vue应用的时候，ch
rome开发者工具中会看一个vue的一栏，点击之后就可以看见当前页面vue对象的一些信息
QT实战之监控回看系统 本课程基本Qt for windows平台下开发的监控回看界面程序，通过选择界面上的时间和日期可以准确定位观看过去的某一年某一日某个时刻的监控画面，支持对接第三方海康设备的功能，同时也能对于学习QT有很大的帮助。 学会对接第三方设备，学会QT开发，学会界面布局，学会界面设计。
Surface Acoustic Wave Devices in Telecommunications Surface Acoustic Wave Devices in Telecommunications
C语言及程序设计初步 课程针对没有任何程序设计基础的初学者，全面介绍C语言及利用C语言进行程序设计的方法。课程注重知识的传授，更关注学习者能够通过实践的方式，真正学会利用C语言解决问题，奠定程序设计的基础。为此，专门设计了实践方案，指导学习者在听讲的同时，有效完成实践。讲课中还适时穿插进行学习指导，帮助初学者尽快掌握程序设计的学习方法。 课程主要针对无任何编程经历的初学者，利用主讲者多年来教授大一学生的教学经验，准确把握知识点掌握中的难点，在和视频配套的实践方案配合下，帮助初学者顺利掌握知识，获得学习中的自信。
Qt图形视图框架详解 介绍Qt中的Graphics View Framework，涉及View、Scene、Item的关系，如何自定义QGraphicsItem、处理Item之间的关联、如何布局及定义自己的布局Item、如何变幻Item、如何应用动画、如何处理拖放、如何给Item应用图形效果，提供拼图游戏、画板两个有用的实例。 通过本课程的学习，能够掌握Qt Graphics View Framework的基本应用，使用图形视图框架开发需要丰富的GUI效果的应用软件以及需要维护大量图元的、对图形界面层次要求较高的应用。
大规模病毒爆发预案(样稿090408) 病毒预案有很多，大多没有具体的方法和步骤，本人参考多篇预案，并结合实际进行的分类处理。希望能对有需求的同仁些许帮助
针对局域网内的可能的大规模病毒爆发，导致面积性故障的病毒，给出预案的样稿
1、arp
2、聊天软件
3、系统软件漏洞
QRegExp的详细解析 引言
正则表达式（regular expression）就是用一个“字符串”来描述一个特征，然后去验证另一个“字符串”是否符合这个特征。比如 表达式“ab+” 描述的特征是“一个 'a' 和 任意个 'b' ”，那么 'ab', 'abb', 'abbbbbbbbbb' 都符合这个特征。 正则表达式可以用来：（1）验证字符串是否符合指定特征，比如验证是否是合法的邮件地址。（2）用来查找字符串，从一个长的文本中查找符合指定特征的字符串，比查找固定字符串更加灵活方便。（3）用来替换，比普通的替换更强大。
手把手做安卓应用开发 安豆是一个想学Android应用开发的小白，于是它找到自己的邻居－程序员大牛－熊哥帮忙。熊哥手把手带着安豆搭建程序的开发环境，实现应用的功能，美化应用界面，让安豆终于开发出了自己的第一个安卓应用－计算器。
学习的过程中，两个伙伴有问有答，学习的过程生动有趣。你一定不会睡着。 让从没有接触过安卓开发并且什么都不会的小白，变成一个能够开发出简单的计算器应用的菜鸟。
让小白对安卓开发有个整体的认识，初步形成安卓开发的概念，掌握安卓开发最最基础的知识。
OpenGL-实现视频播放(FFMpeg) 课程采用FFMpeg作视频解码，采用OpenGL实现视频的渲染，从RGB数据的绘制，到直接渲染YUV数据，实现三路YUV数据单纹理的输入，提升系统性能，接着采用PBO方式优化内存到显存的传输，实现DMA传输，解放CPU,将解码和渲染分离到不同的线程中，极大的提升了系统的性能。后介绍视频特效的实现。 介绍如何采用OpenGL渲染视频帧数据，从固定管线到可编程管线一次实现，采用PBO实现DMA数据传输处理，以及简单的视频特效的实现。
改变状态栏字体的颜色 和所有改变状态栏字体的代码一样，继承CStatusBar类，只是我这个是强制对带有某些关键字的Message进行颜色改变。与目前在网上能找到的XStatusBar想必，更简洁，主要是用XStatusbar的方法时，设置某一Message为红色后，在它之后所有的状态栏文字都为红色，除非再重新设置颜色；但是menu中的状态栏信息是底层调用，我们无法实时改变文字颜色。
