home MLI e ora legale!

[thomas]

Devo dire che mi fa un po' tristezza guardare fuori dalla finestra e veder buio già da due ore, mentre sulla home di MLI campeggia un bel tramonto...

Che spaccamaroni!

[Bocca]

Hai ragione... Domani aggiorno l'orario!

[krono]

ragazzi se interessa ho una funzione vb (traducibile facilmente in php) che calcola in base alla data odiera, l'ora dell'alba e del tramonto. Niente piu problemi di aggiornamente orari ed è precisa in ogni giornata!

E quella che uso in SMS190... a me sembra che funzioni bene...

se volete sono qui sotto

Codice: Seleziona tutto

Public Function GetAlba(ByVal data As String) As String

'funzione che restituisce l'ora (HH:mm) in cui sorge
'il sole passandogli una data d (dd / mm / yyyy)

Dim g_anno As Long
Dim h As Double
Dim m As Double
Dim arg As Double

'calcolo il giorno dell'anno
g_anno = CDate(data) - CDate("01/01/" & Year(data))
g_anno = g_anno + 1

'funzioni seguenti ideate e a cura di Mark Fish
'******************************************************
arg = (6.28 / 367 * (g_anno + 100))
h = (380 + 110 * Sin(arg)) \ 60
m = (380 + 110 * Sin(arg)) Mod 60
'******************************************************

GetAlba = String(2 - Len(CStr(h)), "0") & CStr(h) _
        & "." _
        & String(2 - Len(CStr(m)), "0") & CStr(m)

End Function


Codice: Seleziona tutto

Public Function GetTramonto(ByVal data As String) As String

'funzione che restituisce l'ora (HH:mm) in cui tramonta
'il sole passandogli una data d (dd/mm/ yyyy)

Dim g_anno As Long
Dim h As Double
Dim m As Double
Dim arg As Double

'calcolo il giorno dell'anno
g_anno = CDate(data) - CDate("01/01/" & Year(data)) + 1

'funzioni seguenti ideate e a cura di Mark Fish
'******************************************************
arg = (6.2831 / 365 * (g_anno - 80))
h = (1111 + 110 * Sin(arg)) \ 60
m = (1111 + 110 * Sin(arg)) Mod 60
'******************************************************

GetTramonto = String(2 - Len(CStr(h)), "0") & CStr(h) _
        & "." _
        & String(2 - Len(CStr(m)), "0") & CStr(m)

End Function


[thomas]

Acc, non me n'ero accorto o è successo ancora?
Fuori c'è ancora il sole che scalda, ma in home page ombreggia la notte!