home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / tools.zip / TOOLS.COM / GETDATE.FUN < prev    next >
Text File  |  1988-10-20  |  3KB  |  49 lines
  1. GETDATE    FUNCTION(OPTION,DATEIN)
  2. !---------------------------------------------------------------------!
  3. !  THIS FUNCTION WILL RETURN A STRING CONTAINING THE DATE FORMATED    !
  4. !  EX. (MONDAY AUGUST 15,1988).                                       !
  5. !                                                                     !
  6. !  TO CALL THIS FUNCTION.                                             !
  7. !                                                                     !
  8. !     STRING = GETDATE(OPTION,DATEIN)                                 !
  9. !                                                                     !
  10. !  WHERE:                                                             !
  11. !                                                                     !
  12. !        OPTION = A BYTE FIELD AS FOLLOWS.                            !
  13. !                                                                     !
  14. !                 0 - SHORT FORM OF DAY (MON AUG 15,1988).            !
  15. !                 1 - LONG FORM OF DAY (MONDAY AUGUST 15,1988).       !
  16. !                                                                     !
  17. !        DATEIN = A LONG FIELD CONTAINING THE DATE IN THE FORM        !
  18. !                 RETURNED BY THE CLARION TODAY() FUNCTION.           !
  19. !---------------------------------------------------------------------!
  20. !     COMPILER: CLARION V2.0                                          !
  21. !       SYSTEM: N/A                                                   !
  22. !     FUNCTION: GETDATE                                               !
  23. !  ENVIRONMENT: CALLED HAS A FUNCTION                                 !
  24. !   REFERENCES: NONE                                                  !
  25. !---------------------------------------------------------------------!
  26. !  HISTORY:                                                           !
  27. !    WRITTEN   10/20/88 BY DOMINICK G. GALLUCCI                       !
  28. !    MODIFIED  00/00/00                                               !
  29. !---------------------------------------------------------------------!
  30.  
  31. DATEIN     LONG                     !DATE
  32. DATEOUT    STRING(30)               !DISPLAY DATE
  33.                                     !17 ABR DATE
  34.                                     !27 LONG DATE
  35. OPTION     BYTE                     !OPTION CODE
  36.                                     !0 SHORT
  37.                                     !1 LONG
  38.  
  39.   CODE
  40.  
  41.     IF OPTION = 0 THEN
  42.       DATEOUT= CLIP(DAYOFWK(0,DATEIN)) & ' ' & |
  43.                FORMAT(DATEIN,@D3)
  44.     ELSE
  45.       DATEOUT= CLIP(DAYOFWK(1,DATEIN)) & ' ' & |
  46.                FORMAT(DATEIN,@D4)
  47.     .
  48.     RETURN(CLIP(DATEOUT))
  49.