Svátky na každý den, aneb kdo má kdy svátek

Každý den je důvod k oslavě, tak proč si neudělat na vlastních stránkách kromě počítadla a reklamních bannerů také ukazatel toho kdo má dnes svátek.

Nejprve si vytvoříme datový soubor svatky.xml. V souboru budeme evidovat měsíc, den a svátek daného dne.
[dm]1[/dm]

<?xml version="1.0" standalone="yes"?>
<DocumentElement>
	<svatky>
		<mesic>1</mesic>
		<den>1</den>
		<svatek>Nový rok</svatek>
	</svatky>
	<svatky>
		<mesic>1</mesic>
		<den>2</den>
		<svatek>Karina</svatek>
	</svatky>
	<svatky>
		<mesic>1</mesic>
		<den>3</den>
		<svatek>Radmila</svatek>
	</svatky>
</DocumentElement>

Vlastní implementace funkce pro zobrazování svátků

 Function GetSvatek(ByVal d As Date) As String

        GetSvatek = ""
        Dim dt As New DataTable("svatky")
        Dim dc As DataColumn = Nothing
        Dim dr As DataRow = Nothing

        dc = New DataColumn("mesic", GetType(Integer))
        dt.Columns.Add(dc)
        dc = New DataColumn("den", GetType(Integer))
        dt.Columns.Add(dc)
        dc = New DataColumn("svatek", GetType(String))
        dt.Columns.Add(dc)

        \'reading XML file
        dt.ReadXml("svatky.xml")

        Dim i As Integer
        If (dt.Rows.Count > 0) Then

            For i = 0 To dt.Rows.Count - 1

                If d.Month = dt.Rows(i)("mesic") AndAlso d.Day = dt.Rows(i)("den") Then

                    GetSvatek = dt.Rows(i)("svatek")
                    Exit For

                End If

            Next i

        End If

    End Function

\'volání funkce
dim LukySvatek as String = GetSvatek(#10/18/2007#)

Tuto funkci lze samozřejmě dále vylepšovat např. rozlišovat svátky více osob v jeden den (Petr a Pavel), státní svátky, …

Příspěvek byl publikován v rubrice ASP.NET (C#, VB) a jeho autorem je admin. Můžete si jeho odkaz uložit mezi své oblíbené záložky nebo ho sdílet s přáteli.

Napsat komentář

Vaše emailová adresa nebude zveřejněna. Vyžadované informace jsou označeny *