Rechnen mit dem Datum

CatWeazle

New Member
Hallo zusammen,

ich habe mir heute die B4A Demo installiert, und auch schon ein wenig ausprobiert.
Meine letzten Basicerfahrungen stammen alledings vom QBasic45 ! und das ist schon ain paar Jare her, und eine GUI kannte ich daher auch nicht :)

ok, soweit zu Vorgeschichte ......

ich wollte heute ein wenig mit dem Datum spielen ....
ich habe auch etwas hin bekommen mit .......

lblDate.Text = DateTime.GetDayOfMonth(DateTime.Now) & "." & DateTime.GetMonth(DateTime.Now) & "." & DateTime.GetYear(DateTime.Now)

das hat auch geklappt, aber dann kommt als Ergebnis: 16.2.2012 !
ich hätte mir 16.02.2012 gewünscht

kann man DateTime so Formatieren, das Tag und Monat immer zweistellig ausgegeben werden ?

kann man dann das Ergebniss in einen String laden und mit mid$ wieder zerlegen und mit den ZAHLEN rechnen?

viel für den ersten Tag ......

vielen Dank im Vorraus, für die Hilfe bei meinen ersten Schritten ....

grüße
cat.
 

Asmoro

Active Member
Licensed User
Longtime User
Hallo,

Probier es mal mit dieser Kode:

DateTime.DateFormat = "dd-MM-yyyy" im Sub Activity_Create
 
Upvote 0

Kiffi

Well-Known Member
Licensed User
Longtime User
Hallo CatWeazle,

kann man DateTime so Formatieren, das Tag und Monat immer zweistellig
ausgegeben werden ?

für die führende Null kannst Du beispielsweise NumberFormat() verwenden:

B4X:
Dim Tag   As String
Dim Monat As String
Dim Jahr  As String

Tag   = NumberFormat(DateTime.GetDayOfMonth(DateTime.Now), 2, 0)
Monat = NumberFormat(DateTime.GetMonth(DateTime.Now), 2, 0)
Jahr  = DateTime.GetYear(DateTime.Now)

Dim Datum As String

Datum = Tag & "." & Monat & "." & Jahr

Msgbox(Datum, "")

sowas hier würde allerdings auch funktionieren:
B4X:
Dim Tag   As String
Dim Monat As String
Dim Jahr  As String

Tag = DateTime.GetDayOfMonth(DateTime.Now)
If Tag.Length = 1 Then
  Tag = "0" & Tag
End If

Monat = DateTime.GetMonth(DateTime.Now)
If Monat.Length = 1 Then
  Monat = "0" & Monat
End If

Jahr  = DateTime.GetYear(DateTime.Now)

Dim Datum As String

Datum = Tag & "." & Monat & "." & Jahr

Msgbox(Datum, "")

kann man dann das Ergebniss in einen String laden und mit mid$ wieder
zerlegen und mit den ZAHLEN rechnen?

ja, kann man. Schau Dir mal SubString() bzw. SubString2() an:
Basic4android - Core

Grüße ... Kiffi
 
Upvote 0

CatWeazle

New Member
Ja Hallo, das geht ja schlag auf schlag ....

also ich hab es nochmal anders versucht und die erste Anregung aufgegriffen.

DateTime.DateFormat = "dd.MM.yyyy"

danach mit:

datum = DateTime.Now
lblDate.Text = DateTime.Date(datum)

in eine Textbox geschrieben und es ist 16.02.2012 !


@Kiffi,

Dein Code ist ...... klasse, ich glaube damit kommt mein erstes Projekt gut nach vorne, Danke!

grüße
Cat
 
Upvote 0
Top