Søg
Avatar billede Slettet bruger
03. februar 2002 - 21:42 Der er 7 kommentarer og
1 løsning

Kalender?

Tjek komponenten på: http://activedeveloper.dk/websmeden/activex/eksempler/calendar.asp

Hvordan får jeg lavet således, at når der klikkes på en dato, overføres datoen til et tekstfelt. Eller eventuelt først ved klik på dato, og herefter en OK-knap hvor datoen så overføres...

Det er lidt indviklet...men er der nogen som kan hjælpe?
Avatar billede Slettet bruger
03. februar 2002 - 21:42 #1
Flere point kan gives hvis det er nødvendigt :o)
Avatar billede minijensen1 Nybegynder
03. februar 2002 - 22:08 #2
det ser ikke umiddelbart ud til at det er muligt medmindre du selv kan komme til at programmere i komponenten .. :(
Avatar billede Slettet bruger
04. februar 2002 - 12:43 #3
Forslag til en anden type kalender? Det skal gerne kunne åbnes i en "mordal dialog"

/Dan
Avatar billede minijensen1 Nybegynder
04. februar 2002 - 12:54 #4
du kan lave kalenderen som serversideprogrammering .. jeg har eksempler til PHP eller ASP .. men det kræver jo at din server understøtter en af de 2 sprog ..
Avatar billede Slettet bruger
04. februar 2002 - 13:05 #5
foretrækker ASP....er det noget du kan m@ile mig? :)
Avatar billede minijensen1 Nybegynder
04. februar 2002 - 13:07 #6
nu skal jeg først lige hjem fra skole .. så kan jeg lige sætte det lille JavaScript på og så poste scriptet her :)
Avatar billede Slettet bruger
04. februar 2002 - 13:10 #7
takker :o)
Avatar billede minijensen1 Nybegynder
04. februar 2002 - 15:09 #8
<html>

<head>
<title>Kalender</title>
<script language="JavaScript" type="text/javascript">
<!--
/* JavaScript tilføjet af minijensen1 */

function Dato(dtmDate) {
  document.formular.datofelt.value = dtmDate;
}

//-->
</script>

</head>

<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000">
<%
dtmDate = Request.QueryString("date")
dtmToday = Date

If dtmDate = "" Then
    dtmDate = Date
Else
    dtmDate = CDate(dtmDate)
End if

intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>

<p align="center"><font face="verdana" size="4">Eksempel på en kalender</font></p>
<div align="center"><center>

<table cellspacing="0" cellpadding="2" border="0" valign="top"
style="border: 1px solid rgb(0,0,0)">
<tr>
<td colspan="7" align="center" valign="middle" bgcolor="#000000"><font face="Verdana"
size="2" color="#ffffff"><strong><%=strMonth%>&nbsp;<%=intYear%></strong></font></td>
</tr>
<tr>
<td align="center"><font face="verdana" size="2">Man</font></td>
<td align="center"><font face="verdana" size="2">Tir</font></td>
<td align="center"><font face="verdana" size="2">Ons</font></td>
<td align="center"><font face="verdana" size="2">Tor</font></td>
<td align="center"><font face="verdana" size="2">Fre</font></td>
<td align="center"><font face="verdana" size="2">Lør</font></td>
<td align="center"><font face="verdana" size="2">Søn</font></td>
</tr>
<%
For y = 1 to 6
    If blnLast <> True Then
        Response.Write "<tr>"
        For x = 1 to 7
            Response.Write "<td align=center><font face=verdana size=2>"
            intLoopDay = intLoopDay + 1
            If intLoopDay >= intFirstDay Then
                dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
                If Month(dtmCurDate) = Month(dtmFirstDate) Then
                    If dtmCurDate = dtmToday Then
                        Response.Write "<strong><font color=#ff0000>"
                    End If
                    Response.Write "<a href=""java script:Dato('" & dtmCurDate & "');"">" & Day(dtmCurDate) & "</a>"
                    Response.Write "</strong></td>"
                    blnLast = False
                Else
                    Response.Write "-</td>"
                    blnLast = True
                End If
            Else
                Response.Write "-</td>"
                blnLast = True
            End if
        Next
    End If
Next
Response.Write "</font></td></tr>"
%>
<tr>
<td bgcolor="#000000" colspan="3"><font face="verdana" size="2"><b><a
href="?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></b></font></td>
<td bgcolor="#000000">&nbsp;</td>
<td bgcolor="#000000" colspan="3" align="right"><font face="verdana" size="2"><b><a
href="?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></b></font></td>
</tr>
</table>
<form name="formular">
  <input type="text" name="datofelt">
</form>
</center></div>

<p align="center"><font face="verdana" size="1">Dette eksempel er lavet af Dennis Knappe<br>
Det kan downloades fra <a href="http://www.activeserverpages.dk">http://www.activeserverpages.dk</a></font></p>

</body></html>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Webudvikling kurser
Vi tilbyder markedets bedste kurser inden for webudvikling
Se alle Webudvikling kurser

Flere spørgsmål fra JavaScript kategorien

Titel Indlæg Oprettet Seneste aktivitet
problem med download i <a href=" " download> tag i JavaScript Af Peer i JavaScript 5 27/04/202620:09 21/08/202610:41
Validering af filnavn i formular Af Strawberry i JavaScript 8 14/04/202610:11 20/04/202611:14
Mangler et JavaScript til htm side med iframe i Joomla5 Af Peder Lund Nielsen i JavaScript 2 03/02/202614:19 04/04/202616:02
Åbne en PDF fil fra en mappe Af mbl i JavaScript 9 18/04/202516:52 22/04/202512:33
Spørgsmål til cookies Af Mads i JavaScript 2 14/02/202511:47 27/06/202514:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
White papers
Flere white papers »