Dato- tid der er tilbage

her er et vb-script, der gør det

jul = cdate("24-12-" & year(date))
dage = datediff("d", date, jul)
if dage > 0 then
  msgbox "der er jul om " & dage & " dage "
elseif dage = 0 then
  msgbox "det er jul"
else
  msgbox "det var jul for " & -dage & " dage siden","Juleaften"
end if

Sæt koden ind i Wordpad og gem den som en .Vbs fil, så kører den

Hej
Jeg vil meget gerne have det i VB6, skal gerne kunne vise i en tekst boks

Hej
Jeg kan godt få det i form lode, men jeg kan ikke få det over i en tekst box ?

hej  hcichosz

Private Sub Command1_Click()
Dim Juleaften As Date
Juleaften = #12/24/2006#
AntalDageTilJul = DateDiff("d", Now(), Juleaften)
Text1 = ("Til jul 2007 er der  " & AntalDageTilJul & " Dage")
End Sub

mvh

mvhansen

jul = cdate("24-12-" & year(date))
dage = datediff("d", date, jul)
if dage > 0 then
  Text1.Text = "der er jul om " & dage & " dage "
elseif dage = 0 then
  Text1.Text =  "det er jul"
else
  Text1.Text =  "det var jul for " & -dage & " dage siden","Juleaften"
end if

Hej
smid et svar, tak for hjælpen.
mvh HC

hvem skal svare ?

denne linie

Text1.Text =  "det var jul for " & -dage & " dage siden","Juleaften"
skal se sådan ud
Text1.Text =  "det var jul for " & -dage & " dage siden"

Begge virker fint, jeg bruger din kabbak til at lege vidre med
mvh/HC

et svar ;-))