• Introduction
  • What is HAL?
  • Get Started
  • Language Reference
    • Declarations, assignments and statements
    • Keywords and operations
• Tutorials
  • Change a window
    • Find the window
    • Modify the window
  • Create a report
• HAL Primitives
• HAL Procedures/Functions
• HAL Discussions

Description:

Data conversion - from String to Time

Parameters:
timestr	String with time value

global
procedure ReadImportTagMailHistoryRecord(record MailReadVc MailReadr)
begin
  string 255 uscod,mnam,name;
    
  RecordNew(MailReadr);  
  MailReadr.mailSerNr = StringToLongInt(ImportField);
  uscod = ImportField;
  FindUserMailboxName(uscod,mnam,name);
  if (nonblank(mnam)) then begin
    MailReadr.mailBoxNr = StringToLongInt(mnam);
  end else begin
    MailReadr.mailBoxNr = StringToLongInt(uscod);
  end;
  MailReadr.accode = StringToInt(ImportField);
  MailReadr.fDate = StringToDate(ImportField);
  MailReadr.fTime = StringToTime(ImportField);
  if (MailReadr.accode==1) then begin MailReadr.accode = 0; end;      
  return;
end;

Related topics: