'Режим обязательного объявления переменных
Option Explicit

'Объявление глобальных переменных
Public DtmSegodnya As Date, DtmPotChas As Date

Private Sub CmdЗапуск_Click()
'Объявление переменных
Dim SngPribyl As Single, SngOsnovniyFondi As Single, SngObratniyFond As Single, SngPribyl As Single
Dim SngOsnovniyFondi As Single
Dim DtmStart As Date
Dim DtmFinish As Date
Dim IntDelta As Integer
Dim StrPovidoml As String

'Ввод входных данных
SngPribyl = CSng(TxtПрибыль.Text)
SngOsnovniyFondi = CSng(TxtОсновныеФонды.Text)
SngObratniyFond = CSng(TxtОбратныеФонды.Text)

'Расчёты
DtmStart = Now
TxtСтарт.Text = FormatDateTime(DtmStart, vbLongTime)
SngPribyl = SngPribyl / (SngOsnovniyFondi + SngObratniyFond) * 100
DtmFinish = DateAdd("n", SngPribyl, DtmStart)

'Вывод данных

End Sub