Dato som streng

strDate = month(date()) & \"/\" & day(date() & \"/\" & year(date()) & \" - \" & hour(time()) & \":\" & minute(time()) & \" \" & funcGetPM(time())

function funcGetPM(myTime)

dim  timetemp
timetemp = Cdate(\"12:00:01 PM\")
  if mytime > timetemp then
funcGetPM = \"pm\"
else
funcGetPM = \"am\"
end if

end function

streng = now()

???

Forstår dig ikke lige..

mange tak for det fine svar stoffer...

denne her er bedre:

function funcGetTime()
    strDate = month(date()) & \"/\" & day(date()) & \"/\" & year(date()) & \" - \" & hour(time()) & \":\" & minute(time()) & \" \"
    dim  timetemp
    timetemp = Cdate(\"12:00:01 PM\")
      if time() > timetemp then
    strDate =strDate & \"pm\"
    else
    strDate =strDate & \"am\"
    end if
    funcGetTime = strDate
end function

Response.Write funcGetTime()

så lidt ;)

denne her er final, fik lige øje på en ting der kunne ødelægge lidt afhængig af hvad datoformat serveren kørte på. Nu virker den uanset datoformat og sprog.

function funcGetTime()
    strDate = month(date()) & \"/\" & day(date()) & \"/\" & year(date()) & \" - \" & hour(time()) & \":\" & minute(time()) & \" \"
    dim  timetemp
    timetemp = Cdate(\"12:00:01\")
      if time() > timetemp then
    strDate =strDate & \"pm\"
    else
    strDate =strDate & \"am\"
    end if
    funcGetTime = strDate
end function

Response.Write funcGetTime()

Her er en lille funktion:

Function DoDate
If Left(FormatDateTime(Now,4),2) > 12 Then
    intTimer = Left(FormatDateTime(Now,4),2) - 12
    strClock = \"pm\"
Else
    intTimer = Left(FormatDateTime(Now,4),2)
    strClock = \"am\"
End if
DoDate = Replace(FormatDateTime(Now,2), \"-\", \"/\") & \" \" & intTimer & \":\" & Right(FormatDateTime(Now,4),2) & \" \" & strClock
End Function

Hmm jeg hader dato/tid strenge, for den returnerede værdi, er altid meget afhængig af om serveren bruger 24 eller 12 timers standard.

Jeg gør det normalt sådan her, når jeg skal være helt sikker

<%
Dim strDate, strHourSuffix, strHour, strMinute

If Minute(Now) < 10 Then
strMinute = CStr(\"0\" & Minute(Now))
Else
strMinute = CStr(Minute(Now))
End If

If Hour(Now) < 12 Then
strHourSuffix = \"am\"
Else
strHourSuffix = \"pm\"
End If

strHour = CStr(Hour(Now))

Select Case strHour
Case \"13\" strHour = \"1\"
Case \"14\" strHour = \"2\"
Case \"15\" strHour = \"3\"
Case \"16\" strHour = \"4\"
Case \"17\" strHour = \"5\"
Case \"18\" strHour = \"6\"
Case \"19\" strHour = \"7\"
Case \"20\" strHour = \"8\"
Case \"21\" strHour = \"9\"
Case \"22\" strHour = \"10\"
Case \"23\" strHour = \"11\"
End Select

strDate = Month(Date) & \"/\" & Day(Date) & \"/\" & Year(Date) & \" - \" & strHour & \":\" & strMinute & \" \" & strHourSuffix
%>

<%=strDate%>

Håber det kan bruges

JiveFive

Damn der kom nogle forskellige bud! Gid vi havde Visual Basics format() funktion!!

Hmmm Stoffer

Det er en meget fin rutine du har lavet. Den får pm/am og alt det der rigtigt. Men hvorfor skriver den så 23 istedet for 11???

Det er da ikke helt rigtig!

JiveFive

>Stoffer - bare et lille spørgssmål. Finder disse funktioner tiden på serveren som scriptet kører fra eller tiden på klientens computer?

Orca

nice løsning moonduck

JiveFive

jivefive --> doh! ja det er rigtigt, jeg er træt ;)

nå men jeg kunne jo ikke rigtigt løbe fra det, så her er final version.

function funcGetTime(myTime)
    strDate = month(myTime) & \"/\" & day(myTime) & \"/\" & year(myTime) & \" - \"
   
    tempHour = hour(myTime)
    tempMinute = minute(myTime)
    Select Case tempHour
        Case 13 tempHour = \"1\"
        Case 14 tempHour = \"2\"
        Case 15 tempHour = \"3\"
        Case 16 tempHour = \"4\"
        Case 17 tempHour = \"5\"
        Case 18 tempHour = \"6\"
        Case 19 tempHour = \"7\"
        Case 20 tempHour = \"8\"
        Case 21 tempHour = \"9\"
        Case 22 tempHour = \"10\"
        Case 23 tempHour = \"11\"
        Case 24 tempHour = \"11\"
        case else
        tempHour = hour(myTime)
    End Select

    if len(tempHour) < 2 then
    strDate = strDate & \"0\" & tempHour
    else
    strDate = strDate & tempHour
    end if
    strDate = strDate & \":\"
   
    if len(tempMinute) < 2 then
    strDate = strDate & \"0\" & tempMinute
    else
    strDate = strDate & tempMinute
    end if   
   
   
    dim  timetemp
    timetemp = Cdate(\"12:00:01\")
      if myTime > timetemp then
    strDate =strDate & \" pm\"
    else
    strDate =strDate & \" am\"
    end if
    funcGetTime = strDate
end function

Response.Write funcGetTime(now())

orca-> Serverens tid.