#include <Date.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Dim $cause[70]
$cause[1]="Ein Todesfall durch Infektionen oder Parasiten<>10937452"
$cause[2]="Ein Todesfall durch Tuberkulose<>1644381"
$cause[3]="Ein Todesfall durch Syphilis<>167451"
$cause[4]="Ein Todesfall durch AIDS<>2865804"
$cause[5]="Ein Todesfall durch Durchfallerkrankungen<>2001193"
$cause[6]="Ein Todesfall durch Kinderkrankheiten<>1318151"
$cause[7]="Ein Todesfall durch Masern<>744864"
$cause[8]="Ein Todesfall durch Tetanus<>281897"
$cause[9]="Ein Todesfall durch Meningitis<>173333"
$cause[10]="Ein Todesfall durch Hepatitis B<>81050"
$cause[11]="Ein Todesfall durch Hepatitis C<>45599"
$cause[12]="Ein Todesfall durch Malaria<>1123764"
$cause[13]="Ein Todesfall durch Lepra<>4133"
$cause[14]="Ein Todesfall durch Denguefieber<>21170"
$cause[15]="Ein Todesfall durch Infektion der Atemwege<>3947426"
$cause[16]="Ein Todesfall durch mütterliche Blutungen<>143178"
$cause[17]="Ein Todesfall durch mütterliche Sepsis<>77096"
$cause[18]="Ein Todesfall durch Wehen<>42890"
$cause[19]="Ein Todesfall durch Abtreibung<>59166"
$cause[20]="Ein Todesfall durch kleinkindliches Untergewicht<>1345471"
$cause[21]="Ein Todesfall durch Asphyxie und Geburtstrauma<>689694"
$cause[22]="Ein Todesfall durch Energie-Protein-Mangelernährung<>257530"
$cause[23]="Ein Todesfall durch Vitamin A Mangel<>28358"
$cause[24]="Ein Todesfall durch chronischen Eisenmangel<>137847"
$cause[25]="Ein Todesfall durch Krebs<>7114896"
$cause[26]="Ein Todesfall durch Mund und Oropharynx Krebs<>326388"
$cause[27]="Ein Todesfall durch Oesophagus Krebs<>437677"
$cause[28]="Ein Todesfall durch Magenkrebs<>849698"
$cause[31]="Ein Todesfall durch Dickdarm und Rektumkrebs<>615233"
$cause[32]="Ein Todesfall durch Leberkrebs<>616367"
$cause[33]="Ein Todesfall durch Pankreas Krebs<>225032"
$cause[34]="Ein Todesfall durch Lungenkrebs<>1213095"
$cause[35]="Ein Todesfall durch Hautkrebs<>65921"
$cause[36]="Ein Todesfall durch Brustkrebs<>478687"
$cause[37]="Ein Todesfall durch Gebärmutterhalskrebs<>258404"
$cause[38]="Ein Todesfall durch Prostatakrebs<>269118"
$cause[39]="Ein Todesfall durch Leukemie<>260341"
$cause[40]="Ein Todesfall durch Diabetis<>895454"
$cause[41]="Ein Todesfall durch Unipolare depressive Störungen<>12448"
$cause[42]="Ein Todesfall durch Schizophrenie<>23744"
$cause[43]="Ein Todesfall durch Epilepsie<>108773"
$cause[44]="Ein Todesfall durch Alkoholmisbrauch<>86697"
$cause[45]="Ein Todesfall durch Alzheimer und andere Demenzen<>367837"
$cause[46]="Ein Todesfall durch Parkinson<>91988"
$cause[47]="Ein Todesfall durch multiple sclerosis<>15019"
$cause[48]="Ein Todesfall durch Drogen<>68414"
$cause[49]="Ein Todesfall durch Herz-Kreislauf-Erkrankungen<>16585393"
$cause[50]="Ein Todesfall durch Rheuma<>337622"
$cause[51]="Ein Todesfall durch Herzüberaktivitätserkrankungen<>874013"
$cause[52]="Ein Todesfall durch Ischämische Herzkrankheit<>7180906"
$cause[53]="Ein Todesfall durch zerebrovaskuläre Erkrankungen<>5454375"
$cause[54]="Ein Todesfall durch Herzentzündungen<>375104"
$cause[55]="Ein Todesfall durch andere Entzündungen<>2363372"
$cause[56]="Ein Todesfall durch chronisch obstruktive Lungenerkrankung<>2672275"
$cause[57]="Ein Todesfall durch Asthma<>225723"
$cause[58]="Ein Todesfall durch peptische Ulzera<>262350"
$cause[59]="Ein Todesfall durch Leberkorrision<>796004"
$cause[60]="Ein Todesfall durch Verkehrsunfälle<>1194115"
$cause[61]="Ein Todesfall durch Vergiftung<>342977"
$cause[62]="Ein Todesfall durch Stürze<>385017"
$cause[63]="Ein Todesfall durch Feuer<>309374"
$cause[64]="Ein Todesfall durch Ertrinken<>402797"
$cause[65]="Ein Todesfall durch andere unverschuldete Verletzungen<>873917"
$cause[66]="Ein Todesfall durch selbstverursachte Verletzungen<>849106"
$cause[67]="Ein Todesfall durch Gewalt<>500487"
$cause[68]="Ein Todesfall durch Krieg<>229598"
$cause[69]="Todesfälle insgesamt<>56553860"
Dim $TempCause[69]
For $i = 1 To 68
	$aSplit = StringSplit($cause[$i], "<>")
	$All = $aSplit[UBound($aSplit)-1]
	$Seconds = _DateDiff("s", "2000/1/1 00:00:01", _NowCalc())
	$Years = $Seconds/60/60/24/31/12
	$Deaths = Int($All * $Years)
	$TempCause[$i] = $Deaths
Next
$_1 = GUICreate("Die Todesuhr läuft seit dem Jahr 2000", 411, 311)
GUISetBkColor(0x000000)
$Deathslbl = GUICtrlCreateEdit("", 5, 35, 400, 270, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetFont(-1, 8, 400, 0, "Segoe Script")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$exDeathslbl = GUICtrlCreateLabel("---", 4, 3, 400, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Segoe Script")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
Do
	For $i = 1 To 68
		If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
		$aSplit = StringSplit($cause[$i], "<>", 1)
		$DConst = $aSplit[UBound($aSplit)-1]
		$DText = $aSplit[1]
		$Seconds = _DateDiff("s", "2000/1/1 00:00:01", _NowCalc())
		$Years = $Seconds/60/60/24/31/12
		$Deaths = Int($DConst * $Years)
		If $Deaths > $TempCause[$i] Then
			GUICtrlSetData($Deathslbl, Chr(0134)&" "&@HOUR&":"&@MIN&":"&@SEC&" "&$DText&@CRLF&GUICtrlRead($Deathslbl))
			$TempCause[$i] = $Deaths
		EndIf
	Next
	$aSplit = StringSplit($cause[69], "<>", 1)
	$DConst = $aSplit[UBound($aSplit)-1]
	$DText = $aSplit[1]
	$Seconds = _DateDiff("s", "2000/1/1 00:00:01", _NowCalc())
	$Years = $Seconds/60/60/24/31/12
	$Deaths = Int($DConst * $Years)
	GUICtrlSetData($exDeathslbl, Chr(0134)&" "&$DText&": "&$Deaths)
Until GUIGetMsg() = $GUI_EVENT_CLOSE