VBA法自动返回当前周次

yeminqiang

weiyingde 发表于 2016-1-17 08:37
再看下面，为什么不等？
Sub 今年五一()

formate返回的是字符串，DateSeria返回的是日期值

yeminqiang

1. Sub cdsr1()
   
2. rq1 = DateValue("5 1") '省略年份，将使用当前年份和cdate一样
   
3. MsgBox rq1
   
4. End Sub

复制代码

weiyingde

一指禅62 发表于 2016-1-17 09:03
请楼主体会一下：

Sub 获取当前日所处学期周次()
dim 周次
'附学期起始：
'   期别         学期开头日         学期结束日
’ 上学期        阳历9月1           阴历腊月15
'  下学期        阴历正月12         阳历7月1

' 注：阴阳历换算函数见附件： lunar，solar都是自定义函数。  
’    阳历转阴历函数lunar，阴历转阳历函数solar
   
rq = Format(Date, "yyyy-mm-dd")
rq1 = lunar(Date) '阳历对应的阴历日

rq2 = Format(Year(Date) & "/1/12", "yyyy-m-d") '阴历日，下学期的开头第一天
rq3 = Format(Year(Date) & "/7/1", "yyyy-m-d") ' 阳历日，下学期的结束的一天

rq4 = Format(Year(Date) & "/9/1", "yyyy-mm-dd")' 阳历日，上学期的开头第一天
rq5 = Format(Year(Date) & "/12/15", "yyyy-m-d")'阴历日，上学期的结束的一天

with worksheetfunction
If CDate(rq1) >= CDate(rq2) And CDate(rq) < CDate(rq3) Then '如果当前日期对应的阴历日大于当年的阴
'                                                            历正月12，同时当前阳历日小于当年7月1日
周次 = .RoundUp(Date / 7, 0) - .RoundUp(Val(.solar(Format(Year(Date) & "/1/12", "yyyy-m-d"))) / 7, 0) + 1
End If
If CDate(rq) >= CDate(rq4) And CDate(rq1) <= CDate(rq5) Then '如果当前阳历日期大于9月1日，同时
'                                                              当前日期对应的阴历日小于腊月15日
周次 = .RoundUp(Date / 7, 0) - .RoundUp(Val(Format(Year(Date) & "/9/1", "yyyy/mm/dd")) / 7, 0) + 1 '
End If
end with
msgbox 周数 '按说现在应该是21周，但没有结果。
End Sub

weiyingde

附件如下，请帮忙！

weiyingde

yeminqiang 发表于 2016-1-17 09:25

谢谢提醒，感谢了，对日期和时间的处理，我确实比较陌生，多谢帮助

weiyingde

yeminqiang 发表于 2016-1-17 09:20
formate返回的是字符串，DateSeria返回的是日期值

是这样的，怪不得。

weiyingde

yeminqiang 发表于 2016-1-17 09:20
formate返回的是字符串，DateSeria返回的是日期值

无分可送，甚是遗憾！送句感谢！！

weiyingde

一指禅62 发表于 2016-1-17 09:03
请楼主体会一下：

一指禅62友，format函数得出的结果真是很怪，讨教一下其特点。到底是string，还是Date呢？如果不是的话，为什么在测试一中不显示：Variant的数据类型呢？

weiyingde

自行解决，代码如下：
Sub 获取当前日所处学期周次()
Dim zc, rq As Date, rq1 As Date, rq2 As Date, rq3 As Date, rq4 As Date, rq5 As Date, rq6 As Date, rq7 As Date
'附学期起始：
'   期别         学期开头日         学期结束日
'  上学期        阳历9月1           阴历腊月15
'  下学期        阴历正月12         阳历7月1

' 注：阴阳历换算函数见附件： lunar，solar都是自定义函数。
'    阳历转阴历函数lunar，阴历转阳历函数solar
   
rq = Format(Date, "yyyy-mm-dd")
rq1 = lunar(Date) '阳历对应的阴历日

rq2 = Format(Year(Date) & "/1/12", "yyyy-m-d") '阴历日，下学期的开头第一天
rq3 = Format(Year(Date) & "/7/1", "yyyy-mm-dd") ' 阳历日，下学期的结束的一天
rq4 = CDate(Format(Year(Date) & "/9/1", "yyyy-mm-dd"))  ' 阳历日，上学期的开头第一天
rq5 = Format(Year(Date) & "/12/31", "yyyy-mm-dd") '阳历十二月31日
rq6 = Format(Year(Date) & "/1/1", "yyyy-mm-dd") '阳历元旦
rq7 = Format(Year(Date) & "/12/15", "yyyy-m-d") '阴历日，上学期的结束的一天

With WorksheetFunction
If rq >= rq4 And rq <= rq5 Then
  zc = .RoundUp(Date / 7, 0) - .RoundUp(rq4 / 7, 0) + 1
ElseIf rq >= rq6 And CDate(rq1) <= CDate(lunar(rq7)) Then
  rq4 = CDate(Format(Year(Date) - 1 & "/9/1", "yyyy-mm-dd"))
  zc = .RoundUp(Date / 7, 0) - .RoundUp(rq4 / 7, 0) + 1
ElseIf CDate(rq1) >= CDate(lunar(rq2)) And rq <= rq3 Then
  zc = .RoundUp(Date / 7, 0) - .RoundUp(Val(solar(Format(Year(Date) & "/1/12", "yyyy-m-d"))) / 7, 0) + 1
End If


End With
End Sub

weiyingde

DateSerial函数和datevalue以及Cdate三个函数有何区别？