WD2000: Jak provést výpočty s data a časy

Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.

212684
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
Souhrn
Tento článek poskytuje několik příkladů použití jazyka maker aplikace provádět výpočty na data a časy. Word provádí tento převedením první datum nebo čas do sériové číslo. Word potom používá ve výpočtech sériové číslo a převede zpět do standardní data nebo formát času.
Další informace
Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené,. včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele.
Další informace o způsobu použití ukázkového kódu v tomto článku naleznete v následujícím článku znalostní báze Microsoft Knowledge Base:
212536OFF2000: Jak spustit ukázkový kód z článků znalostní báze

PŘÍKLADY:

Sub Date_DateCalc()   'To calculate a date seven days from the current date.   MsgBox DateSerial(Year(Now), Month(Now), Day(Now) + 7)End Sub				


Sub Date_YourAge()   'To return your age in number of days.   'Replace "mm/dd/yy" with your birth date.   MsgBox Int(Now - DateValue("mm/dd/yy"))End Sub				


Sub Date_DivideTime()   'To display 6:00 AM (because 6:00 AM is one-half of 12:00 PM).   MsgBox TimeSerial(12 / 2, 0, 0)End Sub				


Sub Date_CurrentDateTime()   'The current date and time.   MsgBox NowEnd Sub				


Sub MyDateTime_CurrentDateTime()   ' The current date and time in my format   Dim MyTime, MyDate   MyTime = Time   MyDate = Date   MyDatestr = Format(MyDate, "dddd mmmm d, yyyy")   MyTimestr = Format(MyTime, "h:mm")   MsgBox ("Time: " + MyTimestr + Chr$(13) + "Date: " + MyDatestr)End Sub				


Sub Date_LastDayPreviousMonth()   'To calculate the last day of the previous month.   MsgBox (Now - Day(Now))End Sub				
Odkazy
Další informace o získání nápovědy s jazyka pro aplikace naleznete v následujícím článku databáze Microsoft Knowledge Base:
212623WD2000: Prostředky programování maker
VB, vbe jazyk vba

Upozornění: Tento článek byl přeložen automaticky

Vlastnosti

ID článku: 212684 - Poslední kontrola: 02/28/2014 16:53:27 - Revize: 3.2

  • Microsoft Word 2000 Standard Edition
  • kbnosurvey kbarchive kbmt kbdtacode kbhowto kbmacroexample kbprogramming KB212684 KbMtcs
Váš názor