Sub ffffzefzlol()
Dim valmdp&, valmdp2&, valmdp3&, valmdp4&, code5&, valmdp6&, valmdp7&, valmdp8&, g&, f&
a = Format(Now, "yyyy")
b = 1515
c = Format(Now, "m")
d = Format(Now, "d")
e = Hour(Now)
f = a * a - b - 226 * c * c * c + d * d * d
g = 43857
End Sub