libsim Versione 7.1.11
|
◆ timedelta_getval()
Restituisce il valore di un oggetto timedelta in una o pi� modalit� desiderate. Qualsiasi combinazione dei parametri opzionali � consentita. oraclesimedate � obsoleto, usare piuttosto simpledate.
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
1739else
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)
1745end if
1746
1747END FUNCTION cyclicdatetime_new
1748
1751elemental FUNCTION cyclicdatetime_to_char(this) RESULT(char)
1752TYPE(cyclicdatetime),INTENT(IN) :: this
1753
1754CHARACTER(len=80) :: char
1755
1756char=to_char(this%tendaysp)//";"//to_char(this%month)//";"//to_char(this%day)//";"//&
1757to_char(this%hour)//";"//to_char(this%minute)
1758
1759END FUNCTION cyclicdatetime_to_char
1760
1761
1774FUNCTION cyclicdatetime_to_conventional(this) RESULT(dtc)
1775TYPE(cyclicdatetime),INTENT(IN) :: this
1776
1777TYPE(datetime) :: dtc
1778
1779integer :: year,month,day,hour
1780
1781dtc = datetime_miss
|