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

[µo°Ý] ¦p¦óÅý¤é´ÁÀx¦s®É¦³®É¡G¤À ¡]24¤p®É¨î¡^

[µo°Ý] ¦p¦óÅý¤é´ÁÀx¦s®É¦³®É¡G¤À ¡]24¤p®É¨î¡^

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-1 16:31 ½s¿è

Y = Year(TextBox1)
    M = Month(TextBox1)
    D = Day(TextBox1)

    If OptionButton1 = True Then
    OB1 = "¦¬¤J"
    Else
    OB1 = "¤ä¥X"
    End If
    If OptionButton4 = True Then
    OB4 = "Á~¸ê"
    Else
    OB4 = TextBox3
    End If
    Sheets("Data").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 5) = Array(DateSerial(Y, M, D), OB1, TextBox2, OB4, TextBox4)


¥Ñ©óDateSerial(Y, M, D)®æ¦¡¬O¦~¤ë¤é¡ã§Ú§â¿é¥X«áªºÀx¦s®æ®æ¬O§ï¦¨ ¦~¤ë¤é  ®É¡G¤À ¡]24¤p®É¨î¡^
¥L«h·|©T©w¥X²{12¡G00 AM¡ãÀ³¸Ó¬O¦]¬°§Ú·í®É¨S¦³³]©w¡ã§Ú¸Ó¦p¦ó§ï¼g©O¡H ÁÂÁ¡I

Y = Year(TextBox1)
    M = Month(TextBox1)
    D = Day(TextBox1)
§A¿é¤Jtextbox¸ò¥»¨S¦³®É¶¡¡A·íµM¥u¯à¬O12¡G00 AM~0®É0¤À
§A­nªº®É¶¡¥²¶·­n¿é¤J¤~·|¦³¡C
ÁÙ¦³­Ytextbox1¥»´N¬O¤é´Á¥[®É¶¡¡A«Øijª½±µ¥Îtextbox1.value´N¦æ¤F

TOP

³o­Ó¨ç¼Æ¨S¦³°ÝÃD, ´N¬Ý±z VBA µ{¦¡¦p¦ó®M¥Î¤F.
debug.Print format(now,"YYYY-MM-DD hh:mm")
2012-06-04 14:04

TOP

¦^´_ 3# alumi


    ¤j¤j±z¦n~¿é¥X«á~¸ÓÀx¦s®æ~µL¥ô¦ó¸ê®Æ~µM«á§Ú§âÀx¦s®æ®æ¦¡§ï¦¨¦Û­q yyyy/mm/dd hh:mm~ÁÙ¬O¨S¦³¸ê®Æ@@

TOP

Format(DateType, "YYYY-MM-DD hh:mm")

TOP

¦^´_ 1# av8d
  ®É¡G¤À       ¤À¸¹¤£²Å¦X©R¦W­ì«h

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD