home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 377 / BACKLITE.SIS / macDateStamp.opl (.txt) < prev    next >
Encoding:
EPOC OPL Source  |  1998-10-28  |  1.1 KB  |  48 lines
  1.  
  2.  
  3. rem // Backlite+Plus Macro - macDateStamp V1.1 - J.Kneen 31/1/98
  4.  
  5. PROC macDateStamp:
  6.  
  7. LOCAL intDate%,intTime%,d$(30),t%
  8.  
  9.     intDate%=val(BLLoadSetting$:("intDate%"))
  10.     intTime%=val(BLLoadSetting$:("intTime%"))
  11.  
  12.     t%=len(Datim$)
  13.         WHILE 1
  14.             IF Mid$(Datim$,t%,1)=" "
  15.                 IF intDate%=-1
  16.                     d$=left$(Datim$,t%)
  17.                 ENDIF
  18.                 IF intTime%=-1
  19.                     d$=d$+right$(Datim$,len(Datim$)-t%)
  20.                 ENDIF
  21.                 BREAK
  22.             ENDIF
  23.             t%=t%-1
  24.         ENDWH
  25.         BLSwitchtoCurrent:
  26.         BLPasteText:(d$)
  27. ENDP
  28.  
  29. PROC macDateStampSettings:
  30.     LOCAL intDate%,intTime%
  31.     
  32.     intDate%=val(BLLoadSetting$:("intDate%"))
  33.     intTime%=val(BLLoadSetting$:("intTime%"))
  34.  
  35.         dINIT "Date Stamp Format"
  36.             dCHECKBOX intDate%,"Insert Date"
  37.             dCHECKBOX intTime%,"Insert Time"
  38.             dButtons "OK",13,"Cancel",27                    
  39.                 IF DIALOG=13
  40.                     BLSaveSetting:("intDate%",num$(intdate%,2))
  41.                     BLSaveSetting:("inttime%",num$(inttime%,2))
  42.                 ENDIF
  43. ENDP
  44.  
  45.  
  46.  
  47.  
  48.