[实习周记的第一个星期]对于实习，算来已不是第一次了，但要论时间，这次却是要历时最长的一次了，当带着一份既欣喜又紧张的心情踏上实习征程时，我再次感受到了实习难，找实习单位更难！本跟徐晓丹老师说好了实...+阅读

怎样用VB编一个数字钟要求显示年月日时分秒和星期

代码如下： Private Sub Timer1_Timer（) '星期处理 Dim x As String Dim dn As Integer, dm As Integer Select Case Weekday(Now, 2) Case 1 x = ＂星期一＂ Case 2 x = ＂星期二＂ Case 3 x = ＂星期三＂ Case 4 x = ＂星期四＂ Case 5 x = ＂星期五＂ Case 6 x = ＂星期六＂ Case 7 x = ＂星期日＂ End Select '计算所有年的天数 dn = 0 For i = Year(Now) To 2019 If i Mod 100 = 0 Then If i Mod 400 = 0 Then dn = dn + 366 Else dn = dn + 365 End If ElseIf i Mod 4 = 0 Then dn = dn + 366 Else dn = dn + 365 End If Next i Y = Year(Now) If Y Mod 400 = 0 Or (Y Mod 4 = 0 And Y Mod 1000) Then '计算闰年已过天数 Select Case Month(Now) Case 1 '本月31天 dm = Day(Now) Case 2 '本月29天 dm = 31 + Day(Now) Case 3 '本月31天 dm = 60 + Day(Now) Case 4 '本月30天 dm = 91 + Day(Now) Case 5 '本月31天 dm = 121 + Day(Now) Case 6 '本月30天 dm = 152 + Day(Now) Case 7 '本月31天 dm = 182 + Day(Now) Case 8 '本月31天 dm = 213 + Day(Now) Case 9 '本月30天 dm = 244 + Day(Now) Case 10 '本月31天 dm = 274 + Day(Now) Case 11 '本月30天 dm = 305 + Day(Now) Case 12 '本月31天 dm = 335 + Day(Now) End Select Else '计算平年已过天数 Select Case Month(Now) Case 1 '本月31天 dm = Day(Now) Case 2 '本月28天 dm = 31 + Day(Now) Case 3 '本月31天 dm = 59 + Day(Now) Case 4 '本月30天 dm = 90 + Day(Now) Case 5 '本月31天 dm = 120 + Day(Now) Case 6 '本月30天 dm = 151 + Day(Now) Case 7 '本月31天 dm = 181 + Day(Now) Case 8 '本月31天 dm = 212 + Day(Now) Case 9 '本月30天 dm = 243 + Day(Now) Case 10 '本月31天 dm = 273 + Day(Now) Case 11 '本月30天 dm = 304 + Day(Now) Case 12 '本月31天 dm = 334 + Day(Now) End Select End If Label1.Caption = Format(Now, ＂yyyy mm dd ＂) & x & Format(Now, ＂ hh mm ss ＂) & ＂距2020年1月1日剩余天数：＂ & dn - dm & ＂天.＂ End Sub

延伸阅读：

怎么总结来公司第一个星期的工作情况主要写一下主要的工作内容，取得的成绩，以及不足，最后提出合理化的建议或者新的努力方向。。。。。。。 以下供你参考： 转载：总结，就是把一个时间段的情况进行一次全面系统的总检查...

妇科治疗室护士一个星期工作总结服务、检查与管理的重要。 没有范文。 以下供参考， 主要写一下主要的工作内容，如何努力工作，取得的成绩，最后提出一些合理化的建议或者新的努力方向。。。。。。。 工作总结就是...

一个星期的学习计划怎么写一 到了现在 不是着急 有用的 现在是要安心，要告诉自己能学多少就学多少，不要想能成功多少 二没人能给你做准确计划 三 现在开始学不晚 如果从今天起你能一直学下去 我过去和...

物流主管一个星期总结及下周计划强调服务与管理的重要性。 没有范文。 以下供参考， 主要写一下主要的工作内容，如何努力工作，取得的成绩，最后提出一些合理化的建议或者新的努力方向。。。。。。。 工作总结就是...

怎样健康的在一个星期之内减肥？？2饮食计划： 早餐： 25克蜂蜜+250ML水（100大卡） 1个包子/80克全麦面包/1根大玉米（选一）（200大卡） 300克豆浆/250克低脂牛奶（选一）（100大卡） 加餐： 1个大苹果（100大卡） 午餐： 100克米饭/1碗赤豆...

学生正常减肥一个星期能瘦多少保证你7天减10斤左右，保证你营养不失衡！！ 前4天：早上2根胡萝卜和一个苹果达成2杯半果汁，分两次喝；中午2个苹果和一根胡萝卜打成同样分量的汁，分两次喝。期间肚子饿可以很点酸奶，要原...

一个星期怎样才能瘦五斤谁能给我一个瘦身方案最好是亲身经历的我就这样跟你说吧 呵呵 我现在130多斤 我最重时候知道多少么？ 呵呵 210斤 回来我就去我们家门口的减肥医院 当然我不提倡你也去医院 开销太贵 但是 医生给我指定的减肥计划是...

如何在一个星期内减20斤如何在一个星期内减20斤：首先要弄清发胖的原因。人为什么会发胖？就一个根本原因：输入>消耗！你吃得太多，身体需要不了那么多营养，就把它变成脂肪积存起来了。要使自己不发胖，必须保...

在VB中怎样区分和使用integerlongsingledoublestring等在VB中怎样区分和使用integerlongsingledoublestring等，一个优秀业务员要具备什么条件：区分在于类型的定义，使用则带有主管和客观很多成分 Integer是有符号短整型，2个字节，能表示...