Sorry accidentally pushed the "reset database" button. It's now back
For the Exodus Coins Generated I used the following formula
Time1 = $Time of latest block in seconds
dBlockDateTime = DateAdd(DateInterval.Second, Time1, New DateTime(1970, 1, 1, 0, 0, 0))
'Calculate number of seconds from September 1,2013 to Latest Block Time
SecondsFromSept12013 = DateDiff(DateInterval.Second, #9/1/2013#, dBlockDateTime)
Dim Gencoins As Double = (1 - (0.5 ^ (SecondsFromSept12013 / 31557600))) * 56316.23576222
Gencoins = Round(Gencoins) to the nearest 8 decimal
Edit
OK will change 31557600 to 31556926