ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ·j´M¡B¤ñ¹ï¡A¦A½Æ»s¹L¨Óªº¥\¯à

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-6-20 11:53 ½s¿è

¦^´_ 12# iceandy6150


²Ä¤G­Ó°ÝÃD  ²{¦b¬O6¤ë
§Ú¥t¦s·sÀÉ·Q­n¥Î¦~+¤ë+ÀɦW
¤ñ¦p  "10806ÀÉ®×"
108¥i¯àÁÙ¦n¡A´N Mid(year(Date),1,3) ´N±o¨ì¤F
¦ý¬O¤ë´N³Â·Ð¤F
¦pªG1~9¤ë¥u¦³¤@­Ó¼Æ¦r
10~12¤ë¬O¨â­Ó¼Æ¦r
¸Ó«ç»òÅýÀɦW¦Û°Ê¸É0 ©O?


¥Î®æ¦¡mm§Y¥i.............¦Û¤v¸Õ¸Õ¬Ý:
MsgBox Application.Text(Now, "m/d")
MsgBox Application.Text(Now, "mm/d"))



²Ä¤T­Ó°ÝÃD
µM«á¨ä¹ê§Ú·Q­n°µ¨ìªº¬O¥i¥H¦Û°Ê¦s¦¨¤U­Ó¤ëªº
¤ñ¦p²{¦b¬O¤»¤ë¡A¦ý¬O¦s°_¨Ó«o¬O "10807ÀÉ®×" ³o¼Ë

¤£¦h»¡.....¦Û¤v¸Õ¬Ý¬Ý:
MsgBox Application.Text(DateSerial(Year(Now), Month(Now) + 1, Day(Now)), "emm")

§AÀ³¸Ó­n¾Çªº¬O¡A¦³Ãö®É¶¡ªº¨ç¼Æ»P®æ¦¡
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 13# iceandy6150


   
¦pªGº¡¥b¦~´N«ç¼Ë«ç¼Ë---> ¥ýºâ¥X¦~¸ê´«ºâ¦¨¤ë¬O´X¤ë  º¡¥b¦~´N¬O¦~¸ê>=6
¦pªGº¡¤@¦~ --> ¦~¸ê>=12
¥Î³o¨Ç±ø¥ó¦A¨Ó°Ï¤À¦U¯Å¶Zªº¤H¸Ó¤U¤°»ò«ü¥O

°Ñ¦Ò¬Ý¬Ý

¤J¾¤é´Á = DateValue("6 / 4 / 2014")    '¦Û¤v³]©w¤J¾¤é´Á
¦~¸ê = Application.Text(Now - ¤J¾¤é´Á, "yy/mm")
MsgBox "±i¤T¦~¸ê¦@" & Split(¦~¸ê, "/")(0) * 12 + Split(¦~¸ê, "/")(1) & "­Ó¤ë"
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-6-21 01:19 ½s¿è

¦^´_ 20# ­ã´£³¡ªL


·PÁ·Ǥj´£¨Ñ¦n¦h¤èªk¡A¨ü¯q­ê²L ^.^¡Aºâªº§Ú²´ªá¼º¶Ã¤FXD
Edate¨ç¼Æ·Pı¥i¥H§¹¥þ³QDateAdd©Ò¨ú¥N¡A¥u¯à¥Î¤ë·í¶¡¹j¡A¼u©Ê¦³­­

MsgBox Format(Application.EDate(Date, 1), "emm") & "ÀÉ®×"
MsgBox Format(DateAdd("m", 1, Date), "emm") & "ÀÉ®×"


¦¬Ã¬³Ì¦hªº¬OEvaluate¨ç¼Æ¡A¤§«e¨S¥Î¹L³o­Ó¨ç¼Æ!
ı±o«D±`¦n¥Î¡A¦Û¤v¸Õª±¤F¤@¤U ^.^
·Pı¤W¥u­n¬O¤u§@ªí¨ç¼Æ³£¥i¥H­pºâ
ÁöµM§Ú¤w¸g²ßºD¥Î Application.¤u§@ªí¨ç¼Æ ©ÎªÌ WorksheetFunction.¤u§@ªí¨ç¼Æ
¦ý¬O³o­Ó¨ç¼Æªº»ù­È¦b©ó¡A¥i¥Hª½±µ§â¦r¦êª½±µ°µ¹Bºâ¡A¤£»Ý­nÃB¥~¸Ñ¦r¦ê¨Ó³B²z¡A¬Ù¤U¤j¶qµ{¦¡!

MsgBox Evaluate("3+2") '=5
MsgBox Evaluate("max(" & "20,30,40,99)")  '³Ì¤j­È99
MsgBox Evaluate("SIN(30*PI()/180)")  'Sin 30«×=0.5
MsgBox Evaluate("DEC2HEX(253)")  '253ªº16¶i¦ìªí¥Ü=FD


¦ý¬OVBA¨ç¼Æ´N¤£¯à¤F~~~~~¥i±¤
MsgBox Evaluate("Hex(253)")  '¿ù»~

¤µ¤Ñ·Ç¤j·Pı¤ß±¡«Ü¦n¡A¥f°_¨Ó´£¨ÑNºØ¤èªkXD
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 23# n7822123


§Ú¤]¦A´£¨Ñ¤èªk~~³o¨â­Ó¨ä¹ê¬O¤@¼Ëªº¡A¥Îªº¨ç¼Æ¤£¦P

MsgBox Format(Year(Date) & "/" & Month(Date) + 1, "emm") & "ÀÉ®×"
MsgBox Format(Year(Date) & "/" & DatePart("m", Date) + 1, "emm") & "ÀÉ®×"
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD