mojaSymfonia FORUM
https://forum.mix-soft.pl/

VBA i LMD
https://forum.mix-soft.pl/viewtopic.php?f=15&t=1295
Strona 1 z 1

Autor:  tatanka [ 2009-10-15, 23:48 ]
Tytuł:  VBA i LMD

witam, czy w vba jest dostępny taki obiekt LMD (tak jak w formułach), który wyliczy czas między dwoma datami ??

Autor:  barnie [ 2009-10-16, 08:43 ]
Tytuł: 

Kod:
d1 As Date
d2 As Date

ileDni = DateDiff(d, d1, d2)

Autor:  tatanka [ 2009-10-16, 09:35 ]
Tytuł: 

Tak wiem że tak można obliczyć różnicę dwóch dat ale LMD prezentuje to w postaci lat miesięcy i dni. W miedzy czasie znalazłem ciekawy link jak przeliczyć to do postaci LMD. Kod w php ale ważna jest metoda.



Kod:
// Start Years
    $yrs = floor($diff/31556926); // 31556926 secs/yr
    if ($yrs > 0)
    {
        $diff = $diff - ($yrs*31556926);
        $showDiff .= "{$yrs}";
        $showDiff .= $yrs>1 ? ' Lat ' : '';
        $showDiff .= $yrs<2 ? ' Rok ' : '';
    }
    unset($yrs); // End Years

    // Start Months
    $mos = floor($difference/2629743.83); // 2629743.83 secs/mo
    if ($mos > 0)
    {
        $diff = $diff - ($mos*2629743.83);
        $showDiff .= empty($showDiff) ? '' : ', ';
        $showDiff .= "{$mos}";
        $showDiff .= 1<$mos && $mos<5 ? ' Miesiące ' : '';
        $showDiff .= $mos>4 ? ' Miesięcy ' : '';
        $showDiff .= $mos<1 ? ' Miesiąc ' : '';
    }
    unset($mos); // End Months

    // Start Weeks
    $wks = floor($diff/604800); // 604800 secs/wk
    if ($wks > 0)
    {
        $diff = $diff - ($wks*604800);
        $showDiff .= empty($showDiff) ? '' : ', ';
        $showDiff .= "{$wks}";
        $showDiff .= 1<$wks && $wks<5 ? ' Tygodnie ' : '';
        $showDiff .= $wks>4 ? ' Tygodni ' : '';
        $showDiff .= $wks<2 ? ' Tydzien ' : '';
    }
    unset($wks); // End Weeks

    // Start Days
    $days = floor($diff/86400); // 86400 secs/day
    if ($days > 0)
    {
        $diff = $diff - ($days*86400);
        $showDiff .= empty($showDiff) ? '' : ', ';
        $showDiff .= "{$days}";
        $showDiff .= $days>1 ? ' Dni ' : '';
        $showDiff .= $days<2 ? ' Dzien ' : '';
    }
    unset($days); // End Days


Może komuś się przyda.

Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/