[µo°Ý] EXCEL ¹ï1900¦~¥H«eªº¤é´Á,¦p¦ó¬Û¥[´î

dou10801

½Ð±Ð¦U¦ì¥ý¶i,EXCEL ¹ï1900¦~¥H«eªº¤é´Á,¦p¦ó¬Û¥[´î.
[¨Ò]:  1850/5/20-1850/5/15=5

Andy2483

¦^´_ 1# dou10801


    http://forum.twbts.com/thread-23971-1-2.html

Andy2483

¦^´_ 1# dou10801


    ÁÂÁ«e½úµoªí¦¹¥DÃD
«á¾Ç¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

°õ¦æµ²ªG:

¤U¸ü (71.53 KB)

2023-5-5 07:58

Sub TEST_20230505_1()
MsgBox CDate("1850/5/20") - CDate("1850/5/15")
End Sub

Sub TEST_20230505_2()
Dim D1 As Date, D2 As Date
D1 = "1850/5/20": D2 = "1850/5/15"
MsgBox D1 - D2
End Sub

Sub TEST_20230505_3()
MsgBox CDate("1850/5/15") + 5
End Sub

Sub TEST_20230505_4()
MsgBox CDate("1850/5/20") - 5
End Sub

dou10801

¦^´_ 3# Andy2483 ¦pªþ¥ó,·q½Ð«e½ú«ü¾É,ÁÂÁÂ.

Andy2483

¦^´_ 4# dou10801


    ÁÂÁ«e½ú¦^´_
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¤½¾ä¤é´ÁªºÀË´ú,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

°õ¦æ«e:

¤U¸ü (124.83 KB)

2023-5-8 11:02

ÀË´ú¥X«D¤½¾ä¤é:

¤U¸ü (126.97 KB)

2023-5-8 11:02

­×¥¿¤é´Á«á°õ¦æµ²ªG:

¤U¸ü (183.44 KB)

2023-5-8 11:03

Option Explicit
Sub TEST()
Dim Brr, Crr, i&, N&, Ds As Date, Dn As Date
Brr = Range([A2], Cells(Rows.Count, "A").End(3))
ReDim Crr(1 To UBound(Brr), 1 To 2)
For i = 1 To UBound(Brr)
   If Not IsDate(Brr(i, 1)) Then Crr(i, 1) = "¡ö«D¤½¾ä¤é": N = N + 1
Next
'¡ô¥ý³]°j°éÀË´ú¤é´Á¬O§_¬°¥¿½T¤½¾ä¤é´Á
If N > 0 Then [B2].Resize(UBound(Crr), 2) = Crr: MsgBox "¸ê®Æ¿ù»~! ½Ð­×¥¿«á¦A°õ¦æ!": Exit Sub
'¡ô¦pªG¦³¿ù¥²¶·¥ý­×¥¿¿ù»~,¦A­«·s°õ¦æ
For i = 1 To UBound(Brr) - 1
   Crr(i, 1) = Brr(i + 1, 1) & "-" & Brr(i, 1)
   Ds = Brr(i + 1, 1): Dn = Brr(i, 1): Crr(i, 2) = Ds - Dn
   '¡ô¥Ñ©óÅܼƫŧi,·|¦Û°Ê±N¦r¦êÂà´«¬°¤é´Á
Next
[B2].Resize(UBound(Crr), 2) = Crr
Erase Brr, Crr
End Sub