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