Datum

[Jensvde]

Hallo iedereen,

Ik ben bezig met het maken van een programma, maar ik zou graag hebben dat het enkel op een bepaalde datum kan worden uitgevoerd. Bijvoorbeeld alleen elke 20ste van de maand. Is dit mogelijk? En als het dan bijvoorbeeld de 19de is er niets gebeurt. Ik gebruik Visual Basic 6

Alvast bedankt!

Jens

 

[old Hippy]

Hi zoiets

 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        doe_vandaag()
    End Sub

    Private Sub doe_vandaag()
        TextBoxX1.Text = Today.Day
        Dim doeiets As Integer = 3
        Dim dag As Integer = TextBoxX1.Text
        If doeiets = dag Then
            MsgBox("Hallo het werkt")
        End If
    End Sub

dit zal iedere maand op de 3 een bericht geven

 

[Jensvde]

Bedankt voor je antwoord! Ja dat is zeer bruikbaar, ik zal het straks als ik thuis ben uit proberen. Maar kan ik ook het volgende doen?:

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        doe_vandaag()
    End Sub

    Private Sub doe_vandaag()
        TextBoxX1.Text = Today.Day
        Dim doeiets As Integer = 3
        Dim dag As Integer = TextBoxX1.Text
        If doeiets = dag Then
            Form2.show
        Else
            Unload.me
        End If
    End Sub

 

[old Hippy]

Je kan er alles mee op de dag die je instelt.

 Private Sub doe_vandaag()
        TextBox1.Text = Today.Day
        Dim doeiets As Integer = 3
        Dim dag As Integer = TextBox1.Text
        If doeiets = dag Then
            Form2.show()
        Else
       
      ' als je form1 niet mag opstarten die dag set je close()
     Form2.Close()
        End If
    End Sub

 

[Bloodshed]

Let wel dat een gebruiker de datum van de computer kan wijzigen en dus het programma kan gebruiken wanneer hij wil. (ik weet niet wat je maakt, en of dat veel uitmaakt)

 

[Jensvde]

.Close () werkt niet onder vb6 dacht ik.

Ook werkt deze code niet onder VB6, ik krijg: Compile error [ZIE AFBEELDING]



EDIT: Heb de andere Textbox1.Text aangepast naar .Caption, maar dat hielp ook niet.

 

[old Hippy]

Sorry maar had even niet opgelet VB6 is voor mij te lang geleden.
kan je niet verder helpen misschien een ander

 

[Jensvde]

Ik heb hier misschien nog wat gevonden dat bruikbaar is. Kan je dan hiermee ook zeggen als het de 15de is van maart dan runt het programma?

 

[Jensvde]

Heb inmiddels mijn probleem al opgelost. Voor diegene die nog interesse zouden hebben, hier is de code die ik heb gebruikt:

Private Sub Form_Load()
Label1.Caption = Day(Now)
Label2.Caption = Month(Now)
If Label1.Caption = 10 And Label2.Caption = 10 Then
MsgBox "Welkom"
Else
MsgBox "Sorry, verkeerde datum"
Unload Me
End If
End Sub

Werkt onder Visual Basic 6 en zegt dat het programma enkel kan worden geladen op de 10de van oktober. Je kan zover gaan als je wil. Je kan al deze ook nog gebruiken:

DateValue(Now)
TimeValue(Now)
Weekday(Now)
WeekdayName(Weekday(Now))
WeekdayName(Weekday(Now), True)
Month(Now)
MonthName(Month(Now))
MonthName(Month(Now), True)
Day(Now)
Year(Now)
Hour(Now)
Minute(Now)
Second(Now)

[URL="http://www.vb6.us/tutorials/date-time-functions-visual-basic"]KLIKJE VOOR BRON[/URL]

Dit kan misschien nuttig zijn als je wil dat jouw computer je een gelukkige verjaardag wenst. Plaats je programma simpel in de startup folder en wanneer de datum juist is zal het programma openen.