Board logo

標題: [發問] 日期判斷有問題? [打印本頁]

作者: t8899    時間: 2016-6-21 07:03     標題: 日期判斷有問題?

如附檔[attach]24530[/attach]
作者: c_c_lai    時間: 2016-6-21 08:01

回復 1# t8899
  1. Private Sub CommandButton1_Click()
  2.     Dim W, k
  3.    
  4.     For k = 2 To 500
  5.         '  W = Format(Cells(k, "A"), "YYYY/MM/DD")
  6.         W = Cells(k, "A")                     '  欄位儲存格式為國曆
  7.         '  If Cells(k, "A") > Date Then
  8.         If W > Format(Date, "EE/MM/DD") Then  '  將 Date 同步轉為國曆
  9.             MsgBox Cells(k, "A").Row
  10.             Exit For
  11.         End If
  12.     Next
  13. End Sub
複製代碼

作者: t8899    時間: 2016-6-21 08:58

回復  t8899
c_c_lai 發表於 2016-6-21 08:01


完全正確, thanks




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)