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

Překlady článku Překlady článku
ID článku: 212684 - Produkty, které se vztahují k tomuto článku.
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

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 Now
End 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

Vlastnosti

ID článku: 212684 - Poslední aktualizace: 28. února 2014 - Revize: 3.2
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Word 2000 Standard Edition
Klíčová slova: 
kbnosurvey kbarchive kbmt kbdtacode kbhowto kbmacroexample kbprogramming KB212684 KbMtcs
Strojově přeložený článek
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.
Projděte si také anglickou verzi článku:212684

Dejte nám zpětnou vazbu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com