Private Sub Form_Load() 'dopystim tebe nyjno vrem9 ot 1950
Dim x As Long
Dim a  As Long
Dim vrem9 As Long
vrem9 = 0
For x = 1950 To Year(Date) - 1
If x Mod 4 = 0 Then a = 86400 * 366 Else a = 86400 * 365
vrem9 = vrem9 + a
Next x

If Month(Date) = 1 Then
Else
For x = 1 To Month(Date)-1
If x = 1 Or x = 3 Or x = 5 Or x = 7 Or x = 8 Or x = 10 Or x = 12 Then
a = 60 * 60 * 24 * 31
ElseIf x = 4 Or x = 6 Or x = 9 Or x = 11 Then
a = 60 * 60 * 24 * 30
ElseIf x = 2 Then
If Year(Date) Mod 4 = 0 Then a = 29 Else a = 28
vrem9 = vrem9 + a
End If
Next x
End If

If Day(Date) = 1 Then
Else
vrem9 = vrem9 + (Day(Date) - 1) * 60 * 60 * 24
'Ývrem9  vrem9 + (month(date)-1)*×
End If

If Hour(Time) = 0 Then
Else
vrem9 = vrem9 + Hour(Time) * 60 * 60
'Ývrem9  vrem9 + (month(date)-1)*×
End If

If Minute(Time) = 0 Then
Else
vrem9 = vrem9 + Minute(Time) * 60
End If

vrem9 = vrem9 + Second(Time)
Text2.Text = vrem9
End Sub

If Year(Date) Mod 4 = 0 Then a = 29 Else a = 28

If Year(Date) Mod 4 = 0 Then a = 29*60*60*24 Else a = 28*60*60*24