home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / LVB / T2W32534.ZIP / _DATTIM.FRM < prev    next >
Text File  |  1998-05-02  |  36KB  |  811 lines
  1. VERSION 5.00
  2. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  3. Begin VB.Form frmDateTime 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Date & Time"
  6.    ClientHeight    =   6495
  7.    ClientLeft      =   1110
  8.    ClientTop       =   1365
  9.    ClientWidth     =   7830
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   6495
  14.    ScaleWidth      =   7830
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.TextBox txt_Result 
  17.       BackColor       =   &H00C0C0C0&
  18.       BorderStyle     =   0  'None
  19.       Height          =   5325
  20.       Left            =   120
  21.       Locked          =   -1  'True
  22.       MultiLine       =   -1  'True
  23.       ScrollBars      =   2  'Vertical
  24.       TabIndex        =   6
  25.       Top             =   600
  26.       Width           =   7575
  27.    End
  28.    Begin Threed.SSPanel SSPanel1 
  29.       Align           =   1  'Align Top
  30.       Height          =   480
  31.       Left            =   0
  32.       TabIndex        =   0
  33.       Top             =   0
  34.       Width           =   7830
  35.       _Version        =   65536
  36.       _ExtentX        =   13811
  37.       _ExtentY        =   847
  38.       _StockProps     =   15
  39.       ForeColor       =   -2147483640
  40.       BackColor       =   12632256
  41.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  42.          Name            =   "MS Sans Serif"
  43.          Size            =   8.25
  44.          Charset         =   0
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       Begin VB.ComboBox cmb_Function 
  51.          Height          =   315
  52.          Left            =   1365
  53.          TabIndex        =   1
  54.          Top             =   90
  55.          Width           =   5145
  56.       End
  57.       Begin Threed.SSCommand cmdNP 
  58.          Height          =   300
  59.          Index           =   1
  60.          Left            =   7500
  61.          TabIndex        =   5
  62.          Top             =   90
  63.          Width           =   255
  64.          _Version        =   65536
  65.          _ExtentX        =   450
  66.          _ExtentY        =   529
  67.          _StockProps     =   78
  68.          Caption         =   ">"
  69.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  70.             Name            =   "MS Sans Serif"
  71.             Size            =   8.25
  72.             Charset         =   0
  73.             Weight          =   400
  74.             Underline       =   0   'False
  75.             Italic          =   0   'False
  76.             Strikethrough   =   0   'False
  77.          EndProperty
  78.          BevelWidth      =   1
  79.          Font3D          =   3
  80.          RoundedCorners  =   0   'False
  81.          Outline         =   0   'False
  82.       End
  83.       Begin Threed.SSCommand cmdNP 
  84.          Height          =   300
  85.          Index           =   0
  86.          Left            =   6660
  87.          TabIndex        =   4
  88.          Top             =   90
  89.          Width           =   255
  90.          _Version        =   65536
  91.          _ExtentX        =   450
  92.          _ExtentY        =   529
  93.          _StockProps     =   78
  94.          Caption         =   "<"
  95.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  96.             Name            =   "MS Sans Serif"
  97.             Size            =   8.25
  98.             Charset         =   0
  99.             Weight          =   400
  100.             Underline       =   0   'False
  101.             Italic          =   0   'False
  102.             Strikethrough   =   0   'False
  103.          EndProperty
  104.          BevelWidth      =   1
  105.          Font3D          =   3
  106.          RoundedCorners  =   0   'False
  107.          Outline         =   0   'False
  108.       End
  109.       Begin Threed.SSCommand SSCommand1 
  110.          Default         =   -1  'True
  111.          Height          =   300
  112.          Left            =   6975
  113.          TabIndex        =   2
  114.          Top             =   90
  115.          Width           =   465
  116.          _Version        =   65536
  117.          _ExtentX        =   820
  118.          _ExtentY        =   529
  119.          _StockProps     =   78
  120.          Caption         =   "&Go"
  121.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  122.             Name            =   "MS Sans Serif"
  123.             Size            =   8.25
  124.             Charset         =   0
  125.             Weight          =   400
  126.             Underline       =   0   'False
  127.             Italic          =   0   'False
  128.             Strikethrough   =   0   'False
  129.          EndProperty
  130.          BevelWidth      =   1
  131.          RoundedCorners  =   0   'False
  132.          Outline         =   0   'False
  133.       End
  134.       Begin VB.Label Label2 
  135.          Caption         =   "&Select a function"
  136.          Height          =   255
  137.          Left            =   90
  138.          TabIndex        =   3
  139.          Top             =   120
  140.          Width           =   1275
  141.       End
  142.    End
  143.    Begin Threed.SSPanel SSPanel2 
  144.       Align           =   2  'Align Bottom
  145.       Height          =   465
  146.       Left            =   0
  147.       TabIndex        =   7
  148.       Top             =   6030
  149.       Width           =   7830
  150.       _Version        =   65536
  151.       _ExtentX        =   13811
  152.       _ExtentY        =   820
  153.       _StockProps     =   15
  154.       BackColor       =   12632256
  155.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  156.          Name            =   "MS Sans Serif"
  157.          Size            =   8.25
  158.          Charset         =   0
  159.          Weight          =   400
  160.          Underline       =   0   'False
  161.          Italic          =   0   'False
  162.          Strikethrough   =   0   'False
  163.       EndProperty
  164.       Begin VB.TextBox Text1 
  165.          Height          =   285
  166.          Left            =   1440
  167.          TabIndex        =   8
  168.          Tag             =   "A/BC/DEF/GHIJ/KLMNOP/"
  169.          Top             =   90
  170.          Width           =   5310
  171.       End
  172.       Begin Threed.SSCommand SSCommand2 
  173.          Height          =   285
  174.          Left            =   6885
  175.          TabIndex        =   9
  176.          Top             =   90
  177.          Width           =   825
  178.          _Version        =   65536
  179.          _ExtentX        =   1455
  180.          _ExtentY        =   503
  181.          _StockProps     =   78
  182.          Caption         =   "&Reset"
  183.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  184.             Name            =   "MS Sans Serif"
  185.             Size            =   8.25
  186.             Charset         =   0
  187.             Weight          =   400
  188.             Underline       =   0   'False
  189.             Italic          =   0   'False
  190.             Strikethrough   =   0   'False
  191.          EndProperty
  192.          BevelWidth      =   1
  193.          Outline         =   0   'False
  194.       End
  195.       Begin VB.Label Label1 
  196.          Caption         =   "&Enter a test value"
  197.          Height          =   255
  198.          Left            =   90
  199.          TabIndex        =   10
  200.          Top             =   120
  201.          Width           =   1275
  202.       End
  203.    End
  204. End
  205. Attribute VB_Name = "frmDateTime"
  206. Attribute VB_GlobalNameSpace = False
  207. Attribute VB_Creatable = False
  208. Attribute VB_PredeclaredId = True
  209. Attribute VB_Exposed = False
  210. Option Explicit
  211. Option Base 1
  212.  
  213. Private Const Iteration = 250
  214.  
  215. Dim IsLoaded         As Integer
  216.  
  217. Dim TimerStartOk     As Integer
  218. Dim TimerCloseOk     As Integer
  219.  
  220. Dim TimerHandle      As Integer
  221. Dim TimerValue       As Long
  222.  
  223. Private Sub cmdNP_Click(Index As Integer)
  224.  
  225.    Text1.Text = ""
  226.    
  227.    Call sub_NextPrev(cmb_Function, Index)
  228.  
  229. End Sub
  230.  
  231.  
  232. Private Sub cmb_Function_Click()
  233.    
  234.    If (IsLoaded = False) Then Exit Sub
  235.    
  236.    Call cDisableFI(mdiT2W.Picture1)
  237.    
  238.    txt_Result = ""
  239.    
  240.    DoEvents
  241.    
  242.    Select Case cmb_Function.ListIndex
  243.       Case 0
  244.          Call TestDateStatistic
  245.       Case 1
  246.          Call TestDateConvert
  247.       Case 2
  248.          Call TestCnvMinuteToTime
  249.       Case 3
  250.          Call TestCnvMinuteToHundred
  251.       Case 4
  252.          Call TestCnvTimeToMinute
  253.       Case 5
  254.          Call TestCnvHundredToMinute
  255.       Case 6
  256.          Call TestDateHourLong
  257.    End Select
  258.    
  259.    DoEvents
  260.    Call cEnableFI(mdiT2W.Picture1)
  261.    
  262. End Sub
  263.  
  264.  
  265. Private Sub Form_Activate()
  266.  
  267.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  268.  
  269. End Sub
  270.  
  271. Private Sub Form_Load()
  272.  
  273.    IsLoaded = False
  274.    
  275.    Show
  276.  
  277.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_dattim.t2w")
  278.    
  279.    IsLoaded = True
  280.    
  281. End Sub
  282.  
  283. Private Sub SSCommand1_Click()
  284.    
  285.    Call cmb_Function_Click
  286.    
  287. End Sub
  288.  
  289.  
  290.  
  291.  
  292. Private Sub TestDateStatistic()
  293.  
  294.    Dim intResult        As Integer
  295.    Dim strResult        As String
  296.    Dim strDisplay       As String
  297.    
  298.    Dim i                As Integer
  299.   
  300.    Dim nYear            As Integer
  301.    Dim nMonth           As Integer
  302.    Dim nDay             As Integer
  303.  
  304.    Dim nNow             As Long
  305.    Dim nIntNow          As Integer
  306.  
  307.    If (Trim(Text1.Text) = "") Then Text1.Text = Format$(Now, "dd.mm.yyyy")
  308.    
  309.    nNow = cDateToScalar(Val(Format$(Now, "yyyy")), Val(Format$(Now, "mm")), Val(Format$(Now, "dd")))
  310.    Call cScalarToDate(nNow, nYear, nMonth, nDay)
  311.  
  312.    strDisplay = "Today is the '" & Text1.Text & "'" & vbCrLf & vbCrLf
  313.  
  314.    strDisplay = strDisplay & "Day of the week (ISO, U.S., Special) is (" & cDayOfWeek(nYear, nMonth, nDay, True) & ", " & cDayOfWeek(nYear, nMonth, nDay, False) & ", " & cDayOfWeek(nYear, nMonth, nDay, 1) & ") (" & cGetLongDay(LNG_ENGLISH, 1 + cDayOfWeek(nYear, nMonth, nDay, False)) & ")" & vbCrLf
  315.  
  316.    strDisplay = strDisplay & "Day of the year is '" & cDayOfYear(nYear, nMonth, nDay) & "'" & vbCrLf
  317.  
  318.    strDisplay = strDisplay & "Week of the year (ISO, U.S., Special) is (" & cWeekOfYear(nYear, nMonth, nDay, True) & ", " & cWeekOfYear(nYear, nMonth, nDay, False) & ", " & cWeekOfYear(nYear, nMonth, nDay, 1) & ")" & vbCrLf & vbCrLf
  319.  
  320.    nNow = cDateToScalar(nYear, nMonth, nDay)
  321.    strDisplay = strDisplay & "Scalar day is '" & nNow & "'" & vbCrLf
  322.    Call cScalarToDate(nNow, nYear, nMonth, nDay)
  323.    strDisplay = strDisplay & "Year : " & nYear & ", Month : " & nMonth & ", Day : " & nDay & vbCrLf & vbCrLf
  324.  
  325.    nIntNow = cDateToInt(nYear, nMonth, nDay)
  326.    strDisplay = strDisplay & "Int day is '" & nIntNow & "'" & vbCrLf
  327.    Call cIntToDate(nIntNow, nYear, nMonth, nDay)
  328.    strDisplay = strDisplay & "Year : " & nYear & ", Month : " & nMonth & ", Day : " & nDay & vbCrLf & vbCrLf
  329.  
  330.    nNow = Int(Now)
  331.  
  332.    nYear = Year(nNow)
  333.    nMonth = 1
  334.    nDay = 1
  335.  
  336.    strDisplay = strDisplay & "First Day is the '" & Format$(DateSerial(nYear, nMonth, nDay), "short date") & "'" & vbCrLf & vbCrLf
  337.  
  338.    strDisplay = strDisplay & "Day of the week (ISO, U.S., Special) is (" & cDayOfWeek(nYear, nMonth, nDay, True) & ", " & cDayOfWeek(nYear, nMonth, nDay, False) & ", " & cDayOfWeek(nYear, nMonth, nDay, 1) & ") (" & cGetLongDay(LNG_ENGLISH, 1 + cDayOfWeek(nYear, nMonth, nDay, False)) & ")" & vbCrLf
  339.  
  340.    strDisplay = strDisplay & "Day of the year is '" & cDayOfYear(nYear, nMonth, nDay) & "'" & vbCrLf
  341.  
  342.    strDisplay = strDisplay & "Week of the year (ISO, U.S., Special) is (" & cWeekOfYear(nYear, nMonth, nDay, True) & ", " & cWeekOfYear(nYear, nMonth, nDay, False) & ", " & cWeekOfYear(nYear, nMonth, nDay, 1) & ")" & vbCrLf & vbCrLf
  343.  
  344.    nNow = cDateToScalar(nYear, nMonth, nDay)
  345.    strDisplay = strDisplay & "Scalar day is '" & nNow & "'" & vbCrLf
  346.    Call cScalarToDate(nNow, nYear, nMonth, nDay)
  347.    strDisplay = strDisplay & "Year : " & nYear & ", Month : " & nMonth & ", Day : " & nDay & vbCrLf & vbCrLf
  348.  
  349.    nIntNow = cDateToInt(nYear, nMonth, nDay)
  350.    strDisplay = strDisplay & "Int day is '" & nIntNow & "'" & vbCrLf
  351.    Call cIntToDate(nIntNow, nYear, nMonth, nDay)
  352.    strDisplay = strDisplay & "Year : " & nYear & ", Month : " & nMonth & ", Day : " & nDay & vbCrLf & vbCrLf
  353.  
  354.    txt_Result = strDisplay
  355.  
  356.    'time the function
  357.  
  358.    TimerHandle = cTimerOpen()
  359.    TimerStartOk = cTimerStart(TimerHandle)
  360.    
  361.    For i = 1 To Iteration
  362.       Call cScalarToDate(nNow, nYear, nMonth, nDay)
  363.    Next i
  364.    
  365.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  366.    
  367.    TimerCloseOk = cTimerClose(TimerHandle)
  368.  
  369. End Sub
  370.  
  371.  
  372.  
  373.  
  374. Private Sub TestDateConvert()
  375.  
  376.    Dim intResult        As Integer
  377.    Dim strResult        As String
  378.    Dim strDisplay       As String
  379.    
  380.    Dim i                As Integer
  381.    
  382.    Dim Value            As String
  383.    
  384.    Dim CurrentDate      As String
  385.    
  386.    If (Trim(Text1.Text) = "") Then Text1.Text = Format$(Now, "dd.mm.yyyy")
  387.    
  388.    CurrentDate = Text1.Text
  389.    
  390.    strDisplay = strDisplay & "Current date is " & CurrentDate & vbCrLf & vbCrLf
  391.    
  392.    Value = Val(cConvert(-CNV_DATE_LONG, CurrentDate, intResult))
  393.    strDisplay = strDisplay & "Current date in Long Day is " & Value & vbCrLf & vbCrLf
  394.    
  395.    strDisplay = strDisplay & "Convert '" & Value & "' in DATE_LONG is '" & cConvert(CNV_DATE_LONG, Value, intResult) & "'" & vbCrLf & vbCrLf
  396.  
  397.    Value = Val(cConvert(-CNV_DATE_SHORT, CurrentDate, intResult))
  398.    strDisplay = strDisplay & "Current date in Short Day is " & Value & vbCrLf & vbCrLf
  399.    
  400.    strDisplay = strDisplay & "Convert '" & Value & "' in DATE_SHORT is '" & cConvert(CNV_DATE_SHORT, Value, intResult) & "'" & vbCrLf & vbCrLf
  401.    
  402.    txt_Result = strDisplay
  403.  
  404.    'time the function
  405.  
  406.    TimerHandle = cTimerOpen()
  407.    TimerStartOk = cTimerStart(TimerHandle)
  408.    
  409.    For i = 1 To Iteration
  410.       strResult = cConvert(CNV_DATE_SHORT, Value, intResult)
  411.    Next i
  412.    
  413.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  414.    
  415.    TimerCloseOk = cTimerClose(TimerHandle)
  416.  
  417. End Sub
  418.  
  419. Private Sub TestCnvMinuteToTime()
  420.  
  421.    Dim intResult        As Integer
  422.    Dim strResult        As String
  423.    Dim strDisplay       As String
  424.    
  425.    Dim i                As Integer
  426.    
  427.    Dim Value            As String
  428.    
  429.    Dim CurrentTime      As String
  430.    
  431.    If (Trim(Text1.Text) = "") Then Text1.Text = Format$(Now, "hh:mm")
  432.    
  433.    CurrentTime = Text1.Text
  434.    
  435.    strDisplay = strDisplay & "Current time is " & CurrentTime & vbCrLf & vbCrLf
  436.    
  437.    Value = Val(cConvert(-CNV_BALANCE_AND_WITH_SIGN, CurrentTime, intResult))
  438.    
  439.    strDisplay = strDisplay & "Current time in minute is " & Value & vbCrLf & vbCrLf
  440.    
  441.    strDisplay = strDisplay & "Convert '" & Value & "' in TIME_FILL_ZERO is '" & cConvert(CNV_TIME_FILL_ZERO, Value, intResult) & "'" & vbCrLf
  442.    strDisplay = strDisplay & "Convert '" & Value & "' in TIME is '" & cConvert(CNV_TIME, Value, intResult) & "'" & vbCrLf & vbCrLf
  443.    
  444.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(CNV_HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  445.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(CNV_HOUR_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  446.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_WITH_ALWAYS_SIGN is '" & cConvert(CNV_HOUR_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  447.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_AND_WITH_SIGN is '" & cConvert(CNV_HOUR_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf & vbCrLf
  448.    
  449.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(CNV_BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  450.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(CNV_BALANCE_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  451.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_WITH_ALWAYS_SIGN is '" & cConvert(CNV_BALANCE_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  452.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_AND_WITH_SIGN is '" & cConvert(CNV_BALANCE_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf & vbCrLf
  453.    
  454.    Value = "-" & Value
  455.    
  456.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(CNV_HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  457.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(CNV_HOUR_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  458.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_WITH_ALWAYS_SIGN is '" & cConvert(CNV_HOUR_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  459.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_AND_WITH_SIGN is '" & cConvert(CNV_HOUR_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf & vbCrLf
  460.    
  461.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(CNV_BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  462.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(CNV_BALANCE_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  463.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_WITH_ALWAYS_SIGN is '" & cConvert(CNV_BALANCE_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  464.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_AND_WITH_SIGN is '" & cConvert(CNV_BALANCE_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  465.    
  466.    txt_Result = strDisplay
  467.  
  468.    'time the function
  469.  
  470.    TimerHandle = cTimerOpen()
  471.    TimerStartOk = cTimerStart(TimerHandle)
  472.    
  473.    For i = 1 To Iteration
  474.       strResult = cConvert(CNV_TIME, Value, intResult)
  475.    Next i
  476.    
  477.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  478.    
  479.    TimerCloseOk = cTimerClose(TimerHandle)
  480.  
  481. End Sub
  482.  
  483. Private Sub TestCnvMinuteToHundred()
  484.  
  485.    Dim intResult        As Integer
  486.    Dim strResult        As String
  487.    Dim strDisplay       As String
  488.    
  489.    Dim i                As Integer
  490.    
  491.    Dim Value            As String
  492.    
  493.    Dim CurrentTime      As String
  494.    
  495.    If (Trim(Text1.Text) = "") Then Text1.Text = Format$(Now, "hh:mm")
  496.    
  497.    CurrentTime = Text1.Text
  498.    
  499.    strDisplay = strDisplay & "Current time is " & CurrentTime & vbCrLf & vbCrLf
  500.    
  501.    Value = Val(cConvert(-CNV_BALANCE_AND_WITH_SIGN, CurrentTime, intResult))
  502.    
  503.    strDisplay = strDisplay & "Current time in minute is " & Value & vbCrLf & vbCrLf
  504.    
  505.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_TIME_FILL_ZERO is '" & cConvert(CNV_HUNDRED_TIME_FILL_ZERO, Value, intResult) & "'" & vbCrLf
  506.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_TIME is '" & cConvert(CNV_HUNDRED_TIME, Value, intResult) & "'" & vbCrLf & vbCrLf
  507.    
  508.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(CNV_HUNDRED_HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  509.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(CNV_HUNDRED_HOUR_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  510.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_WITH_ALWAYS_SIGN is '" & cConvert(CNV_HUNDRED_HOUR_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  511.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_AND_WITH_SIGN is '" & cConvert(CNV_HUNDRED_HOUR_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf & vbCrLf
  512.    
  513.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(CNV_HUNDRED_BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  514.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(CNV_HUNDRED_BALANCE_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  515.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_WITH_ALWAYS_SIGN is '" & cConvert(CNV_HUNDRED_BALANCE_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  516.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_AND_WITH_SIGN is '" & cConvert(CNV_HUNDRED_BALANCE_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf & vbCrLf
  517.    
  518.    Value = "-" & Value
  519.    
  520.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(CNV_HUNDRED_HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  521.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(CNV_HUNDRED_HOUR_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  522.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_WITH_ALWAYS_SIGN is '" & cConvert(CNV_HUNDRED_HOUR_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  523.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_AND_WITH_SIGN is '" & cConvert(CNV_HUNDRED_HOUR_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf & vbCrLf
  524.    
  525.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(CNV_HUNDRED_BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  526.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(CNV_HUNDRED_BALANCE_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  527.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_WITH_ALWAYS_SIGN is '" & cConvert(CNV_HUNDRED_BALANCE_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  528.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_AND_WITH_SIGN is '" & cConvert(CNV_HUNDRED_BALANCE_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  529.    
  530.    txt_Result = strDisplay
  531.  
  532.    'time the function
  533.  
  534.    TimerHandle = cTimerOpen()
  535.    TimerStartOk = cTimerStart(TimerHandle)
  536.    
  537.    For i = 1 To Iteration
  538.       strResult = cConvert(CNV_HUNDRED_TIME, Value, intResult)
  539.    Next i
  540.    
  541.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  542.    
  543.    TimerCloseOk = cTimerClose(TimerHandle)
  544.  
  545. End Sub
  546.  
  547. Private Sub TestCnvTimeToMinute()
  548.  
  549.    Dim intResult        As Integer
  550.    Dim strResult        As String
  551.    Dim strDisplay       As String
  552.    
  553.    Dim i                As Integer
  554.    
  555.    Dim Value            As String
  556.    
  557.    Dim CurrentTime      As String
  558.    
  559.    If (Trim(Text1.Text) = "") Then Text1.Text = Val(cConvert(-CNV_BALANCE_AND_WITH_SIGN, Format$(Now, "hh:mm"), intResult))
  560.    
  561.    CurrentTime = Text1.Text
  562.    
  563.    strDisplay = strDisplay & "Current minute is " & CurrentTime & vbCrLf & vbCrLf
  564.    
  565.    Value = cCompress(cConvert(CNV_BALANCE_AND_WITH_SIGN, CurrentTime, intResult))
  566.    
  567.    strDisplay = strDisplay & "Current minute in time is " & Value & vbCrLf & vbCrLf
  568.    
  569.    strDisplay = strDisplay & "Convert '" & Value & "' in TIME_FILL_ZERO is '" & cConvert(-CNV_TIME_FILL_ZERO, Value, intResult) & "'" & vbCrLf
  570.    strDisplay = strDisplay & "Convert '" & Value & "' in TIME is '" & cConvert(-CNV_TIME, Value, intResult) & "'" & vbCrLf & vbCrLf
  571.    
  572.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  573.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(-CNV_HOUR_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  574.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_HOUR_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  575.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_AND_WITH_SIGN is '" & cConvert(-CNV_HOUR_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf & vbCrLf
  576.    
  577.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  578.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(-CNV_BALANCE_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  579.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_BALANCE_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  580.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_AND_WITH_SIGN is '" & cConvert(-CNV_BALANCE_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf & vbCrLf
  581.    
  582.    Value = "-" & Value
  583.    
  584.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  585.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(-CNV_HOUR_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  586.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_HOUR_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  587.    strDisplay = strDisplay & "Convert '" & Value & "' in HOUR_AND_WITH_SIGN is '" & cConvert(-CNV_HOUR_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf & vbCrLf
  588.    
  589.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  590.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(-CNV_BALANCE_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  591.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_BALANCE_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  592.    strDisplay = strDisplay & "Convert '" & Value & "' in BALANCE_AND_WITH_SIGN is '" & cConvert(-CNV_BALANCE_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  593.    
  594.    txt_Result = strDisplay
  595.  
  596.    'time the function
  597.  
  598.    TimerHandle = cTimerOpen()
  599.    TimerStartOk = cTimerStart(TimerHandle)
  600.    
  601.    For i = 1 To Iteration
  602.       strResult = cConvert(-CNV_TIME, Value, intResult)
  603.    Next i
  604.    
  605.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  606.    
  607.    TimerCloseOk = cTimerClose(TimerHandle)
  608.  
  609. End Sub
  610.  
  611. Private Sub TestCnvHundredToMinute()
  612.  
  613.    Dim intResult        As Integer
  614.    Dim strResult        As String
  615.    Dim strDisplay       As String
  616.    
  617.    Dim i                As Integer
  618.    
  619.    Dim Value            As String
  620.    
  621.    Dim CurrentTime      As String
  622.    
  623.    If (Trim(Text1.Text) = "") Then Text1.Text = Val(cConvert(-CNV_BALANCE_AND_WITH_SIGN, Format$(Now, "hh:mm"), intResult))
  624.    
  625.    CurrentTime = Text1.Text
  626.    
  627.    strDisplay = strDisplay & "Current time is " & CurrentTime & vbCrLf & vbCrLf
  628.    
  629.    Value = cCompress(cConvert(CNV_HUNDRED_BALANCE_AND_WITH_SIGN, CurrentTime, intResult))
  630.    
  631.    strDisplay = strDisplay & "Current minute in time is " & Value & vbCrLf & vbCrLf
  632.    
  633.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_TIME_FILL_ZERO is '" & cConvert(-CNV_HUNDRED_TIME_FILL_ZERO, Value, intResult) & "'" & vbCrLf
  634.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_TIME is '" & cConvert(-CNV_HUNDRED_TIME, Value, intResult) & "'" & vbCrLf & vbCrLf
  635.    
  636.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_HUNDRED_HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  637.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(-CNV_HUNDRED_HOUR_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  638.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_HUNDRED_HOUR_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  639.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_AND_WITH_SIGN is '" & cConvert(-CNV_HUNDRED_HOUR_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf & vbCrLf
  640.    
  641.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_HUNDRED_BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  642.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(-CNV_HUNDRED_BALANCE_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  643.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_HUNDRED_BALANCE_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  644.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_AND_WITH_SIGN is '" & cConvert(-CNV_HUNDRED_BALANCE_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf & vbCrLf
  645.    
  646.    Value = "-" & Value
  647.    
  648.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_HUNDRED_HOUR_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  649.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(-CNV_HUNDRED_HOUR_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  650.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_HUNDRED_HOUR_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  651.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_HOUR_AND_WITH_SIGN is '" & cConvert(-CNV_HUNDRED_HOUR_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf & vbCrLf
  652.    
  653.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_HUNDRED_BALANCE_FILL_ZERO_AND_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  654.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_FILL_ZERO_AND_WITH_SIGN is '" & cConvert(-CNV_HUNDRED_BALANCE_FILL_ZERO_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  655.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_WITH_ALWAYS_SIGN is '" & cConvert(-CNV_HUNDRED_BALANCE_WITH_ALWAYS_SIGN, Value, intResult) & "'" & vbCrLf
  656.    strDisplay = strDisplay & "Convert '" & Value & "' in HUNDRED_BALANCE_AND_WITH_SIGN is '" & cConvert(-CNV_HUNDRED_BALANCE_AND_WITH_SIGN, Value, intResult) & "'" & vbCrLf
  657.    
  658.    txt_Result = strDisplay
  659.  
  660.    'time the function
  661.  
  662.    TimerHandle = cTimerOpen()
  663.    TimerStartOk = cTimerStart(TimerHandle)
  664.    
  665.    For i = 1 To Iteration
  666.       strResult = cConvert(-CNV_TIME, Value, intResult)
  667.    Next i
  668.    
  669.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  670.    
  671.    TimerCloseOk = cTimerClose(TimerHandle)
  672.  
  673. End Sub
  674.  
  675. Private Sub SSCommand2_Click()
  676.  
  677.    Dim intResult     As Integer
  678.  
  679.    Select Case cmb_Function.ListIndex
  680.       Case 0   'TestDateStatistic
  681.          Text1.Text = Format$(Now, "dd.mm.yyyy")
  682.       Case 1   'TestDateConvert
  683.          Text1.Text = Format$(Now, "dd.mm.yyyy")
  684.       Case 2   'TestCnvMinuteToTime
  685.          Text1.Text = Format$(Now, "hh:mm")
  686.       Case 3   'TestCnvMinuteToHundred
  687.          Text1.Text = Format$(Now, "hh:mm")
  688.       Case 4   'TestCnvTimeToMinute
  689.          Text1.Text = Val(cConvert(-CNV_BALANCE_AND_WITH_SIGN, Format$(Now, "hh:mm"), intResult))
  690.       Case 5   'TestCnvHundredToMinute
  691.          Text1.Text = Val(cConvert(-CNV_HUNDRED_BALANCE_AND_WITH_SIGN, Format$(Now, "hh:mm"), intResult))
  692.       Case 6   'TestDateHourLong
  693.          Text1.Text = Format$(Now, "dd.mm.yyyy hh:nn:ss")
  694.    End Select
  695.    
  696. End Sub
  697. Private Sub TestDateHourLong()
  698.  
  699.    Dim intResult        As Integer
  700.    Dim strResult        As String
  701.    Dim strDisplay       As String
  702.    
  703.    Dim i                As Integer
  704.   
  705.    Dim nYear            As Integer
  706.    Dim nMonth           As Integer
  707.    Dim nDay             As Integer
  708.  
  709.    Dim nHour            As Integer
  710.    Dim nMinute          As Integer
  711.    Dim nExtra           As Integer
  712.  
  713.    Dim nNow             As Long
  714.    
  715.    Dim fNow             As Date
  716.    
  717.    fNow = Now
  718.  
  719.    Text1.Text = Format$(fNow, "dd.mm.yyyy hh:nn:ss")
  720.    strDisplay = "Today is the '" & Text1.Text & "'" & vbCrLf & vbCrLf
  721.    
  722.    nYear = Val(Format$(fNow, "yyyy"))
  723.    nMonth = Val(Format$(fNow, "mm"))
  724.    nDay = Val(Format$(fNow, "dd"))
  725.    nHour = Val(Format$(fNow, "hh"))
  726.    nMinute = Val(Format$(fNow, "nn"))
  727.    nExtra = Val(Format$(fNow, "ss")) \ 2
  728.    
  729.    nNow = cDateHourToLong(nYear, nMonth, nDay, nHour, nMinute, nExtra)
  730.    strDisplay = strDisplay & "Actual DateHour is '" & nNow & "'" & vbCrLf
  731.    Call cLongToDateHour(nNow, nYear, nMonth, nDay, nHour, nMinute, nExtra)
  732.    strDisplay = strDisplay & "Year : " & nYear & ", Month : " & nMonth & ", Day : " & nDay & vbCrLf
  733.    strDisplay = strDisplay & "Hour : " & nHour & ", Minute : " & nMinute & ", Extra : " & nExtra & vbCrLf & vbCrLf
  734.  
  735.    nYear = Val(Format$(Now, "yyyy"))
  736.    nMonth = 1
  737.    nDay = 1
  738.    nHour = 0
  739.    nMinute = 0
  740.    nExtra = 0
  741.  
  742.    strDisplay = strDisplay & "First Day is the '" & Format$(DateSerial(nYear, nMonth, nDay), "short date") & " 00:00:00'" & vbCrLf & vbCrLf
  743.  
  744.    nNow = cDateHourToLong(nYear, nMonth, nDay, nHour, nMinute, nExtra)
  745.    strDisplay = strDisplay & "Actual DateHour is '" & nNow & "'" & vbCrLf
  746.    Call cLongToDateHour(nNow, nYear, nMonth, nDay, nHour, nMinute, nExtra)
  747.    strDisplay = strDisplay & "Year : " & nYear & ", Month : " & nMonth & ", Day : " & nDay & vbCrLf
  748.    strDisplay = strDisplay & "Hour : " & nHour & ", Minute : " & nMinute & ", Extra : " & nExtra & vbCrLf & vbCrLf
  749.  
  750.    nYear = 1900
  751.    nMonth = 1
  752.    nDay = 1
  753.    nHour = 0
  754.    nMinute = 0
  755.    nExtra = 0
  756.  
  757.    strDisplay = strDisplay & "Minimum DateHour '1900.01.01 00:00'" & vbCrLf & vbCrLf
  758.  
  759.    nNow = cDateHourToLong(nYear, nMonth, nDay, nHour, nMinute, nExtra)
  760.    strDisplay = strDisplay & "Actual DateHour is '" & nNow & "'" & vbCrLf
  761.    Call cLongToDateHour(nNow, nYear, nMonth, nDay, nHour, nMinute, nExtra)
  762.    strDisplay = strDisplay & "Year : " & nYear & ", Month : " & nMonth & ", Day : " & nDay & vbCrLf
  763.    strDisplay = strDisplay & "Hour : " & nHour & ", Minute : " & nMinute & ", Extra : " & nExtra & vbCrLf & vbCrLf
  764.  
  765.    nYear = 1900 + 179
  766.    nMonth = 6
  767.    nDay = 6
  768.    nHour = 23
  769.    nMinute = 59
  770.    nExtra = 31
  771.  
  772.    strDisplay = strDisplay & "Maximum DateHour '2079.06.06 23:59'" & vbCrLf & vbCrLf
  773.  
  774.    nNow = cDateHourToLong(nYear, nMonth, nDay, nHour, nMinute, nExtra)
  775.    strDisplay = strDisplay & "Actual DateHour is '" & nNow & "'" & vbCrLf
  776.    Call cLongToDateHour(nNow, nYear, nMonth, nDay, nHour, nMinute, nExtra)
  777.    strDisplay = strDisplay & "Year : " & nYear & ", Month : " & nMonth & ", Day : " & nDay & vbCrLf
  778.    strDisplay = strDisplay & "Hour : " & nHour & ", Minute : " & nMinute & ", Extra : " & nExtra & vbCrLf & vbCrLf
  779.  
  780.    nYear = 1997
  781.    nMonth = 1
  782.    nDay = 1
  783.    nHour = 23
  784.    nMinute = 59
  785.    nExtra = 31
  786.  
  787.    strDisplay = strDisplay & "Test DateHour '1997-01-01 23:59:31'" & vbCrLf & vbCrLf
  788.    
  789.    nNow = cDateHourToLong(nYear, nMonth, nDay, nHour, nMinute, nExtra)
  790.    strDisplay = strDisplay & "Actual DateHour is '" & nNow & "'" & vbCrLf
  791.    Call cLongToDateHour(nNow, nYear, nMonth, nDay, nHour, nMinute, nExtra)
  792.    strDisplay = strDisplay & "Year : " & nYear & ", Month : " & nMonth & ", Day : " & nDay & vbCrLf
  793.    strDisplay = strDisplay & "Hour : " & nHour & ", Minute : " & nMinute & ", Extra : " & nExtra & vbCrLf & vbCrLf
  794.  
  795.    txt_Result = strDisplay
  796.  
  797.    'time the function
  798.  
  799.    TimerHandle = cTimerOpen()
  800.    TimerStartOk = cTimerStart(TimerHandle)
  801.    
  802.    For i = 1 To Iteration
  803.       Call cLongToDateHour(nNow, nYear, nMonth, nDay, nHour, nMinute, nExtra)
  804.    Next i
  805.    
  806.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  807.    
  808.    TimerCloseOk = cTimerClose(TimerHandle)
  809.  
  810. End Sub
  811.