home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / datecomp / datecomp.frm < prev    next >
Text File  |  1994-07-11  |  3KB  |  108 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "DateComp Demo"
  6.    ClientHeight    =   1575
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   6300
  10.    Height          =   1980
  11.    Left            =   1035
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   1575
  14.    ScaleWidth      =   6300
  15.    Top             =   1140
  16.    Width           =   6420
  17.    Begin Frame Frame1 
  18.       Caption         =   "Last Compare Result"
  19.       Height          =   795
  20.       Left            =   3240
  21.       TabIndex        =   6
  22.       Top             =   180
  23.       Width           =   2895
  24.       Begin Label Label3 
  25.          BackColor       =   &H00FFFFFF&
  26.          Height          =   285
  27.          Left            =   150
  28.          TabIndex        =   7
  29.          Top             =   360
  30.          Width           =   2625
  31.       End
  32.    End
  33.    Begin CommandButton Command2 
  34.       Cancel          =   -1  'True
  35.       Caption         =   "E&xit"
  36.       Height          =   375
  37.       Left            =   1620
  38.       TabIndex        =   5
  39.       Top             =   990
  40.       Width           =   1245
  41.    End
  42.    Begin CommandButton Command1 
  43.       Caption         =   "&Compare"
  44.       Height          =   375
  45.       Left            =   150
  46.       TabIndex        =   4
  47.       Top             =   990
  48.       Width           =   1245
  49.    End
  50.    Begin TextBox Text2 
  51.       Height          =   285
  52.       Left            =   1650
  53.       TabIndex        =   2
  54.       Text            =   "07-11-94"
  55.       Top             =   450
  56.       Width           =   1245
  57.    End
  58.    Begin TextBox Text1 
  59.       Height          =   285
  60.       Left            =   180
  61.       TabIndex        =   0
  62.       Text            =   "01-01-80"
  63.       Top             =   450
  64.       Width           =   1245
  65.    End
  66.    Begin Label Label2 
  67.       BackColor       =   &H00FFFFFF&
  68.       Caption         =   "Date #2"
  69.       Height          =   225
  70.       Left            =   1650
  71.       TabIndex        =   3
  72.       Top             =   240
  73.       Width           =   1245
  74.    End
  75.    Begin Label Label1 
  76.       BackColor       =   &H00FFFFFF&
  77.       Caption         =   "Date #1"
  78.       Height          =   225
  79.       Left            =   180
  80.       TabIndex        =   1
  81.       Top             =   240
  82.       Width           =   1245
  83.    End
  84. End
  85. Sub Command1_Click ()
  86.  
  87.   N = DateComp(CVar(Text1), CVar(Text2))
  88.  
  89.   Select Case N
  90.     Case Is < 0
  91.       Txt$ = "Less Than"
  92.     Case Is > 0
  93.       Txt$ = "Greater Than"
  94.     Case Else
  95.       Txt$ = "Equal To"
  96.   End Select
  97.  
  98.   Label3.Caption = "Date #1 is " & Txt$ & " Date #2"
  99.  
  100. End Sub
  101.  
  102. Sub Command2_Click ()
  103.  
  104.   End
  105.  
  106. End Sub
  107.  
  108.