Hvordan gør jeg ?

Tjoo, men du er nødt til at gi' mig lidt at arbejde med...!

//>Rune

Her har du jo en form a det du mener:

Function GetDateNow(MonthNow)
  intMonth = Month(MonthNow)
  GetDateNow = intMonth + 6
End Function
Response.Write(GetDateNow(Date()))

//>Rune

!§!§!§!§!§!§!§!§ - Lav nu en ordentlig overskrift fremover! - §!§!§!§!§!§!§!§!

beldring> Sad oxo lige og overvejede at sige det til ham, men har efterhånden sagt det så mange gange, at jeg jeg er ved at køre træt i det ;o)

//>Rune

Det er da meget fedt at den bare vider den 14. 14 hvad ?
Det jeg skal bruge er fra den 1-9-2002 er det 1-3-2003.

Ang overskrivet så er det det der falt mig ind føst.

let> Prøv lige at forklar lidt nærmere!

//>Rune

måske kunne vi få Admin til at lave en funktion der check overskriften for "underlige"/"upassende" overskrifter..

let> du kunne have kaldt indlægget noget med "date", "dato" eller måske "kalender"..

/theSurfer.

rettelse: "check" skulle have været "checker"..

/theSurfer.

TheSurfer> Eller differancen mellem 2 dato'er ;o)

//>Rune

*host* differencen *host* :)

men din var bedre end mine overskrifter..

/theSurfer

LOL

//>Rune

TheSurfer> you got mail!

//>Rune

OK, jeg prøver igen.

jeg er ved at lave en rengskab´s side som skal kunde tage en dato og give en ny dato ca 6 til 12 månder frem. og den skal angives som, DD-MM-YYYY

Desvære kan jeg ikke få min visual basic kode til at virker i asp.

Hmm prøv at læg din Visual Basic kode her ud, så skal jeg omskrive den for dig...

//>Rune

medions> you got mail!

/theSurfer.

Ja nu vil den slet ikke i vb. så det kommer til at gå lidt tid til jeg finder fejle..

sådan her er den

Function nydato(antal As String) As String
nydato = Format(Now + (30 * antal), "dd.mm.yyyy")
End Function

Function nydato(antal)
nydato = Format(Now + (30 * antal), "dd.mm.yyyy")
End Function

Sådan...
//>Rune

kan ikke få den del til at virker..

Function nydato(antal)
nydato = Format(Now + (30 * antal), "dd.mm.yyyy")
End Function

Response.Write nydato("6")

Her er der et par funktioner der virker.

<%
Session.LCID = 1030

' Kontroller om dato er i en weekend og køre dato frem til først kommende mandag
function NotWeekend(Dato)
  NotWeekend = Dato
  if WeekDay(NotWeekend) = vbSunday then
    NotWeekend = DateAdd("d", 1, NotWeekend)
  end if
  if WeekDay(NotWeekend) = vbSaturday then
    NotWeekend = DateAdd("d", 2, NotWeekend)
  end if
end function

' Læg antal måneder til dato og kontroller for weekend
Function NyDato(AntalMdr, Dato)
  NyDato = NotWeekend(DateAdd("m", AntalMdr, Dato))
End Function

' Vis dato
Response.Write FormatDateTime(NyDato(6, "15-08-2002"), vbShortDate)
%>

Fedt..Lukker her med det spm..