Date&String.exe compares Textual and Binary Differences between Strings, and
Seconds and Minutes Differences between Dates.




frmDateString.frm

VERSION 5.00
Begin VB.Form frmDateString 
   Caption         =   "  Date & String Tester"
   ClientHeight    =   5115
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   4830
   Icon            =   "frmDateString.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5115
   ScaleWidth      =   4830
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdExit 
      Caption         =   "Exit"
      Height          =   375
      Left            =   1800
      TabIndex        =   12
      Top             =   4560
      Width           =   1215
   End
   Begin VB.Frame Frame2 
      Caption         =   "Dates"
      Height          =   1815
      Left            =   120
      TabIndex        =   6
      Top             =   2520
      Width           =   4575
      Begin VB.TextBox txtDates 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFC0&
         Height          =   375
         Index           =   1
         Left            =   2520
         TabIndex        =   8
         Top             =   360
         Width           =   1935
      End
      Begin VB.TextBox txtDates 
         Alignment       =   2  'Center
         BackColor       =   &H00C0FFC0&
         Height          =   375
         Index           =   0
         Left            =   120
         TabIndex        =   7
         Top             =   360
         Width           =   1935
      End
      Begin VB.CommandButton cmdDates 
         Caption         =   "Go"
         Height          =   375
         Left            =   1920
         TabIndex        =   11
         Top             =   1320
         Width           =   855
      End
      Begin VB.Label lblDates 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single
         Height          =   375
         Index           =   1
         Left            =   2880
         TabIndex        =   10
         ToolTipText     =   "Minutes Difference: a Neg number means Green > Blue "
         Top             =   840
         Width           =   1215
      End
      Begin VB.Label lblDates 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single
         Height          =   375
         Index           =   0
         Left            =   480
         TabIndex        =   9
         ToolTipText     =   " Seconds Difference: a Neg number means Green > Blue "
         Top             =   840
         Width           =   1215
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Strings"
      Height          =   1815
      Left            =   120
      TabIndex        =   0
      Top             =   600
      Width           =   4575
      Begin VB.CommandButton cmdString 
         Caption         =   "Go"
         Height          =   375
         Left            =   1920
         TabIndex        =   5
         Top             =   1320
         Width           =   855
      End
      Begin VB.TextBox txtString 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFC0&
         Height          =   375
         Index           =   1
         Left            =   2520
         TabIndex        =   2
         Top             =   360
         Width           =   1935
      End
      Begin VB.TextBox txtString 
         Alignment       =   2  'Center
         BackColor       =   &H00C0FFC0&
         Height          =   375
         Index           =   0
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   1935
      End
      Begin VB.Label lblString 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single
         Height          =   375
         Index           =   1
         Left            =   2880
         TabIndex        =   4
         ToolTipText     =   "Binary Diff: a Pos number means Green > Blue "
         Top             =   840
         Width           =   1215
      End
      Begin VB.Label lblString 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single
         Height          =   375
         Index           =   0
         Left            =   480
         TabIndex        =   3
         ToolTipText     =   "Textual Difference: a Pos number means Green > Blue "
         Top             =   840
         Width           =   1215
      End
   End
   Begin VB.Menu mnuCode 
      Caption         =   "&Code"
   End
End
Attribute VB_Name = "frmDateString"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

' Form Name:    frmDateString.frm
' Author:       Tyler Travis, Eruption Software
'               www.travis-usa.com
' Date:         2/2/01

Private Sub cmdDates_Click()
Dim vDate1
Dim vDate2

On Error Resume Next

vDate1 = Format(txtDates(0).Text, "Long Date")
vDate2 = Format(txtDates(1).Text, "Long Date")

vDate1 = DateDiff("s", txtDates(0).Text, txtDates(1).Text)
vDate2 = DateDiff("n", txtDates(0).Text, txtDates(1).Text)

lblDates(0).Caption = vDate1
lblDates(1).Caption = vDate2

End Sub

Private Sub cmdExit_Click()
Unload Me

End Sub

Private Sub cmdString_Click()
Dim strString1 As String
Dim strString2 As String
Dim TextualDiff
Dim BinaryDiff

strString1 = txtString(0).Text
strString2 = txtString(1).Text
TextualDiff = StrComp(strString1, strString2, 1)
BinaryDiff = StrComp(strString1, strString2, 0)
lblString(0).Caption = TextualDiff
lblString(1).Caption = BinaryDiff

End Sub

Private Sub mnuCode_Click()
frmCode.Visible = True

End Sub





=============================


DateString.vbp

Type=Exe
Form=frmDateString.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation
Form=frmCode.frm
IconForm="frmDateString"
Startup="frmDateString"
ExeName32="DateString.exe"
Command32=""
Name="DateString"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="Eruption Software and Tyler Travis."
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1