|
◆ 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] | 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 1702 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
|