银行时间计算

VERSION 5.00
Begin VB.Form main
   BackColor       =   &H00FFFFC0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "天数计算"
   ClientHeight    =   4155
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6675
   ControlBox      =   0   'False
   Icon            =   "main.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4155
   ScaleWidth      =   6675
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdClose
      Caption         =   "关闭"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3000
      TabIndex        =   24
      Top             =   3480
      Width           =   735
   End
   Begin VB.CommandButton cmdEnd
      Caption         =   "获取开始日期"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4560
      TabIndex        =   20
      Top             =   2760
      Width           =   1450
   End
   Begin VB.CommandButton cmdStart
      Caption         =   "获取结束日期"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2640
      TabIndex        =   19
      Top             =   2760
      Width           =   1450
   End
   Begin VB.CommandButton cmdDays
      Caption         =   "获取天数"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   720
      TabIndex        =   18
      Top             =   2760
      Width           =   1450
   End
   Begin VB.TextBox txtDays
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1680
      TabIndex        =   16
      Top             =   1800
      Width           =   1335
   End
   Begin VB.TextBox txtEndDate
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   0
      Left            =   1680
      TabIndex        =   10
      Top             =   1080
      Width           =   1335
   End
   Begin VB.TextBox txtEndDate
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   1
      Left            =   3480
      TabIndex        =   9
      Top             =   1080
      Width           =   495
   End
   Begin VB.TextBox txtEndDate
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   2
      Left            =   4560
      TabIndex        =   8
      Top             =   1080
      Width           =   495
   End
   Begin VB.TextBox txtStartDate
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   2
      Left            =   4560
      TabIndex        =   5
      Top             =   360
      Width           =   495
   End
   Begin VB.TextBox txtStartDate
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   1
      Left            =   3480
      TabIndex        =   4
      Top             =   360
      Width           =   495
   End
   Begin VB.TextBox txtStartDate
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   0
      Left            =   1680
      TabIndex        =   0
      Top             =   360
      Width           =   1335
   End
   Begin VB.Label lblClearEnd
      BackStyle       =   0  'Transparent
      Caption         =   "清空"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   6120
      TabIndex        =   23
      Top             =   1280
      Width           =   615
   End
   Begin VB.Label lblClearStart
      BackStyle       =   0  'Transparent
      Caption         =   "清空"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   255
      Left            =   6120
      TabIndex        =   22
      Top             =   560
      Width           =   615
   End
   Begin VB.Label lblGetNowEnd
      BackStyle       =   0  'Transparent
      Caption         =   "获取当前日期"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   5400
      TabIndex        =   21
      Top             =   1200
      Width           =   615
   End
   Begin VB.Label Label5
      BackStyle       =   0  'Transparent
      Caption         =   "天"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3120
      TabIndex        =   17
      Top             =   1800
      Width           =   1575
   End
   Begin VB.Label Label4
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "天数:"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   15
      Top             =   1800
      Width           =   1500
   End
   Begin VB.Label Label3
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "结束日期:"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   14
      Top             =   1200
      Width           =   1500
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "年"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   5
      Left            =   3120
      TabIndex        =   13
      Top             =   1200
      Width           =   255
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "月"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   4
      Left            =   4080
      TabIndex        =   12
      Top             =   1200
      Width           =   255
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "日"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   3
      Left            =   5040
      TabIndex        =   11
      Top             =   1200
      Width           =   255
   End
   Begin VB.Label Label2
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "开始日期:"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   7
      Top             =   480
      Width           =   1500
   End
   Begin VB.Label lblGetNow
      BackStyle       =   0  'Transparent
      Caption         =   "获取当前日期"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   5400
      TabIndex        =   6
      Top             =   480
      Width           =   615
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "日"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   2
      Left            =   5040
      TabIndex        =   3
      Top             =   480
      Width           =   255
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "月"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   4080
      TabIndex        =   2
      Top             =   480
      Width           =   255
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "年"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   3120
      TabIndex        =   1
      Top             =   480
      Width           =   255
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdClose_Click()
On Error Resume Next
  End
End Sub

Private Sub cmdDays_Click()
On Error Resume Next
   If IsNumeric(txtStartDate(0).Text) And IsNumeric(txtStartDate(1).Text) And IsNumeric(txtStartDate(2).Text) Then
   Else
      MsgBox "开始日期有误", vbOKOnly, "提示"
      Exit Sub
   End If
    If IsNumeric(txtEndDate(0).Text) And IsNumeric(txtEndDate(1).Text) And IsNumeric(txtEndDate(2).Text) Then
    Else
      MsgBox "结束日期有误", vbOKOnly, "提示"
      Exit Sub
   End If
   txtDays.Text = Abs(DateDiff("d", txtStartDate(0).Text & "-" & txtStartDate(1).Text & "-" & txtStartDate(2).Text, txtEndDate(0).Text & "-" & txtEndDate(1).Text & "-" & txtEndDate(2).Text))
End Sub

Private Sub cmdEnd_Click()
On Error Resume Next
Dim startDate As Date
   If IsNumeric(txtEndDate(0).Text) And IsNumeric(txtEndDate(1).Text) And IsNumeric(txtEndDate(2).Text) Then
   Else
      MsgBox "结束日期有误", vbOKOnly, "提示"
      Exit Sub
   End If
   If IsNumeric(txtDays.Text) Then
          If Int(txtDays.Text) <> txtDays.Text Then
               MsgBox "天数有误", vbOKOnly, "提示"
               Exit Sub
          End If
   Else
          MsgBox "天数有误", vbOKOnly, "提示"
          Exit Sub
   End If
   endDate = DateAdd("d", 0 - Abs(txtDays.Text), txtEndDate(0).Text & "-" & txtEndDate(1).Text & "-" & txtEndDate(2).Text)
   txtStartDate(0).Text = Year(endDate)
   txtStartDate(1).Text = Month(endDate)
   txtStartDate(2).Text = Day(endDate)
End Sub

Private Sub cmdStart_Click()
On Error Resume Next
Dim endDate As Date
   If IsNumeric(txtStartDate(0).Text) And IsNumeric(txtStartDate(1).Text) And IsNumeric(txtStartDate(2).Text) Then
   Else
      MsgBox "开始日期有误", vbOKOnly, "提示"
      Exit Sub
   End If
   If IsNumeric(txtDays.Text) Then
          If Int(txtDays.Text) <> txtDays.Text Then
               MsgBox "天数有误", vbOKOnly, "提示"
               Exit Sub
          End If
   Else
          MsgBox "天数有误", vbOKOnly, "提示"
          Exit Sub
   End If
   endDate = DateAdd("d", Abs(txtDays.Text), txtStartDate(0).Text & "-" & txtStartDate(1).Text & "-" & txtStartDate(2).Text)
   txtEndDate(0).Text = Year(endDate)
   txtEndDate(1).Text = Month(endDate)
   txtEndDate(2).Text = Day(endDate)
End Sub

 

Private Sub lblClearEnd_Click()
On Error Resume Next
    txtEndDate(0).Text = ""
    txtEndDate(1).Text = ""
    txtEndDate(2).Text = ""

End Sub

Private Sub lblClearStart_Click()
On Error Resume Next
    txtStartDate(0).Text = ""
    txtStartDate(1).Text = ""
    txtStartDate(2).Text = ""
End Sub

Private Sub lblGetNow_Click()
On Error Resume Next
    txtStartDate(0).Text = Year(Now())
    txtStartDate(1).Text = Month(Now())
    txtStartDate(2).Text = Day(Now())
End Sub
Private Sub lblGetNowEnd_Click()
On Error Resume Next
    txtEndDate(0).Text = Year(Now())
    txtEndDate(1).Text = Month(Now())
    txtEndDate(2).Text = Day(Now())
End Sub

Private Sub txtDays_LostFocus()
On Error Resume Next
       If IsNumeric(txtDays.Text) Then
          If Int(txtDays.Text) <> txtDays.Text Then
              txtDays.Text = ""
          Else
              txtDays.Text = Abs(Int(txtDays.Text))
          End If
       Else
         txtDays.Text = ""
       End If
End Sub

Private Sub txtEndDate_LostFocus(Index As Integer)
On Error Resume Next
    If Index = 0 Then
       If IsNumeric(txtEndDate(Index).Text) Then
          If Int(txtEndDate(Index).Text) <> txtEndDate(Index).Text Then
              txtEndDate(Index).Text = ""
          Else
              txtEndDate(Index).Text = Int(txtEndDate(Index).Text)
          End If
       Else
         txtEndDate(Index).Text = ""
       End If
    End If
    If Index = 1 Then
       If IsNumeric(txtEndDate(Index).Text) Then
          If Int(txtEndDate(Index).Text) <> txtEndDate(Index).Text Then
              txtEndDate(Index).Text = ""
          Else
              txtEndDate(Index).Text = Int(txtEndDate(Index).Text)
          End If
       Else
         txtEndDate(Index).Text = ""
       End If
       If txtEndDate(Index).Text < 1 Or txtEndDate(Index).Text > 12 Then
         txtEndDate(Index).Text = ""
       End If
    End If
     If Index = 2 Then
       If IsNumeric(txtEndDate(Index).Text) Then
          If Int(txtEndDate(Index).Text) <> txtEndDate(Index).Text Then
              txtEndDate(Index).Text = ""
          Else
              txtEndDate(Index).Text = Int(txtEndDate(Index).Text)
          End If
       Else
         txtEndDate(Index).Text = ""
       End If
       If txtEndDate(Index).Text < 1 Or txtEndDate(Index).Text > 31 Then
         txtEndDate(Index).Text = ""
       End If
    End If
End Sub

Private Sub txtStartDate_LostFocus(Index As Integer)
On Error Resume Next
    If Index = 0 Then
       If IsNumeric(txtStartDate(Index).Text) Then
          If Int(txtStartDate(Index).Text) <> txtStartDate(Index).Text Then
              txtStartDate(Index).Text = ""
          Else
              txtStartDate(Index).Text = Int(txtStartDate(Index).Text)
          End If
       Else
         txtStartDate(Index).Text = ""
       End If
    End If
    If Index = 1 Then
       If IsNumeric(txtStartDate(Index).Text) Then
          If Int(txtStartDate(Index).Text) <> txtStartDate(Index).Text Then
              txtStartDate(Index).Text = ""
          Else
              txtStartDate(Index).Text = Int(txtStartDate(Index).Text)
          End If
       Else
         txtStartDate(Index).Text = ""
       End If
       If txtStartDate(Index).Text < 1 Or txtStartDate(Index).Text > 12 Then
         txtStartDate(Index).Text = ""
       End If
    End If
     If Index = 2 Then
       If IsNumeric(txtStartDate(Index).Text) Then
          If Int(txtStartDate(Index).Text) <> txtStartDate(Index).Text Then
              txtStartDate(Index).Text = ""
         Else
              txtStartDate(Index).Text = Int(txtStartDate(Index).Text)
          End If
       Else
         txtStartDate(Index).Text = ""
       End If
       If txtStartDate(Index).Text < 1 Or txtStartDate(Index).Text > 31 Then
         txtStartDate(Index).Text = ""
       End If
    End If
End Sub