Man könnte natürlich auch StringField oder MID nehmen, aber ich finds so viel schöner, einfacher und schneller
Code: Alles auswählen
;HJBREMER PB 4.1 - Windows XP
Structure DatumsNamen
StructureUnion
wochenstrg.s{24}
wochenname.s{3}[0]
EndStructureUnion
StructureUnion
monatsstrg.s{52}
monatsname.s{4}[0]
EndStructureUnion
EndStructure
;Hinweis: die Fragezeichen werden bei einem falschen Datum ausgegeben
name.DatumsNamen\wochenstrg = "??.So.Mo.Di.Mi.Do.Fr.Sa."
name.DatumsNamen\monatsstrg = "???.Jan.Feb.MärzApr.Mai JuniJuliAug.Sep.Okt.Nov.Dez."
;aktuelles Datum per API
GetLocalTime_(sys.systemtime)
Debug name\wochenname[1+sys\wDayOfWeek]
Debug name\monatsname[sys\wMonth]
;oder mit PB
datum = Date()
tag = 1 + DayOfWeek(datum) ;fängt bei 0 an
mon = Month(datum) ;fängt bei 1 an
Debug name\wochenname[tag]
Debug name\monatsname[mon]
;oder
eigenesDatum$ = "06.05.08" ;z.B. aus einer Tabelle geholt
datum = ParseDate("%dd.%mm.%yy", eigenesDatum$)
tag = 0
mon = 0
If datum > -1 ;falsches Datum ergibt -1
tag = 1 + DayOfWeek(datum)
mon = Month(datum)
EndIf
Debug name\wochenname[tag]
Debug name\monatsname[mon]
