Convertire i giorni in formato anni:mesi:giorni: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
(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...")
 
Nessun oggetto della modifica
 
Riga 6: Riga 6:


Esempio pratico:
Esempio pratico:
  '''Public''' Sub Main()
  Public Sub Main()
    
    
  Dim d1, d2 As Date
  Dim d1, d2 As Date
  Dim i As Integer
  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'''
  End

Versione attuale delle 08: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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Convertire_i_giorni_in_formato_anni:mesi:giorni&oldid=37744"