home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / REFERENC / CRYS_REP / TIME_2.TXT < prev    next >
Encoding:
Text File  |  1994-04-23  |  587 b   |  27 lines
  1. // Time Format for CRYSTAL Reports (24:00 format)
  2. //
  3. // Convert MS ACCESS Time to Whole Number
  4. NumberVar TotWholeNbr:={Time.Time}*100000000;
  5.  
  6. // Calculate Hours
  7. NumberVar Hours:=Truncate(TotWholeNbr/4166666.64);
  8.  
  9. // Calculate Minutes
  10. NumberVar Mins:=Truncate((TotWholeNbr-(Hours*4166666.64))/69444.444);
  11.  
  12.  
  13. // Set Hour String
  14. If Hours<10 Then
  15.   StringVar HH:="0"+ToText(Hours)
  16. Else
  17.   StringVar HH:=ToText(Hours);
  18.  
  19. // Set Minute String
  20. If Mins<10 Then
  21.   StringVar MM:="0"+ToText(Mins)
  22. Else
  23.   StringVar MM:=ToText(Mins);
  24.  
  25. // Output Time
  26. HH[1 to 2]+":"+MM[1 to 2];
  27.