home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / date_vb / demo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-07  |  3.3 KB  |  94 lines
  1. VERSION 2.00
  2. Begin Form frmDate 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Date Demonstration"
  5.    ClientHeight    =   1245
  6.    ClientLeft      =   2490
  7.    ClientTop       =   2535
  8.    ClientWidth     =   4650
  9.    Height          =   1650
  10.    Left            =   2430
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5.188
  13.    ScaleMode       =   4  'Character
  14.    ScaleWidth      =   38.75
  15.    Top             =   2190
  16.    Width           =   4770
  17.    Begin Label lblFmtdate 
  18.       BorderStyle     =   1  'Fixed Single
  19.       Height          =   240
  20.       Left            =   1440
  21.       TabIndex        =   3
  22.       Top             =   840
  23.       Width           =   3000
  24.    End
  25.    Begin Label lblCvtDate 
  26.       BorderStyle     =   1  'Fixed Single
  27.       Height          =   240
  28.       Left            =   1440
  29.       TabIndex        =   4
  30.       Top             =   480
  31.       Width           =   3000
  32.    End
  33.    Begin Label lblSysDate 
  34.       BorderStyle     =   1  'Fixed Single
  35.       Height          =   240
  36.       Left            =   1440
  37.       TabIndex        =   5
  38.       Top             =   120
  39.       Width           =   3000
  40.    End
  41.    Begin Label label 
  42.       Alignment       =   1  'Right Justify
  43.       BackStyle       =   0  'Transparent
  44.       Caption         =   "Days to Date:"
  45.       Height          =   240
  46.       Index           =   2
  47.       Left            =   180
  48.       TabIndex        =   2
  49.       Top             =   840
  50.       Width           =   1245
  51.    End
  52.    Begin Label label 
  53.       Alignment       =   1  'Right Justify
  54.       BackStyle       =   0  'Transparent
  55.       Caption         =   "Date to Days:"
  56.       Height          =   240
  57.       Index           =   1
  58.       Left            =   180
  59.       TabIndex        =   1
  60.       Top             =   480
  61.       Width           =   1245
  62.    End
  63.    Begin Label label 
  64.       Alignment       =   1  'Right Justify
  65.       BackStyle       =   0  'Transparent
  66.       Caption         =   "System Date:"
  67.       Height          =   240
  68.       Index           =   0
  69.       Left            =   180
  70.       TabIndex        =   0
  71.       Top             =   120
  72.       Width           =   1245
  73.    End
  74. Option Explicit
  75. Sub Form_Load ()
  76.     ' Declare variables.
  77.     Dim ThisMonth   As Integer
  78.     Dim ThisDay     As Integer
  79.     Dim ThisYear    As Integer
  80.     Dim ThisDays    As Long
  81.     ' Center the form on desktop.
  82.     Left = (Screen.Width - Width) / 2
  83.     Top = (Screen.Height - Height) / 2
  84.     ' Set values.
  85.     ThisMonth = Val(Mid$(Date$, 1, 2))                              ' Get the current month from the system date.
  86.     ThisDay = Val(Mid$(Date$, 4, 2))                                ' Get the current day from the system date.
  87.     ThisYear = Val(Mid$(Date$, 7, 4))                               ' Get the current year from the system date.
  88.     ThisDays = ConvertDays(ThisMonth, ThisDay, ThisYear)           ' Convert the current date to days.
  89.     ' Display results.
  90.     lblSysDate.Caption = Format(Date$, "dddddd")                    ' Display the system date.
  91.     lblCvtDate.Caption = ThisDays                                   ' Display the converted date.
  92.     lblFmtDate.Caption = Format(ConvertDate(ThisDays), "dddddd")   ' Display the converted date formatted.
  93. End Sub
  94.