Dim Child As Integer
Dim Adult As Integer
Dim Senior As Integer
Dim Death As Integer
Dim Born As Integer
Death = 7490
Born = 9987
Child = 18%
Adult = 65%
Senior = 17%
PopChild.Text = PopTotal.Text * Child
PopAdult.Text = PopTotal.Text * Adult
PopSenior.Text = PopTotal.Text * Senior
PopDeath.Text = Val(PopDeath.Text) + Death
PopBirth.Text = Val(PopBirth.Text) + Born
Sub test()
Dim slask As Single
slask = 0.65
MsgBox slask & " = " & FormatPercent(slask)
End Sub
Flashback finansieras genom donationer från våra medlemmar och besökare. Det är med hjälp av dig vi kan fortsätta erbjuda en fri samhällsdebatt. Tack för ditt stöd!
Swish: 123 536 99 96 Bankgiro: 211-4106
Flashback finansieras genom donationer från våra medlemmar och besökare. Det är med hjälp av dig vi kan fortsätta erbjuda en fri samhällsdebatt. Tack för ditt stöd!
Swish: 123 536 99 96 Bankgiro: 211-4106