TIME STAMP FUNCTION USEFULL FOR UNIQ ID CREATION

Discussion in 'Tally Developer' started by narayane88, Aug 4, 2020.

    
  1. narayane88

    narayane88 Active Member


    USE THIS $$Timestamp FOR ACCESS CURRENT TIME UP TO SECOUND IN TIMESTAMP METHOD

    [Function:Timestamp]

    Variable:Vdate:Date
    Variable:Vtdiff:Number
    Variable:bDate:Date:01/01/1900
    Variable:diff:Number
    Variable:timeStamp:Number
    Variable:BtimeSapnd:Date:01/01/1970
    Return:Number

    000: Set: Vdate : $$MachineDate
    0010:Set:diff:##Vdate-##bDate
    0015:Set:diff:##diff+1.0000
    0065: Set:Vtdiff:##diff+$$timeinseconds
    0070:Set:timeStamp:((##Vtdiff-25569)*86400)+1
    0075:Set:timeStamp:$$Round:##timeStamp:1
    0076: Return:##timeStamp




    [Function:timeinseconds]
    Variable:ITime:String
    Variable:VHours:Number
    Variable:VMinutes:Number
    Variable:VSecound:Number
    Variable:eek:utTime:Number
    Return:Number


    000: Set:ITime:$$SysInfo:SystemTimeHMS
    010:Set:VHours:$$StringPart:##ITime:0:2
    020:Set:VMinutes:$$StringPart:##ITime:3:4
    030:Set:VSecound:$$StringPart:##ITime:5:6
    050: Set:eek:utTime:(##VHours/24)+(##VMinutes/1440)+(##VSecound/86400)
    70:Return:##OutTime
     


Share This Page