1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Date and Time Substract Query

Discussion in 'Free Source Codes' started by young man, Feb 15, 2017.

    
  1. young man

    young man New Member


    Dear Admin & All developers,

    Is there any option or any function to substract two Date & Time?

    Eg :

    A :
    Field 1 : First Date
    Field 2 : First Time (24 Hr Format)

    B :
    Field 3 : Second Date
    Field 4 : Second Time (24 Hr Format)

    In Output Field :

    Field 5 : Total Time Taken in Hrs ( B - A)

    Please suggest and give an idea.


    Advance Thanks
     
    young man, Feb 15, 2017
    #1


  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Here you are.....Time Difference Calculator.

    screen1.PNG
     

    Attached Files:

    Amit Kamdar, Apr 25, 2018
    #2
    info.ap likes this.


  3. Rohit Khedar

    Rohit Khedar Member


    Sir ji Please change this file to a new model
    [#Menu: Gateway of Tally]

    Key Item : Calculator : C : CALL : Calculator

    [Report: Calc Entry]

    Form : Calc Entry
    Auto : Yes
    Title : "Calculator"

    [Form: Calc Entry]

    Parts : Form SubTitle, Calc Entry
    Buttons : Print Button
    Keys : Field Left, Field Right
    Height : 45% Screen
    Width : 35% Screen
    Space Left : 0.5
    Space Right : 0.5
    Background : Grey
    Local: Field: Form SubTitle : Info : "Calculator"

    [Part: Calc Entry]

    Lines : Calc Input, Calc Button Line0, Calc Button Line1, Calc Button Line2, Calc Button Line3
    Lines : Calc Button Line4
    Local : Field : Simple Field : Skip : Yes
    Local : Field : Simple Field1 : Skip : Yes
    Local : Field : Simple Field2 : Skip : Yes
    Local : Field : Simple Field3 : Skip : Yes
    Local : Field : Simple Field4 : Skip : Yes

    Local : Field : Calc Button Div : Delete : Keys
    Local : Field : Calc Button Div : Add : Keys : Operator MouseClick, Operator KeyEnter
    Local : Style : Default : Height : 12

    [Line: Calc Input]

    Fields : Number Field
    Local: Field: Number Field : FullWidth : Yes
    Local: Field: Number Field : Align : Right
    Local: Field: Number Field : Set always: Yes
    Local: Field: Number Field : Set as : ##CurVarValue
    Local: Field: Number Field : Border : Thin Box
    Local: Field: Number Field : Background: White

    [Line: Calc Button Line0]

    Use : Calc Button Line1
    Delete : Right Fields
    Add : Right Fields : Calc Button No7, Simple Field, Calc Button No8, Simple Field2, Calc Button No9

    Local: Field: Calc Button MC : Set As : ""
    Local: Field: Calc Button No7 : Set As : "Backspace"
    Local: Field: Calc Button No8 : Set As : "CE"
    Local: Field: Calc Button No9 : Set As : "C"

    Local: Field: Calc Button No7 : Width : 10
    Local: Field: Calc Button No8 : Width : 6
    Local: Field: Calc Button No9 : Width : 3

    Local: Field: Calc Button MC : Skip : Yes

    Local: Field: Calc Button No7 : Delete: Keys
    Local: Field: Calc Button No7 : Add : Keys : BackSpace MouseClick, BackSpace KeyEnter

    [Line: Calc Button Line1]

    Fields : Calc Button MC
    Right Fields: Calc Button No7, Simple Field, Calc Button No8, Simple Field2, Calc Button No9
    Right Fields: Simple Field3, Calc Button Div, Simple Field4, Calc Button Sqrt
    Space Top : 1

    Local: Field: Simple Field : Width : 0.8
    Local: Field: Simple Field2 : Width : 0.8
    Local: Field: Simple Field3 : Width : 0.8
    Local: Field: Simple Field4 : Width : 0.8

    [Field: Calc Button MC]

    Use : Calc Button No7
    Set As : "MC"

    [Field: Calc Button No7]

    Use : Name Field
    Width : 3
    Max : 1
    Align : Centre
    Set As : "7"
    Border : Thin Box
    Key : AppendVar MouseClick, AppendVar KeyEnter
    Read Only : Yes
    Background : Grey

    [Field: Calc Button No8]

    Use : Calc Button No7
    Set As : "8"

    [Field: Simple Field2]

    Use : Simple Field

    [Field: Calc Button No9]

    Use : Calc Button No7
    Set As : "9"

    [Field: Simple Field3]

    Use : Simple Field

    [Field: Calc Button Div]

    Use : Calc Button No7
    Set As : "/"

    [Field: Simple Field4]

    Use : Simple Field

    [Field: Calc Button Sqrt]

    Use : Calc Button No7
    Set As : "Sqrt"

    [Line: Calc Button Line2]

    Use : Calc Button Line1
    Local: Field: Calc Button MC : Set As: "MR"
    Local: Field: Calc Button No7 : Set As: "4"
    Local: Field: Calc Button No8 : Set As: "5"
    Local: Field: Calc Button No9 : Set As: "6"
    Local: Field: Calc Button Div : Set As: "*"
    Local: Field: Calc Button Sqrt : Set As: "%"

    [Line: Calc Button Line3]

    Use : Calc Button Line1
    Local: Field: Calc Button MC : Set As: "MS"
    Local: Field: Calc Button No7 : Set As: "1"
    Local: Field: Calc Button No8 : Set As: "2"
    Local: Field: Calc Button No9 : Set As: "3"
    Local: Field: Calc Button Div : Set As: "-"
    Local: Field: Calc Button Sqrt : Set As: "1/x"

    [Line: Calc Button Line4]

    Use : Calc Button Line1
    Local: Field: Calc Button MC : Set As: "M+"
    Local: Field: Calc Button No7 : Set As: "0"
    Local: Field: Calc Button No8 : Set As: "+/-"
    Local: Field: Calc Button No9 : Set As: "."
    Local: Field: Calc Button Div : Set As: "+"
    Local: Field: Calc Button Sqrt : Set As: "="

    Local: Field: Calc Button Sqrt : Delete: Keys
    Local: Field: Calc Button Sqrt : Add : Keys : Result MouseClick, Result KeyEnter

    ;; General Keys

    [Key: Field Left]

    Key : Left
    Action : Field Prev
    Mode : Edit

    [Key: Field Right]

    Key : Right
    Action : Field Next
    Mode : Edit

    ;; Key Definition

    [Key: AppendVar MouseClick]

    Key : Left Click
    Action : CALL : AppendVar : $$Value

    [Key: AppendVar KeyEnter]

    Key : Enter
    Action : CALL : AppendVar : $$Value

    [Key: Operator MouseClick]

    Key : Left Click
    Action : CALL : Operator : $$Value

    [Key: Operator KeyEnter]

    Key : Enter
    Action : CALL : Operator : $$Value

    [Key: Result MouseClick]

    Key : Left Click
    Action : CALL : Result

    [Key: Result KeyEnter]

    Key : Enter
    Action : CALL : Result

    [Key: Backspace MouseClick]

    Key : Left Click
    Action : CALL : Backspace

    [Key: Backspace KeyEnter]

    Key : Enter
    Action : CALL : Backspace

    ;; Function Definition

    [Function: Calculator]

    Variable : OrigVarValue : Number
    Variable : CurVarValue : Number
    Variable : Operator : String
    Variable : AfterEquals : Logical

    01 : SET : OrigVarValue : 0
    02 : SET : CurVarValue : 0
    03 : SET : Operator : ""
    04 : SET : AfterEquals : No

    05 : ALTER : Calc Entry
    06 : RETURN

    [Function: AppendVar]

    Parameter : InputNo : Number

    01 : IF : ##AfterEquals = Yes
    02 : SET : CurVarValue : 0
    03 : SET : AfterEquals : No
    04 : END IF
    05 : SET : CurVarValue : $$String:##CurVarValue + $$String:##InputNo
    06 : RETURN

    [Function: Operator]

    Parameter : InputOp : String

    01 : EXCHANGE : CurVarValue : OrigVarValue
    02 : SET : Operator : ##InputOp
    03 : RETURN

    [Function: Backspace]

    01 : SET : CurVarValue : $$StringPart:##CurVarValue:0:($$Number:($$StringLength:##CurVarValue) - 1)
    02 : RETURN

    [Function: Result]

    01 : IF : $$ExactMatch:##Operator:"+"
    02 : SET : CurVarValue : ##OrigVarValue + ##CurVarValue
    03 : ELSE :
    04 : IF : $$ExactMatch:##Operator:"-"
    05 : SET : CurVarValue : ##OrigVarValue - ##CurVarValue
    06 : ELSE :
    07 : IF : $$ExactMatch:##Operator:"*"
    08 : SET : CurVarValue : ##OrigVarValue * ##CurVarValue
    09 : ELSE :
    10 : SET : CurVarValue : ##OrigVarValue / ##CurVarValue
    11 : END IF
    12 : END IF
    13 : END IF
    14 : SET : Operator : ""
    15 : SET : OrigVarValue : 0
    16 : SET : AfterEquals : Yes
    17 : RETURN

    ;; End-of-File
     
    Rohit Khedar, Apr 25, 2018
    #3


  4. info.ap

    info.ap New Member


    your really Helpful, sorting out queries posted:) Regards
     
    info.ap, Apr 25, 2018
    #4


  5. Amit Kamdar

    Amit Kamdar Administrator Staff Member


     
    Amit Kamdar, Apr 25, 2018
    #5


Share This Page