Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-04-29, 10:44x



Odpowiedz w temacie  [ Posty: 3 ] 
VBA i LMD 
Autor Wiadomość

Rejestracja: 2008-08-06, 12:38
Posty: 331
Post 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 ??

_________________
Pozdr
TaTanka


2009-10-15, 23:48
Wyświetl profil
Autor Wiadomość
 


Ekspert
Ekspert

Rejestracja: 2008-04-07, 13:26
Posty: 208
Pomógł: 2
Post 
Kod:
d1 As Date
d2 As Date

ileDni = DateDiff(d, d1, d2)


2009-10-16, 08:43
Wyświetl profil

Rejestracja: 2008-08-06, 12:38
Posty: 331
Post 
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.

_________________
Pozdr
TaTanka


2009-10-16, 09:35
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 3 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. [VBA] Wyłączenie HMF 2014a z poziomu VBA

w Programowanie

wars1977

11

6127

2014-05-16, 10:41

wars1977 Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Bilans do dodatku stażowego - LMD

w Programowanie

aja

3

2530

2011-12-28, 17:31

TS Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. vba

w Programowanie

tatanka

5

3634

2009-02-20, 18:10

wrob Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. VBA MxGrid

w Programowanie

zz

0

2750

2019-12-23, 15:16

zz Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 79 gości


Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Przejdź do:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant