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/ |