home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / fdlg.zip / DATE_S.CLS < prev    next >
Text File  |  1996-02-02  |  539b  |  30 lines
  1. "  ---- Ronald Brill 1995, 1996 ---- "
  2. "  ---- Extended File Dialogs Version 2.1 ---- "
  3.  
  4.  
  5.  
  6. Date SecondaryFile !
  7.  
  8.  
  9. ! Date class methods!
  10.  
  11.  
  12. !"End of class methods block"
  13.  
  14.  
  15. ! Date methods!
  16.  
  17.  
  18. asFullISOString
  19. | array result |
  20.    array := self asArray.
  21.    result := array pop asString + $-.
  22.    array first < 10 ifTrue: [ result := result + $0. ].
  23.    result := result + array pop + $-.
  24.    array first < 10 ifTrue: [ result := result + $0. ].
  25.    ^ result + array pop.
  26. !"end asFullISOString"
  27.  
  28.  
  29. !"End of methods block"
  30.