Hej,
Jag får felmedelandet "The Targered version .NET Compact Framework does not support latebinding"
när jag konverterat en vb6 class fil till .net CF, eller rättare sagt så konverterade jag till VB.net och sen infogade classen i CF projektet.

Jag behöver konvertera denna IIF satsen till en if sats troligen.
SunSet = System.DateTime.FromOADate(lSunSet.ToOADate + (IIf(Sommertid, IIf(DaylightSaving(DateSerial(lYear, lMonth, lDay)), TimeSerial(1, 0, 0), 0), 0)).ToOADate)

Tyvärr står det helt still i huvudet för jag har aldrig använt IIF själv någon gång.

Är det någon som kan hjälpa mig lite på traven för att få den konverterad?

Projektet finns här!
http://www.pellesoft.se/communicate/userprogram/program.aspx?tid=1047

Har testat i VB6 och tiderna man får ut stämmer med vädertjänstens tider.

Detta är koden för att anropa classen!

Dim Sun As New clsSun

Sun.Latitude = 57.44 ' Breddegrader
Sun.Longitude = 12.56 ' Lengdegrader
Sun.Sommertid = True ' Sommertid?
Sun.TimeZone = 2

' Bruk nåværende dato
Sun.cCurrentDate = Now

' Kalkuler soloppgang og solnedgang
Sun.Calculate()

' Returner tidspunkt for soloppgang og solnedgang
MsgBox("Solen går upp kl. " & Sun.SunRise & " och ned kl. " & Sun.SunSet, vbInformation, "Soluppgång og solnedgång")

IIf(Sommertid, ser lite konstigt ut med tanke på att Sommertid är en double

Efter mycket klurande blev det så här till sist!

Datum = DateSerial(lYear, lMonth, lDay)
If Datum.IsDaylightSavingTime() = True Then
SunSet = lSunSet.AddHours(1)
SunSet = FormatDateTime(SunSet, DateFormat.ShortTime)
Else
SunSet = FormatDateTime(lSunSet, DateFormat.ShortTime)
End If