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

Format»PTextªº®t²§

Format»PTextªº®t²§

Hi ¦U¦ì«e½ú¡A
¤p§Ì§Ú³Ìªñµo²{¤@­Ó°ÝÃD¡A¦b¥ÎFormat¨ú±o¤G­Ó®É¶¡¤]ªº¬Û´î­È®É¡A»PTextªº¤èªkÅã¥Ü·|¦³©Ò¤£¦P¡H¤@ª½§ä¤£¨ì­ì¦]¡A¯S¤W¨Ó¨D¸ÑµªÃD¥Ø¦p¤U¡G
    Dim aDate As Date
    aDate = Now
   
    aDate = Now - aDate
    Debug.Print Format(aDate, ["d¤Ñh®Ém¤Às¬í"])
    Debug.Print Application.Text(aDate, ["d¤Ñh®Ém¤Às¬í"])

    FormatÅã¥Üªº¬O¡i30¤Ñ0®É0¤À1¬í¡j
    TextÅã¥Üªº¬O¡i0¤Ñ0®É0¤À1¬í¡j
¬°¤°»òFormat·|¦³¦h¥X30¤Ñ©O¡HÁٽЪ¾¹Dªº«e½úÀ°¤p§Ì§Ú¸Ñ´b¤@¤U¡A·PÁ±z¡C
clio

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

¦^´_ 1# clio


¥[¤W¦~¤ë¤§«á¡Aµo²{°_ºâªº®É¶¡¤£¤@¼Ë!?
¦]®É¶¡¶¡¹j¤Ó¤p¡A¥iª½±µ¥N0¡A²£¥Íªº¤@¼Ëµ²ªG

Debug.Print Format(0, ["yyyy¦~m¤ëd¤éh®Ém¤Às¬í"])
Debug.Print Application.Text(0, ["yyyy¦~m¤ëd¤éh®Ém¤Às¬í"])

µ²ªG:
1899¦~12¤ë30¤é0®É0¤À0¬í
1900¦~1¤ë0¤é0®É0¤À0¬í
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

°ò¥»¤W, ¨â­Ó¤é´Á¬Û´î, µ²ªG¬O"¤Ñ¼Æ", ¦Ó«D¤@­Ó¼Ð·Ç¤é´Á,
¦A¨Ï¥Îformat©Îtext¥h¨ú, ¬O®Ú¥»¤Wªº¿ù»~,
MsgBox Application.Text(32, "d¤Ñ")  >>> µ²ªG´N¤£¬O32¤Ñ
¦óªp, format¤Îtextªº°_ºâ¤é´Á¨Ã¤£¬Û¦P~~

TOP

¦^´_ 3# ­ã´£³¡ªL
·PÁ­㴣³¡ªLªº´£¿ô¡K§Ú¦A·Q·Q§Oªº¿ëªk¦n¤F¡A·PÁ±z
clio

TOP

¦^´_ 2# n7822123

·PÁÂn7822123ªº§iª¾¡A§Ú¦A·Q·Q§Oªº¿ëªk¡A·PÁ±z
clio

TOP

¦^´_ 3# ­ã´£³¡ªL
¦A½Ð±Ð­ã´£³¡ªL«e½ú¡G
°²­Y§Ú»Ý­n¤G­Ó¤é´Á¬Û´î¡A±o¥X®t²§ªº®É¶¡¡A»Ý­n²Ó¨ì¦³¡iw¤Ñx®Éy¤Àz¬í¡j³o¼Ëªº¸Ü¡A§ÚÀ³¸Ó­n«ç»ò°µ¤ñ¸û¥¿½T©O¡H
clio

TOP

¦^´_ 6# clio


a1 °_©l¤é´Á®É¶¡
b1 µ²§ô¤é´Á®É¶¡
[C1] = Int([B1] - [A1]) & "¤Ñ" & Format([B1] - [A1], "hh®Émm¤Àss¬í")

TOP

¦^´_ 7# ­ã´£³¡ªL
·PÁ­㴣³¡ªLªº¦^ÂСK¤Ó·PÁ±z¤F
clio

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD