[ASP/Access] Probleem met datumweergave

[Verwijderd]

Ik heb weeral een probleem met mijn forum dat ik aan het maken ben. Ik heb in Access zelf de datumweergave enzo verandert maar nu moet er in mijn ASP pagina ook de datum op dezelfde manier worden weergegeven. De datum moet worden weergegeven als: maandag 4 maart 2002 en niet als 4/03/02
Hoe kan ik dit laten aanpassen op de pagina?
Hetzelfde probleem heb ik met de tijd. Het wordt weergegeven als 21:30:00 wat moet worden weergegeven als 21:30

Kan iemand mij helpen?

[Gert]

FormatDateTime( datum, vbLongDate ) en FormatDateTime( datum, vbShortTime)

Zoek dus eens op FormatDateTime

[Basszje]

Kan je trouwens ook gelijk ff DateSerial bekijken. Om het verschil tussen Amerikaanse/ Nederlanders datums op te lossen.

Hij wil n.l. soms nog wel eens de maand en de dag gaan omdraaien.

[zoepercavia]

DateSerial lost dat probleem helaas niet op

je zult iets van "3 Jul 2003" moeten gebruiken om absolute zekerheid te hebben dat ie goed de database in gaat

[Basszje]

Persoonlijk 'stamp' ik mijn datums altijd.
Dus ik maak van een bep datum het verschil ( in secondes ) tussen een bep. start datum ( date(0) in mijn geval) en de huidige datum.

Dat is een getal die in alle tijdzones hetzelfde begrepen wordt

[Verwijderd]

Euhm, ik heb de datum in een database opgeslegen en die moet er uitkomen als dinsdga 5 maart ofzo en niet andersom

[Gert]

Dan heb je nog niet gekeken wat FormatDateTime doet...

[Verwijderd]

Het is voor op de asp pagina, niet voor in de database!!!

[pistole]

FormatDateTime is een vbscript functie...

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vafctformatdatetime.asp

* pistole zoekt even naar de juiste link. Deze gaat naar VB

Deze is iets handiger: http://msdn.microsoft.com/library/en-us/script56/html/vtoriFunctions.asp?frame=true

[Verwijderd]

ik moet dus wel eerst een database record uit de tabel halen en niet de datum van vandaag laten weergeven

[Gert]

code:

strSql = "select eenkortedatum from eentabel;"
Set objRS = objConn.Execute( strSql )
eenlangedatum = FormatDateTime( objRS( "eenkortedatum" ), vbLongDate )
Response.Write eenlangedatum
objRS.Close
Set objRS = Nothing

[pistole]

Op dinsdag 05 maart 2002 18:18 schreef Molshoop het volgende:
ik moet dus wel eerst een database record uit de tabel halen en niet de datum van vandaag laten weergeven

dus?
zie voorbeeld van Gert.

[Verwijderd]

in PHP zou ik de datum dan afkappen:
$jaar=substr($datum,0,4);

en om de dag van de week te vinden bestaat er zoiets als:
ereg("([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})", $today, $regs);
$dayofweek = date("D", mktime($regs[4], $regs[5], $regs[6], $regs[2], $regs[3], $regs[1]));

maar dat is geen ASP-script...
Ben niet zoveel bezig met ASP...

[Gert]

Daar heb je in VBS WeekDay() voor.

[Verwijderd]

Op dinsdag 05 maart 2002 19:09 schreef pistole het volgende:

[..]

dus?
zie voorbeeld van Gert.

Dus, geprobeerd maar werkt langs geen kanten ...

[pistole]

ik snap het dan niet meer
-hoe krijg je je datum (in asp) als je hem rechtstreeks afdruk (response.write rs("datum"))
-wat gebeurt er als je daarvan maakt formatdatetime(rs("datum"), x) ?

Dat moet iets opleveren

[Sjaaky]

code:

session.LCID = 1043
Setlocale("nl")

toen ik dit aan het begin van mijn asp pagina's zette waren mijn datumproblemen voorbij. Ik geloof zelfs dat session.LCID genoeg is, maar ik doe ze allebei voor de zekerheid.

Hier 3 belangrijke LCID's:
1043 Nederlands
2057 Engels (UK)
1033 Engels (US)

Oeps ik heb geloof ik de vraag niet helemaal goed gelezen.:o

[pistole]

Op dinsdag 05 maart 2002 22:58 schreef Sjaaky het volgende:

code:

session.LCID = 1043
Setlocale("nl")

toen ik dit aan het begin van mijn asp pagina's zette waren mijn datumproblemen voorbij. Ik geloof zelfs dat session.LCID genoeg is, maar ik doe ze allebei voor de zekerheid.

Hier 3 belangrijke LCID's:
1043 Nederlands
2057 Engels (UK)
1033 Engels (US)

Oeps ik heb geloof ik de vraag niet helemaal goed gelezen.:o

Misschien niet een antwoord op Molshoop's vraag, maar zeker wel relevant!

[Verwijderd]

