[µo°Ý] ½Ð¨t²Î¿é¥X¤é´Áªº¤é~«o¥X²{¸ê®Æ«¬ºA¿ù»~?

av8d

D = Day(TextBox1)
MsgBox D

¥X²{¸ê®Æ«¬ºA¿ù»~
¦~¤ë³£¨S°ÝÃD~¤é¤£ª¾¹D¬°¤°»ò«o¥X²{°ÝÃD?

ªþ¤W­ìÀÉ®× icash.rar (25.35 KB)

¤U¸ü¦¸¼Æ: 6

2011-9-28 09:28

av8d

¦^´_ 3# oobird


    O¤jÁÂÁ§A~¥L¬O¦buserform¤¤ªº~±z¯u²Ó¤ß~§Ú­ì¥»ÁÙ¦b·Q¨S­ìÀÉ«ç»òPO~³Q±z¤@²´´N¬Ý¥X¨Ó¤F!

¥i¬Oªü  §Ú¥Î  Year(TextBox1) ©M  Month(TextBox1)  ³£¥i¥H¨Ï¥Î~¤£ª¾¹D¬°¤°»ò¥u¦³Day©O?

av8d

D = Day(TextBox1)
­ì¨Ó¬O
D = (Day(TextBox1))
«e«á¨S+¬A¸¹ªºÃö«Y~ÁÂÁ±z!

av8d

¦^´_ 5# luhpro


    ¹ï¤F§Ú¸Ó¦p¦ó§â²Õ¦X¥X¨Óªº¦rÅܦ¨¤é´Á®æ¦¡
2011/9/27
Y &"/" & M & "/" & D
¤é´Á®æ¦¡

ªþ¤W­ìÀÉ
icash.rar (25.35 KB)

¤U¸ü¦¸¼Æ: 6

2011-9-28 09:16

av8d

¦^´_ 12# luhpro


    ·PÁ¦U¦ì¤j¤j~
§ÚPO¤@¤U°ÝÃD~¤w¥[¤J±z´£¨Ñªº¸ê°T
Private Sub CommandButton1_Click()
'¸ê®Æ«ØÀÉ
    Y = (Year(TextBoxM))
    M = (Month(TextBoxM))
    D = (Day(TextBoxM))
    N1 = TextBoxN1
    N2 = TextBoxN2
    N3 = Round(N1 / N2)
    For i = (M + 1) To (M + N2)
        If i > 12 Then
        Sheets("Data").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 5) = Array(DateSerial(Y & "/" & (i - 12) & "/" & D), "¤À´Á¥I´Ú", N3, TextBox1, TextBox2)
        Else
        Sheets("Data").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 5) = Array(DateSerial(Y & "/" & i & "/" & D), "¤À´Á¥I´Ú", N3, TextBox1, TextBox2)
        End If
    Next
    Unload Me
End Sub

µLªk°õ¦æ