µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ¦p¦ó¤ñ¸û ¥Á°ê¤é´Á
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
¦p¦ó¤ñ¸û ¥Á°ê¤é´Á
Andy2483
µoµu®ø®§
¥[¬°¦n¤Í
Andy2483
(«pÁy¥Öªº¾Ç¥Í)
·í«eÂ÷½u
UID
36777
©«¤l
1429
¥DÃD
40
ºëµØ
0
¿n¤À
1453
ª÷¿ú
1453
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
1427 ¤p®É
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-5-18
¡@¼ÊºÙ:
«pÁy¥Öªº¾Ç¥Í
¤j¾Ç¥Í
©«¤l
1429
¥DÃD
40
ºëµØ
0
¿n¤À
1453
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-5-18
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2023-4-27 14:17
|
Åã¥Ü¥þ³¡©«¤l
¦p¦ó¤ñ¸û ¥Á°ê¤é´Á
¦U¦ì«e½ú¦n,«á¾Ç½Ð±Ð¦U¦ì«e½ú
¦³¤°»ò¤è¦¡¥i¥H§ïµ½¨âÓ¥Á°ê¤é´ÁÅÞ¿èÈ»P´¶³q»{ª¾¤£¦P
EX: 99/4/30 À³¸Ón¤p©ó 100/4/30,¥i¬O¥H¤U½d¨ÒÅÞ¿èÈ«o¬O False
«á¾Ç¾q¶w
½Ð±Ð¦U¦ì«e½ú:«á¾Ç¥X¤F¤°»ò¿ù»~?«ç»ò¥¿½T¤ñ¸û?
Option Explicit
Sub TEST()
Dim T, T1
T = CDate("99/4/30")
T1 = CDate("100/4/30")
MsgBox T < T1
End Sub
°õ¦æµ²ªG:
¤U¸ü
(14.75 KB)
2023-4-27 14:15
¼Ó¥D¼ö©«
½Ð±Ð ¤½¦¡_¸õÄæ¨Ã¥B²Å¦X±ø¥ó¤~¥[Á`
Excel VBA¦p¦óÀˬd_§t¦³µù¸Ñ®æ¼Æ¶q
Excel VBA¦p¦ó §Ö³t¨ú®ø¦X¨ÖÀx¦s®æ_ªÅ®æ¶ñ¤J
½Ð±Ð VBA ¦p¦ó¤é´Á+®É¶¡Âà¤Æ¬°¤å¦r
Excel VBA¦p¦óÀˬd_§t¦³®æ¦¡¤Æ±ø¥óÀx¦s®æ¼Æ
¾î¦¡¸ê®ÆÂà´«¬°ª½¦¡¸ê®Æ_¦U±è¦¸¦W³æ
½Ð±Ð ¤½¦¡_¸õÄæ¥[Á`
Excel¬O¦p¦ó§P§O¨Ï¥Îªº¸ê®Æ¦C¬O§_³sÄò
¦Û°Ê¤W©³¦â»P¦r¦â ¨Ã¦Û°Ê½Õ¾ã¤Ï®t©ö©óÃѧO
©Þªe¤ñÁɹڤ۶¤¥î
¦¬ÂÃ
¤À¨É
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
Andy2483
µoµu®ø®§
¥[¬°¦n¤Í
Andy2483
(«pÁy¥Öªº¾Ç¥Í)
·í«eÂ÷½u
UID
36777
©«¤l
1429
¥DÃD
40
ºëµØ
0
¿n¤À
1453
ª÷¿ú
1453
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
1427 ¤p®É
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-5-18
¡@¼ÊºÙ:
«pÁy¥Öªº¾Ç¥Í
¤j¾Ç¥Í
©«¤l
1429
¥DÃD
40
ºëµØ
0
¿n¤À
1453
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-5-18
2
#
µoªí©ó 2023-4-27 16:41
|
Åã¥Ü¥þ³¡©«¤l
¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-4-27 16:47 ½s¿è
¦^´_
2#
ã´£³¡ªL
ÁÂÁ«e½ú«ü¾É
ÁA¸Ñ¤F,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú¦A«ü¾É
Sub TEST()
Dim T, T1
T = Split("99/4/30", "/"): T(0) = Val(T(0)) + 1911: T = CDate(Join(T))
'ªÅ¥ÕÁä¹j¶}¤]¿ë»{¥X¨Ó¬O¤é´Á,¯u¯«©_
T1 = Split("100/4/30", "/"): T1(0) = Val(T1(0)) + 1911: T1 = CDate(Join(T1))
MsgBox T < T1
End Sub
'°õ¦æµ²ªG¬OTrue
Sub YYY()
MsgBox Format("r" & "100/1/1", "yyyy/mm/dd")
End Sub
'°õ¦æµ²ªG¬O r100/1/1
============================================
¸É¥R:
ÃöÁä¦b+1911
Sub TEST_1()
Dim T, T1
T = "99/4/30": T = (Val(T) + 1911) & Mid(T, InStr(T, "/")): T = CDate(T)
T1 = "100/4/30": T1 = (Val(T1) + 1911) & Mid(T1, InStr(T1, "/")): T1 = CDate(T1)
MsgBox T < T1
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
TOP
ÀR«ä¦Û¦b :
¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯W¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
¶i¶¥À³¥Î±M°Ï
JavaScript
Excel£¸¯ë°Ï
ºÞ²z¤½§i
¤@¯ë¹q¸£³nÅé°Q½×
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·