kijk, ik moet gewoon de datum uit de databasetabel halen waar die al juist is gezet, dan moet die er toch zo uitkomen dacht ik, ik heb hier al deze codes al gebruikt maar ze werken niet. Kan er mij iemand een code schrijven met de volgende gegevens zodat het er uit zal komen als in mijn 1ste post?

de string is genaamd sqlString, ik haal gegevens uit de database die ik nodig heb (connectie is al gemaakt).

code:

Set catRS = Server.CreateObject( "ADODB.RecordSet" )
catRS.ActiveConnection = Con
sqlString = "SELECT DISTINCT thread_id, thread_writer, thread_text, thread_topic, thread_date FROM threads "
catRS.Open sqlString

dan heb ik een loop die alles doorzoekt enzo en alles appart zet.
De volgende code gebruik ik dus om gegevens te plaatsen. Waar moet dan jullie code komen om de datum te veranderen?

code:

<%=catRS( "thread_writer" )%>

[disjfa]

Op woensdag 06 maart 2002 13:27 schreef Molshoop het volgende:

code:

<%=formatdatetime(catRS( "thread_writer" ), 1)%>

je luistert ook nie ook he

pfff t staat er gewoon helemaal uitgelegd

[Verwijderd]

deze scriptjes heb ik gemaakt omdat ik hetzelfde probleem had:

Access '97

code:

Function DateNedUsa(datum) 'zet nederlands om naar amerikaans
    temp = split(datum,"-",-1,1)
    tempdate = temp(1)&"/"&temp(0)&"/"
    If Ubound(temp) = 2 Then
     tempdate = tempdate & temp(2)
    Else
       tempdate = tempdate & Year(date)
    End If
    DateNedUsa=tempdate
End function

Function DateUsaNed(datum) 'zet amerikaans om naar nederlands
    temp = split(datum,"/",-1,1)
    tempdate = temp(1)&"-"&temp(0)&"-"
    If Ubound(temp) = 2 Then
     tempdate = tempdate & temp(2)
    Else
       tempdate = tempdate & Year(date)
    End If
    DateUsaNed = tempdate
End Function

Access 2000

code:

Function DateNLUSA(datum) 'zet nederlands om naar amerikaans
    temp = split(datum,"-",-1,1)
    tempdate = temp(0)&"-"&temp(1)&"-"
    If Ubound(temp) = 2 Then
     tempdate = tempdate & temp(2)
    Else
       tempdate = tempdate & Year(date)
    End If
    DateNLUSA = tempdate
End Function

Function DateUSANL(datum) 'zet amerikaans om naar nederlands
    temp = split(datum,"-",-1,1)
    tempdate = temp(1)&"-"&temp(0)&"-"
    If Ubound(temp) = 2 Then
     tempdate = tempdate & temp(2)
    Else
       tempdate = tempdate & Year(date)
    End If
    DateUSANL = tempdate
End Function

Wanneer gebruiken
als je een form hebt waar de datum ingevuld moet worden, je gaat dan in de insert/update query het volgende zetten:

DateUSANL(Request.Form("datum")) (MS Access 2000)
DateUsaNed(Request.Form("datum")) (MS Access '97)

en dan werkt het, dus al die andere zooi hoef je dan niet te gebruiken, maar kan je wel weer gebruiken voor andere dingen.

[Davidoff402]

Gebruik als maand iets van jul, mei, aug ofzo. Dan kun je niet snel in de fout gaan. wijzig een paar waarden om het als 8/3/02 of 3/8/02 te krijgen.

Misschien dat je aan deze code wat hebt.

<select name="SelectMonthStart" id = "MonthStart" >
<%

dim MonthNo
dim i
dim maandnaam(12)

MonthNo = Month(date)

maandnaam(0) = "January"
maandnaam(1) ="February"
maandnaam(2) ="March"
maandnaam(3) ="April"
maandnaam(4) ="May"
maandnaam(5) ="June"
maandnaam(6) ="July"
maandnaam(7) ="August"
maandnaam( ="September"
maandnaam(9) ="October"
maandnaam(10)="November"
maandnaam(11) ="December"
maand = Month(date())

i = 1
for each n in maandnaam
response.write ("<option value="" ")
response.write (i)
if i = MonthNo then
response.write(""" SELECTED>")
else
response.write(""">")
end if
response.write (n)
response.write ("</option>")

i = i + 1
next
%>
</select>
<select name="SelectDayStart" id ="DayStart" >
<option value=" 31">31</option>
<%

Dim DayNo
DayNo = Day (date())

for i = 1 to 31
response.write ("<option value="" ")
response.write (i)
if i = DayNo then
response.write(""" SELECTED>")
else
response.write(""">")
end if
response.write (i)
response.write ("</option>")

next
%>
</select>
<select name="SelectYearStart" id="YearStart" >
<option value=" 2001" >2001</option>
<%

Dim YearNo
YearNo = Year (date())

for i = YearNo - 1 to YearNo + 1
response.write ("<option value="" ")
response.write (i)
if i = YearNo then
response.write(""" SELECTED>")
else
response.write(""">")
end if
response.write (i)
response.write ("</option>")


next
%>
</select>