Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
DateTime.DateFormat = "dd.MM.yy"
DateTime.TimeFormat = "HH:mm"
Dim datum, zeit, akt_datzeit, akt_minuten As String
datum = "08.03.13"
zeit = "11:08"
akt_minuten = (DateTime.TimeParse(zeit) - DateTime.TimeParse("00:00")) / DateTime.TicksPerMinute
akt_datzeit = (DateTime.DateParse(datum) / DateTime.TicksPerMinute) + akt_minuten
Label1.Text = "Diff_Zeit vom 1.1.1970 in Minuten = " & akt_datzeit
End Sub