[ASP] Datum en tijd weergeven met 0.

[Tommel]

Ik ben met een site bezig waar ook datum en tijd items in voorkomen.
Nu wil ik dat wanneer een datum de dag of maand kleiner is als 10 er een nul voor de dag of maand komt, zijn hier standaard functies voor ??
Met FormatDateTime werkt het niet.

voorbeeld

code:

8-3-2002

moet worden

08-03-2002

[Juup]

heeft ASP een soort van printf, formatted print functie?
Of een contructie als ? :
bv (number < 10) ? print 0 : print '';

[WimB]

Dit zou het moeten doen:

code:

MyStr = Format(MyDate, "dd mm  yyyy")

MyDate is de invoer en MyStr de uitvoer

edit:

Zo is het helemaal juist:
MyStr = Format(MyDate, "dd-mm-yyyy")

.

[Tommel]

WimB schreef op 05 augustus 2002 @ 17:54:

Zo is het helemaal juist:
MyStr = Format(MyDate, "dd-mm-yyyy")

Hij kent de Format functie helemaal niet ??

[Crazy D]

ASP kent geen Format, kijk eens naar de FormatDateTime functie, misschien kun je daar wat mee. Alternatief is zelf de boel opsplitsen, dus iets als
Right("00" & Day(dedatum), 2) & Right("00" & Month(dedatum), 2) & Year(dedatum)

[zneek]

http://msdn.microsoft.com.../728/msdncompositedoc.xml

VBScript reference. Zoek de goeie functie maar eens, hij bestaat. FormatDateTime oid.

[-SaveMe-]

code:

Function VoorLoopNul(waarde)
    if Not IsNumeric(waarde) or IsNull(waarde) or waarde="" then
        VoorLoopNul=""
        exit function
    end if
    if Rtrim(cint(waarde)) < 10 then
        VoorLoopNul = "0" & waarde
    else 
        VoorLoopNul = waarde
    end if
end function


Function DateNl(date)
dim maand, dag
    if IsNull(date) or date="" then
        DateNl = "&nbsp;"
        exit function
    end if
    maand = Month(date)
    'if maand < 10 then maand = "0" & maand
    dag = Day(date)
    'if dag < 10 then dag = "0" & dag
    DateNl =  VoorLoopNul(dag) & "-" & VoorLoopNul(maand) & "-" & year (date)
end function

De twee functions in een betsand stoppen dat je include.
aanroepen met dateNl(jedatumhiero) waar gewenst

zoiets ?

[akakiwi]

Zo heb ik dat ook gedaan. Gewoon een functie geschreven die het afhandeld.

code:

function fnFormatDate(vDate)
    dim aIntegers
    dim iCount

    aIntegers = split(cstr(day(vDate)) & "," & cstr(month(vDate)) & "," & cstr(year(vDate)), ",")
    for iCount = 0 to ubound(aIntegers)
        if aIntegers(iCount) < 10 then
            aIntegers(iCount) = "0" & cstr(aIntegers(iCount))
        else
            aIntegers(iCount) = cstr(aIntegers(iCount))
        end if
    next
    fnFormatDate = aIntegers(0) & "-" & aIntegers(1) & "-" & aIntegers(2)
end function

function fnFormatTime(vTime)
    dim aIntegers
    dim iCount

    aIntegers = split(cstr(hour(vTime)) & "," & cstr(minute(vTime)) & "," & cstr(second(vTime)), ",")
    for iCount = 0 to ubound(aIntegers)
        if aIntegers(iCount) < 10 then
            aIntegers(iCount) = "0" & cstr(aIntegers(iCount))
        else
            aIntegers(iCount) = cstr(aIntegers(iCount))
        end if
    next
    fnFormatTime = aIntegers(0) & ":" & aIntegers(1)' & ":" & aIntegers(2)
end function

Zowel om de tijd als om de datum goed op te maken.

[Scharnout]

Mooie functies, maar de optie van Crazy D komt het best in de buurt als makkelijk, maar dan anders

Probeer dit eens, altijd prijs!

code:

TempDate = DatePart("yyyy",TempDate) & "-" & right("0" & DatePart("m",TempDate),2) & "-" & right("0" & DatePart("d",TempDate),2)

Deze zet de datum neer yyy-mm-dd (anders trok MySQL het niet)

Stuk simpeler dan al die lappen tekst

[Crazy D]

Scharnout schreef op 06 augustus 2002 @ 14:39:
Mooie functies, maar de optie van Crazy D komt het best in de buurt als makkelijk, maar dan anders

ok "0" & is genoeg, omdat als het een geldige datum is, je altijd minimaal 1 positie gevuld hebt
Of DatePart of de Day, Month en Year functies iets uitmaakt weet ik eigenlijk niet. Ben niet zo'n datum freak