GBKEE

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

jasonsdk

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

Qoo

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