­ã´£³¡ªL

¦^´_ 15# n7822123

Private Sub CommandButton2_Click()
d = CDate(Format(Now, "yyyy/m/1")) + 31
ym$ = Format(d, "emm") & "ÀÉ®×"
MsgBox ym
End Sub

­ã´£³¡ªL

¦A¨Ó¨âºØ¤èªk:
Private Sub CommandButton2_Click()
ym$ = Format(Date - Day(Date) + 32, "EMM") & "ÀÉ®×"
MsgBox ym
End Sub


Private Sub CommandButton2_Click()
ym$ = Format(DateAdd("m", 1, Date), "EMM") & "ÀÉ®×"
MsgBox ym
End Sub


===========================

n7822123

¦^´_ 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

n7822123

¦^´_ 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") & "ÀÉ®×"