Problem med dato

[Tha_Zaynt]

hvordan henter jeg ut dato med VB-script? Jeg vil hente ut datoen som er på pc,n som kjører scriptet..

[Jonas]

MsgBox Date

Fungerer i VB og VBs.

[Tha_Zaynt]

det er en ting til jeg lurer på...hva gjør Time?

[Jonas]

Time returnerer klokkeslett.

[Tha_Zaynt]

i hvilket format får man klokkeslett og dato? Er det mulig å definere selv?

[Jonas]

i hvilket format får man klokkeslett og dato? Er det mulig å definere selv?

Du får det i samme format som klokker på pc'en er stilt på. Hvordan man kan endre det, vet jeg ikke.

[aadnk]

Man kan fint endre formatet selv. Enten lokalt i programmet eller i regionale innstilninger via API. Det første kan blant annet gjøres på følgende måte:

 

MsgBox Year(Date) & "." & Month(Date) & "." & Day(Date)

 

Da får man oppsettet [år].[måned].[dag]. Angående timer, minutter og sekunder kan man gjøre det slik:

 

MsgBox Second(Time) & "." & Minute(Time) & "." & Hour(Time)

[NightMaree]

hallo

 

korleis får man klokka eller datoen til å visa i f.ek. frame1 eller text1??

går de an?? fekk de ikke til eg

[Tha_Zaynt]

blir da

 http://www.sol.no/underholdning/tv/guiden/?StartTime=now&EndTime=2900&Categories=*&Channels=*&refreshing=&Date=Month(Date) & "%2F" & Day(Date) & "%2F" & Year(Date) 

 

det samme som

http://www.sol.no/underholdning/tv/guiden/?StartTime=now&EndTime=2900&Categories=*&Channels=*&refreshing=&Date=11%2F09%2F2004

 

???

Endret 8. november 2004 av Tha_Zaynt

[NightMaree]

ja, men går de an uten å bruka internett?

alså ei klokka så oppdatere seg automatisk, og viser i ei frame eller text box eller någe sån

Endret 9. november 2004 av NightMaree

[GeirGrusom]

Private Sub Form_Load()
 Timer1.Interval = 100 ' Hvert tiendels sekund
 Timer1.Enabled = True
 Timer1_Tick()
End Sub

Private Sub Timer1_Tick()
 Dim newTime As String
 newTime = Hour(Now()) & ":" & Minute(Now()) & Second(Now())
 If newTime <> txtTime.Text Then txtTime.Text = newTime ' For å hindre blinking, endres txtTime.text når klokkeslettet endrer seg
End Sub

[Tha_Zaynt]

blir da

 http://www.sol.no/underholdning/tv/guiden/?StartTime=now&EndTime=2900&Categories=*&Channels=*&refreshing=&Date=Month(Date) & "%2F" & Day(Date) & "%2F" & Year(Date) 

 

det samme som

http://www.sol.no/underholdning/tv/guiden/?StartTime=now&EndTime=2900&Categories=*&Channels=*&refreshing=&Date=11%2F09%2F2004

 

???

Jeg kom frem til at dette ikke kan være det samme etter litt prøving og feiling, men er det et VB-prog jeg kan bruke for å printe ut slik at jeg kan se resultatet, er litt vanskelig å bare prøve seg frem sån..

[NightMaree]

i denne koden mangler de vel någe etter: Timer1_Tick()

ska der ikke stå "= blabla bla"

men ke ska der stå då

Private Sub Form_Load()

Timer1.Interval = 100 ' Hvert tiendels sekund

Timer1.Enabled = True

Timer1_Tick()

End Sub

[Tha_Zaynt]

når noen starter en tråd er det vel trådstarters problem som skal ta's hensyn til, hvis du har et annet problem foreslår jeg at du starter en ny tråd......

[aadnk]

blir da

 http://www.sol.no/underholdning/tv/guiden/?StartTime=now&EndTime=2900&Categories=*&Channels=*&refreshing=&Date=Month(Date) & "%2F" & Day(Date) & "%2F" & Year(Date) 

 

det samme som

http://www.sol.no/underholdning/tv/guiden/?StartTime=now&EndTime=2900&Categories=*&Channels=*&refreshing=&Date=11%2F09%2F2004

Mener det. Husk iallfall å skrive koden på følgende måte:

 

MsgBox "http://www.sol.no/underholdning/tv/guiden/?StartTime=now&EndTime=2900&Categories=*&Channels=*&refreshing=&Date=" & Month(Date) & "%2F" & Day(Date) & "%2F" & Year(Date)

 

Videre kan det være en fordel å teste alle mulige omstendigheter slik at noe uforsett kan utelukkes. Det kan tenkes at visse datoer skrives annerledes (09, og ikke 9 som i programmet), men det er heller usannsynlig at siden skal la seg påvirke av dette.

[GeirGrusom]

som sagt i en annen post så er jeg litt utenfor i dag,

Timer1_Tick()

skal selvsagt bare være Timer1_Tick

 

Timer1_Tick kaller bare eventet til Timer1, for at tekstboksen skal oppdateres med en gang programmet starter.

[NightMaree]

takker for hjelpa GeirGrusom

[Tha_Zaynt]

hmm...merkelig, scriptet mitt funker når jeg bruker:

 

GetURL = "http://www.sol.no/underholdning/tv/guiden/index.cgi?StartTime=now&EndTime=2900&Categories=*&Channels=*&Date=11%2F10%2F2004"

 

men ikke når jeg bruker:

 

GetURL = MsgBox "http://www.sol.no/underholdning/tv/guiden/?StartTime=now&EndTime=2900&Categories=*&Channels=*&refreshing=&Date=" & Month(Date) & "%2F" & Day(Date) & "%2F" & Year(Date)

[Jonas]

GetUrl = "http://www.sol.no/underholdning/tv/guiden/index.cgi?StartTime=now&EndTime=2900&Categories=*&Channels=*&Date=" & Month(Date) & "%2F" & Day(Date) & "%2F" & Year(Date)

[Tha_Zaynt]

funka det ja..men hvordan bli det hvis jeg vil outputte datoen slik at det er en dag tidligere en hva det er? f.eks det er egentlig 14. nov men jeg vil at scriptet skal outputte 13 nov.