Определение промежутка времени.

[vvs_adm]

[здесь никогда ничего не было]

[GSerg]

В чём прикол-то?

[vvs_adm]

[а это вообще непонятно, откуда взялось]

[GSerg]

А ты делаешь "время до" минус "время после".
В чём прикол-то?

[vvs_adm]

Код: Выделить всё

Private Sub cmdGenerate_Click()
    Dim I As Long
    Dim fTimer As Single
   
    cmdGenerate.Enabled = False
    fTimer = Timer
   
    lab.CreateLab 10, 10, 1
    lab.Draw 0, 1, ctLine, 1 + CELL_TYPE.ctLine, 100, True
   
    For I = 0 To 99
        Me.lblCell(I).BackColor = VBRUN.ColorConstants.vbGreen
        Me.lblCell(I).ForeColor = VBRUN.ColorConstants.vbCyan
        Me.lblCell(I).Caption = ""
        Select Case lab.Cell(0, 0, 0, I)
            Case (1 + CELL_TYPE.ctLine):
                Me.lblCell(I).BackColor = VBRUN.ColorConstants.vbBlue
                Me.lblCell(I).Caption = S
            Case (1 + CELL_TYPE.ctLine + RD_LEFT):
                Me.lblCell(I).BackColor = VBRUN.ColorConstants.vbBlue
                Me.lblCell(I).Caption = ChrW(8592)
            Case (1 + CELL_TYPE.ctLine + RD_UP):
                Me.lblCell(I).BackColor = VBRUN.ColorConstants.vbBlue
                Me.lblCell(I).Caption = ChrW(8593)
            Case (1 + CELL_TYPE.ctLine + RD_RIGHT):
                Me.lblCell(I).BackColor = VBRUN.ColorConstants.vbBlue
                Me.lblCell(I).Caption = ChrW(8594)
            Case (1 + CELL_TYPE.ctLine + RD_DOWN):
                Me.lblCell(I).BackColor = VBRUN.ColorConstants.vbBlue
                Me.lblCell(I).Caption = ChrW(8595)
            Case (1 + CELL_TYPE.ctLine + RD_END):
                Me.lblCell(I).BackColor = VBRUN.ColorConstants.vbBlue
                Me.lblCell(I).Caption = E
        End Select
    Next I
    cmdGenerate.Enabled = True
    fTimer = (Timer - fTimer)
    If fTimer <> 0 Then lblTimer.Caption = fTimer
End Sub

Ну тут-то вроде все нормально. А картинка такая:

[GSerg]

Ы.
А нефиг числа с плавающей точкой сравнивать на равенство. Ноль это.