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

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

¦^´_ 9# jimmyhk


   
°ÝÃDªÖ©w¤£¬O¥X¦b¬A¸¹
»yªk¤WD=(Day(TextBox1))
³o³Ì¥~³ò¬A¸¹¬O¦h¾lªº

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-9-27 22:01 ½s¿è
°ÝÃDªÖ©w¤£¬O¥X¦b¬A¸¹
»yªk¤WD=(Day(TextBox1))
³o³Ì¥~³ò¬A¸¹¬O¦h¾lªº
Hsieh µoªí©ó 2011-9-27 15:45

±à...
°ÝÃDªº½T¤£À³¥X²{¦b¬A¸¹,
Post ¤å¤¤ªº¬A¸¹¬O¦]¬°´ú¸Õ®É§Ú¬O¤À§O¥Î MsgBox(Day(TextBox1)) ¨q¥Xµ²ªG¨Óªº,
«á¨Ó®M¥Î¨ì¼Ó¥Dªºµ{¦¡®É¨Sª`·N¨ì­n§â¬A¸¹®³±¼,
ÁöµM¦³¨S¬A¸¹µ²ªG³£¬O¬Û¦Pªº,
¦ý¬O«o³y¦¨¤F¼Ó¥Dªº»~¸Ñ, «Ü©êºp.

¦^´_  luhpro
¹ï¤F§Ú¸Ó¦p¦ó§â²Õ¦X¥X¨Óªº¦rÅܦ¨¤é´Á®æ¦¡
2011/9/27
Y &"/" & M & "/" & D
¤é´Á ...
av8d µoªí©ó 2011-9-27 16:52

DateSerial(2011, 9, 27)
³o­Ó«ü¥O¥u­n·j´M "¤é´Á" ´N¥i¥H§ä¨ì,
¦h¦hµ½¥Î F1 «öÁ䪺»¡©ú¥\¯à¥i¥H¦h¾Ç«Ü¦hªF¦è³á.

TOP

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

TOP

¦^´_  luhpro
·PÁ¦U¦ì¤j¤j~
§ÚPO¤@¤U°ÝÃD~¤w¥[¤J±z´£¨Ñªº¸ê°T
Private Sub CommandButton1_Cl ...
av8d µoªí©ó 2011-9-28 09:27

µo¥Í¿ù»~ªºÃöÁä¦b©ó DateSerial ¤¤ªº°Ñ¼Æ¬O 3 ­Ó "¼Æ­È" ¦Ó«D "¦r¦ê" :
¬G¦Ó¥u­n§â & "/" &  §ï¦¨ ,  §Y¥i
icash-ans.zip (25.5 KB)

¥t : ­Ó¤HÆ[ÂI, ­Y¤@¥´¶}ÀÉ®×´N¬Ý¨ì¤@¤ù¶Â, ·|Åý¤H·Pı¤£µÎªA,
«Øij¹ç¥iªÅ¥Õ¨ì¤°»ò³£¬Ý¤£¨ì¤]¤ñ¾ã¤ù¶Â¹À¹À­n¦n.

TOP

¦^´_ 14# luhpro


­ì¨Ó¥i¥H³o¼Ë³B²z......

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD