dialogsetting.frm

可以计算今天到指定日期之间的天数,如2009-01-01

VERSION 5.00
Begin VB.Form DialogSetting 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "设置"
   ClientHeight    =   1110
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   3255
   Icon            =   "DialogSetting.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1110
   ScaleWidth      =   3255
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton CancleCommand 
      Caption         =   "取消"
      Height          =   300
      Left            =   1560
      TabIndex        =   8
      Top             =   720
      Width           =   735
   End
   Begin VB.CommandButton OKCommand 
      Caption         =   "确定"
      Height          =   300
      Left            =   720
      TabIndex        =   7
      Top             =   720
      Width           =   735
   End
   Begin VB.ComboBox DayCombo 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   2040
      TabIndex        =   6
      Text            =   "01"
      Top             =   120
      Width           =   615
   End
   Begin VB.ComboBox MonthCombo 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   1200
      TabIndex        =   5
      Text            =   "01"
      Top             =   120
      Width           =   615
   End
   Begin VB.ComboBox YearCombo 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   120
      TabIndex        =   4
      Text            =   "2009"
      Top             =   120
      Width           =   855
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "应用"
      Height          =   300
      Left            =   2400
      TabIndex        =   0
      Top             =   720
      Width           =   735
   End
   Begin VB.Label Label3 
      Caption         =   "日"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2640
      TabIndex        =   3
      Top             =   180
      Width           =   375
   End
   Begin VB.Label Label2 
      Caption         =   "月"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1800
      TabIndex        =   2
      Top             =   180
      Width           =   375
   End
   Begin VB.Label Label1 
      Caption         =   "年"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   960
      TabIndex        =   1
      Top             =   180
      Width           =   375
   End
End
Attribute VB_Name = "DialogSetting"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()
    '读取注册表数值:年,月,日
    YearCombo.Text = GetSetting("Data.exe", "Date", "Year", 2009)
    MonthCombo.Text = GetSetting("Data.exe", "Date", "Month", 1)
    DayCombo.Text = GetSetting("Data.exe", "Date", "day", 1)
    
    '初始化
    Dim Dyear, i
    Dyear = Year(Date)
    '前后5年
    For i = 0 To 10
        YearCombo.AddItem Dyear - 5 + i, i
    Next
    '12个月
    For i = 1 To 12
        MonthCombo.AddItem i, i - 1
    Next
    '31天
    For i = 1 To 31
        DayCombo.AddItem i, i - 1
    Next
End Sub

'应用
Private Sub OKButton_Click()
    '保存年,月,日
    Call SaveSetting("Data.exe", "Date", "Year", YearCombo.Text)
    Call SaveSetting("Data.exe", "Date", "Month", MonthCombo.Text)
    Call SaveSetting("Data.exe", "Date", "Day", DayCombo.Text)
    '刷新天数
    Call DateForm.SetDate
End Sub

'取消
Private Sub CancleCommand_Click()
    Me.Hide
End Sub

'确定,即应用+取消
Private Sub OKCommand_Click()
Call OKButton_Click
Call CancleCommand_Click
End Sub

'验证
Private Sub yearCombo_Click()
    Call CheckDate
End Sub

'验证
Private Sub MonthCombo_Click()
    Call CheckDate
End Sub

'验证数据的合法性
Function CheckDate()

    '1,3,5,7,8,10,12月为31天
    If DayCombo.ListCount = 28 Then DayCombo.AddItem 29, DayCombo.ListCount
    If DayCombo.ListCount = 29 Then DayCombo.AddItem 30, DayCombo.ListCount
    If DayCombo.ListCount = 30 Then DayCombo.AddItem 31, DayCombo.ListCount
    
    If MonthCombo.Text = 4 Or MonthCombo.Text = 6 Or MonthCombo.Text = 9 Or MonthCombo.Text = 11 Then
            '4,6,9,11月为30天
            DayCombo.RemoveItem 30
    End If
    If MonthCombo.Text = 2 Then
        Dim temp
        temp = DayCombo.Text
        '2月为28天
        DayCombo.RemoveItem 30
        DayCombo.RemoveItem 29
        DayCombo.RemoveItem 28
        '日期大于28
        If temp > 28 Then DayCombo.Text = 28
        '闰年
        If YearCombo.Text Mod 4 = 0 Then
            DayCombo.AddItem 29, 28
                '日期大于29
                If temp > 29 Then DayCombo.Text = 29
        End If
    End If
End Function