libsim  Versione 7.1.9

◆ timedelta_getval()

pure subroutine datetime_class::timedelta_getval ( type(timedelta), intent(in)  this,
integer, intent(out), optional  year,
integer, intent(out), optional  month,
integer, intent(out), optional  amonth,
integer, intent(out), optional  day,
integer, intent(out), optional  hour,
integer, intent(out), optional  minute,
integer, intent(out), optional  sec,
integer, intent(out), optional  msec,
integer, intent(out), optional  ahour,
integer, intent(out), optional  aminute,
integer, intent(out), optional  asec,
integer(kind=int_ll), intent(out), optional  amsec,
character(len=*), intent(out), optional  isodate,
character(len=*), intent(out), optional  simpledate,
character(len=12), intent(out), optional  oraclesimdate 
)
private

Restituisce il valore di un oggetto timedelta in una o pi� modalit� desiderate.

Qualsiasi combinazione dei parametri opzionali � consentita. oraclesimedate � obsoleto, usare piuttosto simpledate.

Parametri
[in]thisoggetto di cui restituire il valore
[out]yearanni, /=0 solo per intervalli "popolari"
[out]monthmesi modulo 12, /=0 solo per intervalli "popolari"
[out]amonthmesi totali, /=0 solo per intervalli "popolari"
[out]daygiorni totali
[out]hourore modulo 24
[out]minuteminuti modulo 60
[out]secsecondi modulo 60
[out]msecmillisecondi modulo 1000
[out]ahourore totali
[out]aminuteminuti totali
[out]asecsecondi totali
[out]amsecmillisecondi totali
[out]isodateintervallo totale nel formato GGGGGGGGGG hh:mm:ss.msc (simil-ISO), la variabile può essere più corta di 23 caratteri, in tal caso conterr� solo ci� che vi cape
[out]simpledateintervallo totale nel formato GGGGGGGGhhmmssmsc , la variabile pu� essere pi� corta di 17 caratteri, in tal caso conterr� solo ci� che vi cape, da preferire rispetto a oraclesimdate
[out]oraclesimdateintervallo totale nel formato GGGGGGGGhhmm

Definizione alla linea 1702 del file datetime_class.F90.

1705  ltendaysp=imiss
1706  lmonth=imiss
1707  lday=imiss
1708  lhour=imiss
1709  lminute=imiss
1710 
1711  if (c_e(chardate))then
1712  ! TMMGGhhmm
1713  read(chardate(1:1),'(i1)',iostat=ios)ltendaysp
1714  !print*,chardate(1:1),ios,ltendaysp
1715  if (ios /= 0)ltendaysp=imiss
1716 
1717  read(chardate(2:3),'(i2)',iostat=ios)lmonth
1718  !print*,chardate(2:3),ios,lmonth
1719  if (ios /= 0)lmonth=imiss
1720 
1721  read(chardate(4:5),'(i2)',iostat=ios)lday
1722  !print*,chardate(4:5),ios,lday
1723  if (ios /= 0)lday=imiss
1724 
1725  read(chardate(6:7),'(i2)',iostat=ios)lhour
1726  !print*,chardate(6:7),ios,lhour
1727  if (ios /= 0)lhour=imiss
1728 
1729  read(chardate(8:9),'(i2)',iostat=ios)lminute
1730  !print*,chardate(8:9),ios,lminute
1731  if (ios /= 0)lminute=imiss
1732  end if
1733 
1734  this%tendaysp=ltendaysp
1735  this%month=lmonth
1736  this%day=lday
1737  this%hour=lhour
1738  this%minute=lminute
1739 else
1740  this%tendaysp=optio_l(tendaysp)
1741  this%month=optio_l(month)
1742  this%day=optio_l(day)
1743  this%hour=optio_l(hour)
1744  this%minute=optio_l(minute)
1745 end if
1746 
1747 END FUNCTION cyclicdatetime_new
1748 
1751 elemental FUNCTION cyclicdatetime_to_char(this) RESULT(char)
1752 TYPE(cyclicdatetime),INTENT(IN) :: this
1753 
1754 CHARACTER(len=80) :: char
1755 
1756 char=to_char(this%tendaysp)//";"//to_char(this%month)//";"//to_char(this%day)//";"//&
1757 to_char(this%hour)//";"//to_char(this%minute)
1758 
1759 END FUNCTION cyclicdatetime_to_char
1760 
1761 
1774 FUNCTION cyclicdatetime_to_conventional(this) RESULT(dtc)
1775 TYPE(cyclicdatetime),INTENT(IN) :: this
1776 
1777 TYPE(datetime) :: dtc
1778 
1779 integer :: year,month,day,hour
1780 
1781 dtc = datetime_miss

Generated with Doxygen.