Differenze tra le versioni di "Convertire i giorni in formato anni:mesi:giorni"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Avendo un valore ''Intero'', che rappresenta una quantità di giorni, per convertire questo numero complessivo di giorni in formato ''anni:mesi:giorni'', si potrà adottare qu...") |
|||
| Riga 6: | Riga 6: | ||
Esempio pratico: | Esempio pratico: | ||
| − | + | Public Sub Main() | |
| − | + | Dim d1, d2 As Date | |
| − | + | Dim i As Integer | |
d1 = Date(2010, 01, 01) | d1 = Date(2010, 01, 01) | ||
| Riga 19: | Riga 19: | ||
Print i \ 365; ":"; (i Mod 365) \ 30; ":"; (i Mod 365) Mod 30 | Print i \ 365; ":"; (i Mod 365) \ 30; ":"; (i Mod 365) Mod 30 | ||
| − | + | End | |
Versione attuale delle 07:51, 1 lug 2024
Avendo un valore Intero, che rappresenta una quantità di giorni, per convertire questo numero complessivo di giorni in formato anni:mesi:giorni, si potrà adottare queste formule:
anni = totale_giorni \ 365 mesi = (totale_giorni Mod 365) \ 30 giorni = (totale_giorni Mod 365) Mod 30
Esempio pratico:
Public Sub Main() Dim d1, d2 As Date Dim i As Integer d1 = Date(2010, 01, 01) d2 = Now i = DateDiff(d1, d2, gb.day) Print "Dias:", i Print i \ 365; ":"; (i Mod 365) \ 30; ":"; (i Mod 365) Mod 30 End
