alarm maken vb 2010

[CoD_NL]

Ik heb het toch specifiek over de aanroep naar IsDate("3/1/05") in het voorbeeld, dus waar heb je het over?

 

[JoZ1]

De TS kan het toch op allerlei manieren gebruiken? Wie weet laat hij de gebruiker daar wel wat invullen.
Dan is het toch handig dat er een extra beveiliging opzit?
Daarom vind ik het nogal vreemd, dat jij het gelijk voor uiteraard niet nuttig uitmaakt.

 

[CoD_NL]

Mijn uiteraard niet nuttig gaat uiteraard over het aanroepen van IsDate("3/1/05") voor het toekennen van een waarde aan Datum. Dat heeft in zijn voorbeeld toch helemaal geen nut, zoals je zelf ook al bevestigde. Al had ik wellicht beter een voorbeeld gegeven waarbij het wel nut heeft. Iets als:

[cpp]
Function CheckDate(string inputDate, string message)
Dim d As Date = inputDate

if IsDate(d) Then
if Date.Today = d Then MsgBox(message)

Exit Function
End Function

// CheckDate(inputDate, string.Format("Het is vandaag {0}", inputDate))
[/cpp]

(mijn VB is echt te roestig, dus het is goed mogelijk dat er fouten in de bovenstaande code staan)

 

[JoZ1]

Er zitten inderdaad fouten in (een beetje te c-achtig ). Correcte code:


[CPP] Private Sub CheckDate(inputDate As String, Message As String)
Dim d As Date
If IsDate(inputDate) Then d = inputDate Else Exit Sub
If Date.Today = d Then MsgBox(Message)
End Sub

''// CheckDate(inputDate, string.Format("Het is vandaag {0}", inputDate))[/CPP]


Maar zoals je nu dus ook zelf zegt: IsDate kan wel degelijk handig zijn .
Ook bij het toekennen van een waarde aan datum, bijvoorbeeld in een functie als deze.

Jij hebt echter in jouw functie de IsDate verkeerd geplaatst. Als je daar bijvoorbeeld een tekenreeks als abcdef ingeeft, komen er foutmeldingen

 

[wakmen]

maar gaat het dan ook werken bv vandaag zijn wij de 5 en ik type daar 6/11/11 zal ik morgen dan een bericht te zien krijgen???

 

[JoZ1]

Tuurlijk

 

[wakmen]

en waar kan ik de datum invullen?bij deze code?

Private Sub CheckDate(inputDate As String, Message As String)
        Dim d As Date
        If IsDate(inputDate) Then d = inputDate Else Exit Sub
        If Date.Today = d Then MsgBox(Message)
    End Sub

''// CheckDate(inputDate, string.Format("Het is vandaag {0}", inputDate))

 

[JoZ1]

Je kan 'm zo aanroepen:

[CPP]CheckDate("6/10/2011", string.Format("Het is vandaag {0}", inputDate))[/CPP]

(staat eronder aangegeven )

 

[edmoor]

http://msdn.microsoft.com/en-us/library/aa383614(v=VS.85).aspx

Persoonlijk zou ik gewoon voor de task scheduler van Windows gaan.

Daarmee bereikt TS natuurlijk niet wat hij wil, namelijk leren programeren in VB, zoals hij aangaf.

 

[wakmen]

ik heb het geprobeerd maar ik krijg dan geen bericht te zien.

 

[JoZ1]

Laat je hele code eens zien.

 

[wakmen]

Private Sub CheckDate(ByVal inputDate As String, ByVal Message As String)
        Dim d As Date
        If IsDate(inputDate) Then d = inputDate Else Exit Sub
        If Date.Today = d Then MsgBox(Message)
        CheckDate("5/11/2011", String.Format("Het is vandaag {0}", inputDate))

 

[JoZ1]

Dit gewoon toevoegen:

[CPP]Private Sub CheckDate(ByVal inputDate As String, ByVal Message As String)
Dim d As Date
If IsDate(inputDate) Then d = inputDate Else Exit Sub
If Date.Today = d Then MsgBox(Message)
End Sub[/CPP]

En dan in een andere sub wanneer je de MsgBox nodig hebt:

[CPP]CheckDate("5/11/2011", String.Format("Het is vandaag {0}", inputDate))[/CPP]

 

[wakmen]

bedankt

 

[JoZ1]

[CPP]if (vraag.Probleem == Status.Opgelost){
Vraag.Status = Status.Opgelost;
}
[/CPP]

 

[wakmen]

hahaha

 

[The Mighty Atom]

Sorry hoor, maar dat gaat niet werken:

 

[JoZ1]

@The Mighty Atom: Heb je System.Helpmij wel geïmporteerd?

't Was maar een subtiele hint voor wakmen dat-ie z'n vraag op Opgelost zou zetten.

 

[wakmen]

sorry hoor maar ik krijg geen errors