Koodit: VB6: UNIX-aikaleiman purku

Function PuraLeima(Vormaatti, ByVal Leima)

    'kertoimet kuntoon
    minuuttikerroin& = 60
    tuntikerroin& = 60 * minuuttikerroin
    päiväkerroin& = 24 * tuntikerroin
    vuosikerroin& = 365 * päiväkerroin

    'laskeskeskeskeskellaan hullusti
    Viikonpäivä = (Leima \ päiväkerroin) Mod 7
    vuosi = Leima \ vuosikerroin
    Leima = Leima Mod vuosikerroin
    päivä = Leima \ päiväkerroin
    Leima = Leima Mod päiväkerroin
    tunti = Leima \ tuntikerroin
    Leima = Leima Mod tuntikerroin
    minuutti = Leima \ minuuttikerroin
    Leima = Leima Mod minuuttikerroin
    sekunti = Leima
    vuosi = vuosi + 1970 'leima 0 on 1.1._1970_
    kuukausi = 1 'leima 0 on 1._1_.1970
    päivä = päivä + 1 'leima 0 on _1_.1.1970

    'montako päivää kuukausissa
    pvät = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

    'sunnuntai on ekana koska se päivä mistä leimoja lähettiin laskemaan oli sunnuntai.
    pvä = Array("sunnuntai", "maanantai", "tiistai", "keskiviikko", "torstai", "pejantai", "lauantai")
    kuu = Array("tammi", "helmi", "maalis", "huhti", "touko", "kesä", "heinä", "elo", "syys", "loka", "marras", "joulu")

    'karkausvuodet menoon mukaan
    For i = 1970 To vuosi - 1
        If karkaa(i) Then päivä = päivä - 1: jutu = jutu + 1
    Next

    If päivä < 1 Then 'jos karkausvuosista tulee niin paljon että päivät menee yli niin korjataan
        vuosi = vuosi - 1
        If karkaa(vuosi) Then karkaako = 1
        päivä = päivä + 365 + karkaako
    End If

    päivät = päivä 'vuodenpäiviä varten

    'liialliset päivät kuukausiksi
    If päivä > pvät(0) Then
        Do While päivä > pvät(kuukausi - 1)
            'siirrretään päivät kuukauteen
            päivä = päivä - pvät(kuukausi - 1)
            kuukausi = kuukausi + 1
            If (kuukausi = 3) And karkaa(vuosi) Then 'karkausvuosissa on helmikuussa 29 päivää
                päivä = päivä - 1
                If päivä = 0 Then 'jos olisi ollut maaliskuun 1. niin onki helmikuun 29.
                    päivä = 29
                    kuukausi = 2
                    Exit Do 'mennään pois ettei jäisi ikuisesti junnaamaan koska
                    '...tuolla dowhile mestoilla luulisi että on 28 päivää vain vaikka karkausvuosi
                End If
            End If
        Loop
    End If

    'suunilleen php:n tyylinen formaattihommeli
    kyssärit = Array("d", "D", "F", "g", "G", "h", "H", "i", "j", "l", "L", "m", "M", "n", "s", "t", "U", "w", "Y", "y", "z")
    vastaukset = Array(nollaa(päivä), Left(pvä(Viikonpäivä), 2), kuu(kuukausi - 1) + "kuu", (tunti Mod 12) + 1, tunti, nollaa((tunti Mod 12) + 1), nollaa(tunti), nollaa(minuutti), kuukausi, pvä(Viikonpäivä), Abs(CInt(karkaa(vuosi))), nollaa(kuukausi), kuu(kuukausi - 1), kuukausi, nollaa(sekunti), pvät(kuukausi - 1), Leima, Viikonpäivä, vuosi, Right(vuosi, 2), päivät)

    'ja muunnetaan vormaatimerkit oikeiksi arvoiksi
    Dim merkki As String
    For i = 1 To Len(Vormaatti)
        merkki = Mid(Vormaatti, i, 1)
        For j = 0 To UBound(kyssärit)
            If merkki = kyssärit(j) Then
                merkki = vastaukset(j)
                Exit For
            End If
        Next
        returni = returni + merkki
    Next
    PuraLeima = returni

End Function

Function karkaa(v) 'tsekkaa onko v karkausvuosi, varmuuden vuoks sulkeita voi olla pari liikaa =P

    karkaa = (((v Mod 100) <> 0) And ((v Mod 4) = 0)) Or ((v Mod 400) = 0)

End Function


Function nollaa(mitä) 'lisää tarvittaessa nollan eteen, esim 15:2:3 on tyhmempi aika kuin 15:02:03

    nollaa = IIf(mitä < 10, "0", "") & mitä

End Function