Dim wert As Integer = 1719000310
Dim sek As Integer = 86400
Dim ergebnis As Double = z1 / z2
 
'ergibt:
'19895.836921296297

Dim datum As String = #1970-1-1#.AddSeconds(1719000310).ToString
 
'ergibt:
'21.06.2024 20:05:10

Dim sng As Single = CSng(1719000310 / 86400)       '19895.8379 
Dim dbl As Double = CDbl(1719000310 / 86400)       '19895.836921296297
 
Dim dec As Decimal = CDec(1719000310) / CDec(86400)
'19895.836921296296296296296296
 
Dim sng2 As Single = sng * 86400   '1.71900045E+09
Dim dbl2 As Double = dbl * 86400   '1719000310
Dim dec2 As Decimal = dec * 86400  '1719000310