Jump to content
Sign in to follow this  
AZJIO

_DateDiff_2

Recommended Posts

; AZJIO
; http://www.autoitscript.com/forum/topic/139213-datediff-2/
; #include <_DateDiff_2.au3>
#include <Date.au3>

$Old = '2011.03.12.00.00.00'
$Old = StringRegExp($Old, '(\d+)', 3)

$New = _NowCalc()
$New = StringRegExp($New, '(\d+)', 3)

$sCompare = _DateDiff_2($Old, $New, 0)
If @extended Then $sCompare = '-' & $sCompare
MsgBox(0, 'Message', $sCompare)

; ============================================================================================
; Function Name ...: _DateDiff_2 ( __DateDiff_2 )
; Description ........: Calculates the difference between dates
; Syntax.......: _DateDiff_2 ( $Old, $New[, $iArray = 1] )
; Parameters:
; $Old - old date, for example birthday
; $New - New date, for example current
; Return Value:
; Success: - an array or a string containing the time difference. If @extended=1, then $Old > $New
; |String format Г.ММ.ДД ЧЧ:ММ:СС
; |Array format
; $Array[0] = YEAR
; $Array[1] = MON
; $Array[2] = MDAY
; $Array[3] = HOUR
; $Array[4] = MIN
; $Array[5] = SEC
; Failure: - empty string, @error:
; |1 - $Old не массив или менее 6 элементов
; |2 - $New не массив или менее 6 элементов
; Author(s) ..........: AZJIO
; Remarks ..: Transmitted data in the arrays are not checked
; ============================================================================================
Func _DateDiff_2($Old, $New, $iArray = 1)
    If Not IsArray($Old) Or UBound($Old) < 6 Then Return SetError(1, 0, '')
    If Not IsArray($New) Or UBound($New) < 6 Then Return SetError(2, 0, '')
    Local $Extended = 0
    Local $d = 1
    For $i = 0 To 5
        If $Old[$i] <> $New[$i] Then
            If $Old[$i] < $New[$i] Then
                $d = __DateDiff_2($Old, $New)
            Else
                $d = __DateDiff_2($New, $Old)
                $Extended = 1
            EndIf
            ExitLoop
        EndIf
    Next
    If $d Then Local $d[6] = [0,0,0,0,0,0]

    If $iArray Then
        Return SetError(0, $Extended, $d)
    Else
        Return SetError(0, $Extended, StringFormat('%d.%02d.%02d %02d:%02d:%02d', $d[0], $d[1], $d[2], $d[3], $d[4], $d[5]))
    EndIf
EndFunc

Func __DateDiff_2($Old, $New)
    Local $i, $L, $t
    $t = 0
    Dim $L[6] = [5, 12, 0, 24, 60, 60]
    For $i = 5 To 1 Step -1
        If $i = 2 Then
            Switch $Old[1]
                Case 1, 3, 5, 7, 8, 10, 12
                    $L[$i] = 31
                Case 2
                    If _DateIsLeapYear($Old[0]) Then
                        $L[$i] = 29
                    Else
                        $L[$i] = 28
                    EndIf
                Case Else
                    $L[$i] = 30
            EndSwitch
        EndIf
        If $New[$i] - $t < $Old[$i] Then
            $t = 1
            $Old[$i] = $New[$i] + $L[$i] - $t - $Old[$i]
        Else
            $Old[$i] = $New[$i] - $t - $Old[$i]
            $t = 0
        EndIf
    Next

    $Old[0] = $New[0] - $Old[0] - $t
    Return $Old
EndFunc
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <Date.au3>

$DT = StringSplit(StringReplace(StringReplace(_NowCalc(), ' ', ':'), '/', ':'), ':', 2)
$aFiles = _FileListToArray(@SystemDir, "*.*", 1)
GUICreate("Age file")
$ListView = GUICtrlCreateListView("File|Age", 5, 5, 385, 390)
_GUICtrlListView_SetColumnWidth($ListView, 0, 200)
_GUICtrlListView_SetColumnWidth($ListView, 1, 70)
GUISetState()
For $i = 1 To $aFiles[0]
    GUICtrlCreateListViewItem($aFiles[$i] & "|" & _DateDiff_2(FileGetTime(@SystemDir & '\' & $aFiles[$i]), $DT, 0), $ListView)
Next
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

; ============================================================================================
; Function Name ...: _DateDiff_2 ( __DateDiff_2 )
; Description ........: Calculates the difference between dates
; Syntax.......: _DateDiff_2 ( $Old, $New[, $iArray = 1] )
; Parameters:
;       $Old - old date, for example birthday
;       $New - New date, for example current
; Return Value:
;       Success: - an array or a string containing the time difference. If @extended=1, then $Old > $New
;           |String format Г.ММ.ДД ЧЧ:ММ:СС
;           |Array format
;               $Array[0] = YEAR
;               $Array[1] = MON
;               $Array[2] = MDAY
;               $Array[3] = HOUR
;               $Array[4] = MIN
;               $Array[5] = SEC
;       Failure: - empty string, @error:
;           |1 - $Old не массив или менее 6 элементов
;           |2 - $New не массив или менее 6 элементов
; Author(s) ..........: AZJIO
; Remarks ..: Transmitted data in the arrays are not checked
; ============================================================================================
Func _DateDiff_2($Old, $New, $iArray = 1)
    If Not IsArray($Old) Or UBound($Old) < 6 Then Return SetError(1, 0, '')
    If Not IsArray($New) Or UBound($New) < 6 Then Return SetError(2, 0, '')
    Local $Extended = 0
    Local $d = 1
    For $i = 0 To 5
        If $Old[$i] <> $New[$i] Then
            If $Old[$i] < $New[$i] Then
                $d = __DateDiff_2($Old, $New)
            Else
                $d = __DateDiff_2($New, $Old)
                $Extended = 1
            EndIf
            ExitLoop
        EndIf
    Next
    If $d Then Local $d[6] = [0, 0, 0, 0, 0, 0]

    If $iArray Then
        Return SetError(0, $Extended, $d)
    Else
        Return SetError(0, $Extended, StringFormat('%d.%02d.%02d %02d:%02d:%02d', $d[0], $d[1], $d[2], $d[3], $d[4], $d[5]))
    EndIf
EndFunc   ;==>_DateDiff_2

Func __DateDiff_2($Old, $New)
    Local $i, $L, $t
    $t = 0
    Dim $L[6] = [5, 12, 0, 24, 60, 60]
    For $i = 5 To 1 Step -1
        If $i = 2 Then
            Switch $Old[1]
                Case 1, 3, 5, 7, 8, 10, 12
                    $L[$i] = 31
                Case 2
                    If _DateIsLeapYear($Old[0]) Then
                        $L[$i] = 29
                    Else
                        $L[$i] = 28
                    EndIf
                Case Else
                    $L[$i] = 30
            EndSwitch
        EndIf
        If $New[$i] - $t < $Old[$i] Then
            $t = 1
            $Old[$i] = $New[$i] + $L[$i] - $t - $Old[$i]
        Else
            $Old[$i] = $New[$i] - $t - $Old[$i]
            $t = 0
        EndIf
    Next

    $Old[0] = $New[0] - $Old[0] - $t
    Return $Old
EndFunc   ;==>__DateDiff_2

Edited by AZJIO

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...