Skinnysite.net

... un modo di esprimersi.

Skip to content

Homa Page di Daniele Franceschini

numberdate.vbs

Valutazione attuale:

/ 0

Dettagli: Categoria principale: Code Snippets; Pubblicato Mercoledì, 06 Agosto 2008 22:02; Visite: 356

Questo piccolo programma è nato dall'esigenza di ricavare la data esatta presente sulle ricevute dei pedaggi autostradali, infatti la data presente sulle ricevute non è sempre di facile comprensibile in quanto il formato usato indica l'anno di emissione e il giorno dell'anno. Pertanto per sapere la data esatta ho realizzato questa piccola funzione che, passato un anno e un numero riferito al giorno dell'anno, restituisce la data corretta in modo più leggibile.

dim d, b_stop, nParams
const maxDays = 366 'Metto un numero massimo di giorni consentiti
const maxYear = 2300 'Metto un numero massimo di anni consentiti
b_stop = false 'Imposto la variabile che specifica l'esito dei controlli

'Creo una funzione per controllare il 1° paramatro visto che lo stesso
'controllo lo devo fare 2 volte
function checkParam0(d)
    dim b_ko

    b_ko = false
    if not isnumeric(d) then
        WScript.Echo "Inserisci un numero per il giorno"
        b_ko = true
    else
        if cdbl(d) > cdbl(maxDays) then
            WScript.Echo "Giorni inseriti errati"
            b_ko = true
        end if
    end if
    checkParam0 = b_ko
end function

nParams = WScript.Arguments.Count
select case nParams
    case 2
        d = WScript.Arguments(0)
        y = WScript.Arguments(1)

        'controllo il 1° parametro
        b_stop = checkParam0(d)

        'controllo il 2° parametro
        if not isnumeric(y) then
            WScript.Echo "Inserisci un numero per l'anno"
            b_stop = true
        else
            if cdbl(y) > cdbl(maxYear) or cdbl(y) < 0 then
                WScript.Echo "Anno inserito errato"
                b_stop = true
            end if
        end if
    case 1
        d = WScript.Arguments(0)
        y = year(date)
        b_stop = checkParam0(d)
    case else
        d = 1
        y = year(date)
end select

if b_stop then WScript.quit

if nParams = 0 then
    WScript.Echo date()
else
    WScript.Echo dateadd("d",cdate("01-01-" & y),d-1)
end if