home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / DATETRIX.TXT < prev    next >
Text File  |  1993-08-04  |  1KB  |  54 lines
  1.  
  2. Ä Area: [FIDO] PSION echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3.   Msg#: 7958                                         Date: 07-28-93  22:06
  4.   From: Pete Sipple                                  Read: Yes    Replied: No 
  5.     To: Alan Richey                                  Mark:                     
  6.   Subj: Programming
  7. ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  8.  => Quoting Alan Richey  re: Programming <= 
  9.  
  10.  Hoefully, the following may be helpful...
  11.  
  12.  
  13.  AR> 1. What is the equivalent of dFLOAT,dEDIT,dDATE for ordinary
  14.  AR> INTEGERS ? 
  15.  
  16. You have to convert them first, ie:
  17.  
  18. A$=GEN(integer,10)
  19. DINIT
  20. DEDIT"","Edit:",A$
  21. DIALOG
  22. integer=VAL(A$)
  23.  
  24.  
  25.  AR> 2. Using dDATE returns a long integer representing days since
  26.  AR> 1/1/1990 How can you do the opposite,and display the number in
  27.  AR> date format on an ordinary screen.
  28.  
  29. If you were to store the long integer to a variable called A&,
  30. which you add to yuor Local/Global statement
  31.  
  32. LOCAL A&,A%,D%,M%,Y%
  33.  
  34. Eg:    DDATE A&,"Input Date:","01/01/00","31,12,93"
  35.  
  36.  
  37. Then to get it back, try...
  38.  
  39. SECSTODATE (A&-25567)*86400,Y%,M%,D%,A%,A%.A%,A%
  40. PRINT D%;"/";M%;"/";Y%-1900
  41. GET
  42.  
  43. Please leave me a message if any of this is unclear!
  44.  
  45. Good luck,
  46.  
  47.  
  48. Pete
  49.  
  50. ... This must be Thursday - I never could get the hang of Thursdays
  51. -!- Blue Wave/RA v2.11 [NR]
  52.  ! Origin: From The Crystal Tower : London (081-4478244) (2:440/25.0)
  53.  
  54.