Datums Programmierung mit Visual Basic

Datums Programmierung mit Visual Basic

Author D.Selzer-McKenzie

Video: http://youtu.be/kMTSrse62Oo

Heute zeige ich Ihnen, wie Sie Datenabfragen usw. für über 10.000 Tage , also vom Jahr 1.n.Chr. bis 9.999 n.Chr. abfragen und verwerten können.

Im Beispiel sehen Sie, wie einfach es ist zu programmieren, dass man für jeden x-beliebigen Tag der letzten 10.000 Jahre den Wochentag erhält. Ausserdem zeigt das Programm, wieviel Monate,Tage,Minuten und Stunden von da an bis heute vergangen sind.

Den SourceCode können Sie kostenlos herunterladen im Forum

http://Outbackbrumby.Blogspot.com

 

Hier der SourceCode:

       X = "Welcher Wochentag ist ein Tages-Datum" & vbCrLf

        X = X & "zwischen 1 n.Chr. bis 9.999 n.Chr.?"

        Dim EingabeDatum As Date

 

 

        EingabeDatum = InputBox(X, X, "24.12.1435")

        Dim TagesDatum As Date = EingabeDatum

        Dim Wochentag As DayOfWeek

        Wochentag = TagesDatum.DayOfWeek

        Text1 = "Die Abfrage lautete: " & vbCrLf & X _

            & vbCrLf & "eingegeben wurde:  " & EingabeDatum

        Text2 = EingabeDatum & Space$(5) & Wochentag

        Zeichnen.DrawString(Text1.ToString, New Font("Arial Black", 24), New SolidBrush(Color.White), 40, 10)

        Zeichnen.DrawString(EingabeDatum & ": " & Wochentag.ToString, New Font("Arial Black", 36), New SolidBrush(Color.Yellow), 40, 200)

 

        BerechnetJahre = DateDiff("yyyy", EingabeDatum, Now) & " Jahre sind vom " & EingabeDatum & " bis heute " & Now & " vergangen"

        BerechnetMonate = DateDiff("m", EingabeDatum, Now) & " Monate sind vom " & EingabeDatum & " bis heute " & Now & " vergangen"

        BerechnetWochen = DateDiff("ww", EingabeDatum, Now) & " Wochen sind vom " & EingabeDatum & " bis heute " & Now & " vergangen"

        BerechnetTage = DateDiff("d", EingabeDatum, Now) & " Tage sind vom " & EingabeDatum & " bis heute " & Now & " vergangen"

        BerechnetStunden = Format(DateDiff("h", EingabeDatum, Now), "#,###,###,###,###") & " Stunden sind vom " & EingabeDatum & " bis heute " & Now & " vergangen"

        BerechnetMinuten = "Differenz in Minuten " & Format(DateDiff("n", EingabeDatum, Now), "#,###,###,###,###") & " vom " & EingabeDatum & " bis heute " & Now

 

 

        Zeichnen.DrawString(BerechnetJahre & vbCrLf _

                          & BerechnetMonate & vbCrLf _

                          & BerechnetWochen & vbCrLf _

                          & BerechnetTage & vbCrLf _

                          & BerechnetStunden & vbCrLf _

                          & BerechnetMinuten, _

                New Font("Arial Black", 12), New SolidBrush(Color.Yellow), 40, 350)