十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
用日期函数day()可获得当前日期,time()可获得当前系统时间.
10多年专注成都网站制作,成都定制网页设计,个人网站制作服务,为大家分享网站制作知识、方案,网站设计流程、步骤,成功服务上千家企业。为您提供网站建设,网站制作,网页设计及定制高端网站建设服务,专注于成都定制网页设计,高端网页制作,对成都被动防护网等多个行业,拥有多年的营销推广经验。
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16显示当前日期
now 这个函数可以获得当前系统时间(包括年月日,小时分钟秒)
而
year()
month()
day()
等等则可以从now返回的值中分别提取年,月,日的信息
不用Now,换用Date应该就行了,mm即可以表示月份也可以表示分钟,所以这里容易有岐义.
Format(Date, "yyyy年mm月dd日 ")
这个非常简单的.
用时间函数,然后用文字转下.就行了.
我现在用的是.NET,不太清楚VB6.0是不是了.
你先用 日期里的Month 把一个时间中的月份取出来 .
再用Format转化下文本格式, 比如用的月份是 mon 那么就是: Format(mon,"00")
这样就行了. "00" 表示的是以两位数字显示,没到两位的以0补.
如果是在EXCEL宏里,那就直接给你写了吧:
Dim Mon1 As String
Dim Mon2 As String
Mon1 = VBA.Month(VBA.Now)
Mon2 = Format(Mon1, "00")
这里的Mon2 就是 你的那个月份.
不是 有 函数嘛?
now() 就是 吧
取得 后 再 分离出你所需的,分别赋值 就行了,当然 还是 有 函数的
Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '获得当前日期字符串
Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '当前日期转换成DateTime
Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '获得当前日期是星期几
Dim differadd As Integer = 1 - ThisWeekDay '相差的天数(星期1与当前星期几相差的天数)
Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)
Dim MyYear As Integer = Format(Now, "yyyy") '获取当前日期的年份
Dim MyMonth As Integer = Format(Now, "MM") '获取当前日期的月份
Dim MyDay As Integer = Format(Now, "dd") '获取当前日期是几号
Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)
Dim Yourday As DateTime = MyToday.Add(MyAdd)
MsgBox("本周星期一的日期是:" Yourday)