anchor.diff:    INTEGER            :: days,hours,minutes,seconds,milliseconds
     INTEGER            :: sign_
   
  -  daysDiff = date2num(d0)-date2num(d1)
  +  daysDiff = date2num(d0%utc())-date2num(d1%utc())
   
     IF(daysDiff < 0)THEN
       sign_ = -1
  
positive.code:   INTEGER :: second      = 0 ! Second in minute       [0-59]
    INTEGER :: millisecond = 0 ! Milliseconds in second [0-999]
  
  ! TODO: Implement tz offset
  
    CONTAINS
  
  
negative.code:   ! ARGUMENTS:
    CLASS(datetime),INTENT(IN) :: self
  
    INTEGER,DIMENSION(8) :: values
  
    CALL date_and_time(values=values)
    now = datetime(year        = values(1),&
  