Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite A1 a zadajte " = NOW ( ) " získať aktuálny systémový dátum . Kliknite na kartu " Vývojár " a kliknite na " Visual Basic " pre spustenie editora jazyka Visual Basic . . Kliknite na " Vložiť " menu a kliknite na " modul " vložiť nový kód modulu
2
Vytvoriť novú funkciu s " Date " dátový typ premennej ako vstupný parameter :
Public Function getDayOfWeek ( dateEntered Ako dátum)
3
Vytvorenie premenné pre uloženie počet dní :
Dim dayNum As Integer
4 < p
dayNum = deň v týždni ( dateEntered , vbSunday )
5
použite " Case " vyhlásenie na : > k vrátenie počtu dní pomocou " dateEntered " premennej použite funkciu " deň v týždni " určiť deň a vrátiť denné meno ako reťazec :
Select Case dayNum
Prípad 1
getDayOfWeek = " Nedeľa "
Prípad 2
getDayOfWeek = " pondelok "
Prípad 3
getDayOfWeek = " Utorok "
Case 4
getDayOfWeek = " stredu "
Case 5
getDayOfWeek = " Vo štvrtok "
Case 6
getDayOfWeek = " piatok "
Prípad 7
getDayOfWeek = " Saturday "
End Select
6
Ukončite funkciu zadaním " End Function " na konci . Prepnite späť do aplikácie Microsoft Excel a typ " = getDayOfWeek ( A1 ) " v B1 sa zobrazí aktuálny deň pomocou dáta v A1 .
Copyright © počítačové znalosti Všetky práva vyhradené