🚀 go-pugleaf

From Vito :
> Hallo,
>
> Als ik nu de actuele tijd ( bvb 21.30 ) wil verlengen met 45 minuten om op 
> die nieuwe tijd een functie te starten en om dat ook in een textbox af te 
> drukken, hoe doe ik dat?
> Dus het is 21.30 en in de textbox met bvb komen: de neiuwe job wordt gestart 
> om 22.15
> en, op die tijd moet de nieuwe job ( - procedure) ook starten ...
>
> Een tijd bij een tijd optellen ( of aftrekken) lukt mij van geen kanten.
>
> Sorry dat ik zo krakkemikkig uitleg, maar ik ben sinds vele jaren terug wat 
> amusement aan't zoeken in VB, 'k moet nog effe wennen :-)

x= dateadd("n", 45, "21:30")

Gijs Beukenoot schreef:
>  From Vito :
> 
>> Hallo,
>>
>> Als ik nu de actuele tijd ( bvb 21.30 ) wil verlengen met 45 minuten 
>> om op die nieuwe tijd een functie te starten en om dat ook in een 
>> textbox af te drukken, hoe doe ik dat?
>> Dus het is 21.30 en in de textbox met bvb komen: de neiuwe job wordt 
>> gestart om 22.15
>> en, op die tijd moet de nieuwe job ( - procedure) ook starten ...
>>
>> Een tijd bij een tijd optellen ( of aftrekken) lukt mij van geen kanten.
>>
>> Sorry dat ik zo krakkemikkig uitleg, maar ik ben sinds vele jaren 
>> terug wat amusement aan't zoeken in VB, 'k moet nog effe wennen :-)
> 
> 
> x= dateadd("n", 45, "21:30")
> 
> 

zo gemakkelijk ... en het werkt nog ook :-)
Afijn, ik zal er wel terug inkomen.
Al vrees ik dat ik hier nog heelwat vragen zal stellen ...

Heel erg bedankt

-- 
vito
====================================================
webstek in opbouw: http://home.tiscali.be/vito
====================================================

Gijs Beukenoot schreef:

> x= dateadd("n", 45, "21:30")

Ik dacht dat het werkte, maar er zit helaas een addertje onder het 
gras... als ik dit doe:

Text2.Text = "Nieuwe taak om: " _
             + CStr(DateAdd("n", myInterval, Time)) + vbCrLf

Dan wordt dat keurig weergegeven: bijvoorbeeld  20:10:25
BEHALVE als de nieuwe tijd over de 24:00 gaat dan krijg ik ineens iets 
zoals:
Nieuwe taak: 31/12/1899 1:10:25

Er wordt een datum bijgezet die totaal verkeerd is (1899 !!) .. al zal 
het uur wel juist zijn, myInterval is een random gegenereerd aantal 
minuten en dat kan gaan tot 300 ( 5 uur dus).

Ik heb er gisteren avond uren op gezocht, maar niet gevonden hoe dat 
te doen. 't Is dedju nog maar half zes en ik ben er al weer terug mee 
bezig :-)

-- 
vito
====================================================
webstek in opbouw: http://home.tiscali.be/vito
====================================================

From Vito :
> Gijs Beukenoot schreef:
>
>> x= dateadd("n", 45, "21:30")
>
> Ik dacht dat het werkte, maar er zit helaas een addertje onder het gras... 
> als ik dit doe:
>
> Text2.Text = "Nieuwe taak om: " _
>              + CStr(DateAdd("n", myInterval, Time)) + vbCrLf
>
> Dan wordt dat keurig weergegeven: bijvoorbeeld  20:10:25
> BEHALVE als de nieuwe tijd over de 24:00 gaat dan krijg ik ineens iets zoals:
> Nieuwe taak: 31/12/1899 1:10:25
>
> Er wordt een datum bijgezet die totaal verkeerd is (1899 !!) .. al zal het 
> uur wel juist zijn, myInterval is een random gegenereerd aantal minuten en 
> dat kan gaan tot 300 ( 5 uur dus).
>
> Ik heb er gisteren avond uren op gezocht, maar niet gevonden hoe dat te doen. 
> 't Is dedju nog maar half zes en ik ben er al weer terug mee bezig :-)

Begin eens met de + te vervangen door & (want zo tel je op als je een 
beetje pech hebt en VB de twee velden als nummeriek kan interpreteren)
En dan daarna Time, gebruik Now() zodat je niet alleen de tijd maar ook 
de datum erbij hebt.
Dus iets als:

Text2.Text = "Nieuwe taak om: " & _
             CStr(DateAdd("n", myInterval, Now())) & vbCrLf

Gijs Beukenoot schreef:

> Text2.Text = "Nieuwe taak om: " & _
>             CStr(DateAdd("n", myInterval, Now())) & vbCrLf

Inderdaag Gijs, met Now() lukt dat. De datum staat er wel bij, maar 
dat is geen probleem.

Bedankt voor de hulp.
Heu ... die zal ik nog vaak nodig hebben denk ik :-)


-- 
vito
====================================================
webstek in opbouw: http://home.tiscali.be/vito
====================================================