home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / mabry / dfinfo23 / sample / 24to12.frm (.txt) next >
Encoding:
Visual Basic Form  |  1994-12-16  |  4.3 KB  |  154 lines
  1. VERSION 2.00
  2. Begin Form Conv24To12 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Convert 24hr to 12hr"
  6.    ClientHeight    =   2790
  7.    ClientLeft      =   1230
  8.    ClientTop       =   1800
  9.    ClientWidth     =   3975
  10.    Height          =   3195
  11.    Left            =   1170
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   2790
  14.    ScaleWidth      =   3975
  15.    Top             =   1455
  16.    Width           =   4095
  17.    Begin CommandButton btnExit 
  18.       Cancel          =   -1  'True
  19.       Caption         =   "Exit"
  20.       Height          =   375
  21.       Left            =   2520
  22.       TabIndex        =   6
  23.       Top             =   1440
  24.       Width           =   1215
  25.    End
  26.    Begin TextBox txt12Hour 
  27.       Height          =   285
  28.       Left            =   360
  29.       TabIndex        =   3
  30.       Text            =   "txt12Hour"
  31.       Top             =   2280
  32.       Width           =   1815
  33.    End
  34.    Begin TextBox txt24Hour 
  35.       Height          =   285
  36.       Left            =   360
  37.       TabIndex        =   1
  38.       Text            =   "txt24Hour"
  39.       Top             =   1680
  40.       Width           =   1815
  41.    End
  42.    Begin CommandButton btnConvert 
  43.       Caption         =   "Convert"
  44.       Default         =   -1  'True
  45.       Height          =   375
  46.       Left            =   2520
  47.       TabIndex        =   0
  48.       Top             =   1920
  49.       Width           =   1215
  50.    End
  51.    Begin Label Label3 
  52.       BackColor       =   &H00C0C0C0&
  53.       Caption         =   "This sample program shows how to convert from 24 hour time (as returned by DFInfo) to a 12 hour time format.  Enter times (well-formed) into the 24 Hour Time edit box and press Convert."
  54.       Height          =   1095
  55.       Left            =   240
  56.       TabIndex        =   5
  57.       Top             =   120
  58.       Width           =   3495
  59.    End
  60.    Begin Label Label2 
  61.       BackColor       =   &H00C0C0C0&
  62.       Caption         =   "12 Hour Time"
  63.       FontBold        =   0   'False
  64.       FontItalic      =   0   'False
  65.       FontName        =   "MS Sans Serif"
  66.       FontSize        =   8.25
  67.       FontStrikethru  =   0   'False
  68.       FontUnderline   =   0   'False
  69.       Height          =   255
  70.       Left            =   240
  71.       TabIndex        =   4
  72.       Top             =   2040
  73.       Width           =   1455
  74.    End
  75.    Begin Label Label1 
  76.       BackColor       =   &H00C0C0C0&
  77.       Caption         =   "24 Hour Time:"
  78.       FontBold        =   0   'False
  79.       FontItalic      =   0   'False
  80.       FontName        =   "MS Sans Serif"
  81.       FontSize        =   8.25
  82.       FontStrikethru  =   0   'False
  83.       FontUnderline   =   0   'False
  84.       Height          =   255
  85.       Left            =   240
  86.       TabIndex        =   2
  87.       Top             =   1440
  88.       Width           =   1455
  89.    End
  90. Option Explicit
  91. Sub btnConvert_Click ()
  92.     Dim TempStr As String
  93.     '
  94.     ' get the time the user entered and convert it
  95.     '
  96.     TempStr = txt24Hour
  97.     txt12Hour = Convert24To12(TempStr)
  98. End Sub
  99. Sub btnExit_Click ()
  100.     '
  101.     ' get out
  102.     '
  103.     End
  104. End Sub
  105. ' this function requires the data is valid and in the
  106. ' format of HH:MM:SS.  It does no error checking.
  107. Function Convert24To12 (TimeString As String) As String
  108.     Dim OutString As String
  109.     Dim TimeHour As Integer
  110.     '
  111.     ' get hour
  112.     '
  113.     TimeHour = Val(Left(TimeString, 2))
  114.     '
  115.     ' format first part of string, make sure 00:00:00
  116.     ' is formatted as 12:00:00
  117.     '
  118.     If (TimeHour Mod 12) = 0 Then
  119.         OutString = "12" & Mid(TimeString, 3)
  120.     Else
  121.         OutString = Format(TimeHour Mod 12, "00") & Mid(TimeString, 3)
  122.     End If
  123.     '
  124.     ' check for AM/PM
  125.     '
  126.     If TimeHour < 12 Then
  127.         OutString = OutString & " AM"
  128.     Else
  129.         OutString = OutString & " PM"
  130.     End If
  131.     '
  132.     ' return new time
  133.     '
  134.     Convert24To12 = OutString
  135. End Function
  136. Sub Form_Load ()
  137.     Dim TempStr As String
  138.     '
  139.     ' initialize 24 hour text box
  140.     '
  141.     txt24Hour = Format(Now, "hh:mm:ss")
  142.     '
  143.     ' get 24 hour formatted time and convert it to 12 hour
  144.     '
  145.     TempStr = txt24Hour
  146.     txt12Hour = Convert24To12(TempStr)
  147. End Sub
  148. Sub Form_Unload (Cancel As Integer)
  149.     '
  150.     ' make sure we get out
  151.     '
  152.     End
  153. End Sub
  154.