|
◆ timedelta_getval()
pure subroutine 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 |
|
) |
| |
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] | this | oggetto di cui restituire il valore |
[out] | year | anni, /=0 solo per intervalli "popolari" |
[out] | month | mesi modulo 12, /=0 solo per intervalli "popolari" |
[out] | amonth | mesi totali, /=0 solo per intervalli "popolari" |
[out] | day | giorni totali |
[out] | hour | ore modulo 24 |
[out] | minute | minuti modulo 60 |
[out] | sec | secondi modulo 60 |
[out] | msec | millisecondi modulo 1000 |
[out] | ahour | ore totali |
[out] | aminute | minuti totali |
[out] | asec | secondi totali |
[out] | amsec | millisecondi totali |
[out] | isodate | intervallo 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] | simpledate | intervallo 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] | oraclesimdate | intervallo totale nel formato GGGGGGGGhhmm |
Definizione alla linea 1709 del file datetime_class.F90.
1711 if (c_e(chardate)) then 1713 read(chardate(1:1), '(i1)',iostat=ios)ltendaysp 1715 if (ios /= 0)ltendaysp=imiss 1717 read(chardate(2:3), '(i2)',iostat=ios)lmonth 1719 if (ios /= 0)lmonth=imiss 1721 read(chardate(4:5), '(i2)',iostat=ios)lday 1723 if (ios /= 0)lday=imiss 1725 read(chardate(6:7), '(i2)',iostat=ios)lhour 1727 if (ios /= 0)lhour=imiss 1729 read(chardate(8:9), '(i2)',iostat=ios)lminute 1731 if (ios /= 0)lminute=imiss 1734 this%tendaysp=ltendaysp 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) 1747 END FUNCTION cyclicdatetime_new 1751 elemental FUNCTION cyclicdatetime_to_char(this) RESULT(char) 1752 TYPE(cyclicdatetime), INTENT(IN) :: this 1754 CHARACTER(len=80) :: char 1756 char=to_char(this%tendaysp)// ";"//to_char(this%month)// ";"//to_char(this%day)// ";"//& 1757 to_char(this%hour)// ";"//to_char(this%minute) 1759 END FUNCTION cyclicdatetime_to_char 1774 FUNCTION cyclicdatetime_to_conventional(this) RESULT(dtc) 1775 TYPE(cyclicdatetime), INTENT(IN) :: this 1777 TYPE(datetime) :: dtc 1779 integer :: year,month,day,hour 1784 if ( .not. c_e(this)) then 1785 dtc=datetime_new(year=1007, month=1, day=1, hour=1, minute=1)
|