---

Dato er jo, som vi alle ved, pisse irriterende når man skal gemme og
hente i databaser. I visual basic 6 bruger jeg gerne
format(dato,"mm/dd/yy") til at give datoerne de ønskede format. Hvilken
funktion kan det samme i ASP?

--
/Lars

HTML software: <http://go.to/HTMLEasyColors>
Brug venligst Re: og ikke Sv: ved svar, da beskeder
der begynder med Sv: bliver slettet fra mange servere

---

"Lars Hoffmann" <lars@hoffmann.ac> wrote in message
news:3B198549.1A2D90AD@hoffmann.ac...
> Dato er jo, som vi alle ved, pisse irriterende når man skal gemme og
> hente i databaser. I visual basic 6 bruger jeg gerne
> format(dato,"mm/dd/yy") til at give datoerne de ønskede format. Hvilken
> funktion kan det samme i ASP?

FormatDateTime() kan lidt det samme.
<http://msdn.microsoft.com/scripting/default.htm?/scripting/vbscript/doc/vsf
ctFormatDateTime.htm>

--
Jakob Andersen
FAQ for webdesign gruppen på
<http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar "

---

Jakob Andersen wrote:

> FormatDateTime() kan lidt det samme.
> <http://msdn.microsoft.com/scripting/default.htm?/scripting/vbscript/doc/vsf
> ctFormatDateTime.htm>

men med formatDateTime kan jeg ikke lave f.eks dd/mm/yyyy om til
mm/dd/yy. Nogen der ved hvordan det kan lade sig gøre på en smart måde?

--
/Lars

HTML software: <http://go.to/HTMLEasyColors>
Brug venligst Re: og ikke Sv: ved svar, da beskeder
der begynder med Sv: bliver slettet fra mange servere

---

"Lars Hoffmann" <lars@hoffmann.ac> wrote in message
news:3B1A05B1.FA62C074@hoffmann.ac...
> Jakob Andersen wrote:
>
> > FormatDateTime() kan lidt det samme.
> >
<http://msdn.microsoft.com/scripting/default.htm?/scripting/vbscript/doc/vsf
> > ctFormatDateTime.htm>
>
> men med formatDateTime kan jeg ikke lave f.eks dd/mm/yyyy om til
> mm/dd/yy. Nogen der ved hvordan det kan lade sig gøre på en smart måde?
>
Formater om til tekst og brug denne i din SQL statement
I Access omkranses med #
I MSSQL omkranse med '

eks

Function strZeroFill(rstrData, rlngLength)
If Not IsNumeric(rstrData) Then
pustrZeroFill = rstrData
Else
If rlngLength > Len(Trim(rstrData)) Then
pustrZeroFill = String(rlngLength - Len(Trim(rstrData)), "0") &
Trim(rstrData)
Else
pustrZeroFill = rstrData
End If
End If
End Function

Function strGetEnDato
Dim dtmEnDato
Dim strEndato

dtmEnDato = Date()
strEnDato = pustrZeroFill(Month(dtmEnDato), 2) & _
pustrZeroFill(Day(dtmEnDato), 2) & Year(dtmEnDato)
End Function


Sub Main
Dim strSQL
' -- Access
strSQL = "INSERT INTO ENTABEL (ENDATO) VALUES (#" strGetEnDato() "#)"

' -- MSSQL
strSQL = "INSERT INTO ENTABEL (ENDATO) VALUES ('"strGetEnDato() "')"

' etc....
End Sub

Skrevet frit fra leveren, evt fejl følger gratis med

mvh/Peter Lykkegaard

---

Lars Hoffmann wrote:
>
> Dato er jo, som vi alle ved, pisse irriterende når man skal gemme
> og hente i databaser.

Nej, ikke når du har vendet dig til at gøre det rigtigt. Men hvis du
hver gang laver en kludder løsning, så er det ganske rigtigt noget rod.

> I visual basic 6 bruger jeg gerne
> format(dato,"mm/dd/yy") til at give datoerne de ønskede format.

og det fejler så når der ændres sprogopsætning på maskinen.

> Hvilken funktion kan det samme i ASP?

DateSerial. Se evt. her:
http://groups.google.com/groups?ic=1&selm=3ADAF1BD.AE9CB4B%40hotmail.com
(det fejler naturligvis så når du skifter databaseserver, men der skal
jo kun ændres et sted)

--
Lauritz

---

Lauritz Jensen wrote:
>
> Lars Hoffmann wrote:
> >
> > Dato er jo, som vi alle ved, pisse irriterende når man skal gemme
> > og hente i databaser.
>
> Nej, ikke når du har vendet dig til at gøre det rigtigt. Men hvis du
> hver gang laver en kludder løsning, så er det ganske rigtigt noget rod.
>
> > I visual basic 6 bruger jeg gerne
> > format(dato,"mm/dd/yy") til at give datoerne de ønskede format.
>
> og det fejler så når der ændres sprogopsætning på maskinen.

Nej, men det fejler når der ændres database software. Det er ikke
maskinens regions eller sprogopsætninger der afgør hvordan f.eks access
vil have datoerne i en SQL streng.


> > Hvilken funktion kan det samme i ASP?
>
> DateSerial. Se evt. her:

   
mit problem var mest af alt at repræsentere datoer ordentligt når de
blev hentet fra en DB. Jeg løste det på følgende måde, tag jer ikke af
at det er på spansk, idéen skulle være forståelig:

   function realDate(theDate)
      
      dim datearray(12)
      dim mes
      dim ReturnValue
      
      if isdate(theDate) then
      
         Datearray(0)=""
         Datearray(1)=" de Enero de "
         Datearray(2)=" de Febrero de "
         Datearray(3)=" de Marzo de "
         Datearray(4)=" de Abril de "
         Datearray(5)=" de Mayo de "
         Datearray(6)=" de Junio de "
         Datearray(7)=" de Julio de "
         Datearray(8)=" de Augusto de "
         Datearray(9)=" de Septiembre de "
         Datearray(10)=" de Octubre de "
         Datearray(11)=" de Noviembre de "
         Datearray(12)=" de Diciembre de "
   
         mes = datearray(cint(month(thedate)))
         ReturnValue=day(theDate) & mes & year(theDate)
      else
         returnValue=""
      end if
      realDate=Returnvalue
   end function

og det ser ud til at virker fint nok.

--
/Lars

HTML software: <http://go.to/HTMLEasyColors>
Brug venligst Re: og ikke Sv: ved svar, da beskeder
der begynder med Sv: bliver slettet fra mange servere

---

"Lars Hoffmann" <lars@hoffmann.ac> wrote in message
news:3B198549.1A2D90AD@hoffmann.ac...
> Dato er jo, som vi alle ved, pisse irriterende når man skal gemme og
> hente i databaser. I visual basic 6 bruger jeg gerne
> format(dato,"mm/dd/yy") til at give datoerne de ønskede format. Hvilken
> funktion kan det samme i ASP?

Faldt lige over denne:
<http://www.4guysfromrolla.com/webtech/051601-1.shtml>

--
Jakob Andersen
FAQ for webdesign gruppen på
<http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar "