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

[µo°Ý] ¤U©Ô¦¡²M³æ¸Ì¿ï¾Ü"¿z¿ï¤£­«½Æªº¸ê®Æ"

¦^´_ 30# lifedidi
  1. Option Explicit
  2. Private Sub TextBox1_Change()
  3.     ­p®É
  4. End Sub
  5. Private Sub TextBox2_Change()
  6.     ­p®É
  7. End Sub
  8. Private Sub ­p®É()
  9.     'TextBox3±±¨î¶µ ½Ð§ï¦¨Label±±¨î¶µ¬°¨Î
  10.     If IsDate(TextBox1) And IsDate(TextBox2) Then
  11.         TextBox3 = Format(CDate(TextBox2) - CDate(TextBox1), "HH:MM")
  12.         'Label1.Caption = Format(CDate(TextBox2) - CDate(TextBox1), "HH:MM")
  13.     Else
  14.         TextBox3 = ""
  15.       '  Label1.Caption = ""
  16.     End If
  17. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

§Ú¤]¸I¨ìÃþ¦üªº§xÃø¡A¯uªº¶¶§Qªº¸Ñ¨M¤F ÁÂÁ¡ã¡I

TOP

¤@³s¦êºë±mªº°Ýµª,¯u¬OÀò¯q¨}¦h

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD