Español
Foro

DateEdit y Wochenzahl

 

Sato
Pinto
¡Hola Allerseits

Weiss alguien si el DateEdit control auch el Wochenzahl ausgibt oder restos sólo el Möglichkeit el a berechnen?

Gruss
Sato
 
Sato Pinto
WIN XP Home
XPROFAN 11
26.09.2008  
 




Nico
Madysa
Meines Wissens son el Date-Editar sólo el de, qué lo auch anzeigt. El Nummer el gewählten Semana müsstest du also incluso ausrechnen.
 
Nico Madysa
26.09.2008  
 




Jac
de
Lad
Sí, genau. Lies doch el Datum de y lass dir con el mwdate.dll el Semana berechnen.
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
26.09.2008  
 




Sato
Pinto
¡Hola Jac

Gracias para el Tip, pero yo glaube el DLL ha el Wochen Nummer Función no, oder Yo lo übersehen

Gruss
Sato
 
Sato Pinto
WIN XP Home
XPROFAN 11
26.09.2008  
 




Jörg
Sellmeyer
Schau veces, si Usted que aquí weiterhilft: [...] 
y el: [...] 
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
26.09.2008  
 




Thomas
Freier
Oder el Kalender de el MMJ-Quellcodesammlung:  [...] 

8 kB
Hochgeladen:27.09.2008
Ladeanzahl94
Descargar
 
Gruß Thomas
Windows XP SP2, XProfan X2
27.09.2008  
 




Sato
Pinto
¡Hola
Von el genannten Lösungen funktioniert sólo el Kalender con el Wochennummern de el MMJ-Quellcodesammlung, doch sehe Yo no Möglickeit sólo el Wochennummer lo a fischen. blanco alguien si el Möglich es?

Gruss
Sato
 
Sato Pinto
WIN XP Home
XPROFAN 11
27.09.2008  
 




Sato
Pinto
¡Hola
Anscheinend Es el Wochennummer berechnung no así leichte Sache. Posesiones una wenig gegoogelt y esta code en PowerBasic gefunden. ¿Es Möglich lo después de Xprofan umzusetzen? Fals lo klappen debería se lo determinado irgendwann auch para otro User gebräuchlich ser.

Gruss
Sato
KompilierenMarcaSeparación
*******************************************************
* Function Julian - returns Julian Day Number (JDN)   *
* Actually it counts days elapsed since "11/25/-4713" *
* (= Nov. 25, 4714 BCE)                               *
*******************************************************
FUNCTION Julian(BYVAL year AS LONG, _
BYVAL month AS LONG, _
BYVAL day AS LONG) AS LONG
LOCAL Days AS LONG, yearsBC AS LONG, yearsAD AS LONG

IF month < 3 THEN                                January or February?

    month = month + 12                             13th or 14th month ....
    DECR year                                      .... of prev. year
    END IF
    yearsBC = 4714 - 1                               4713 BC thru 1 BC
    yearsAD = year - 1                               1 AD thru (year of date minus 1)
    Days = INT((yearsBC + yearsAD) * 365.25)         calculate days in years
    Days = Days - (year  100)                       substract century leapdays
    Days = Days + (year  400)                       re-add valid ones
    Days = Days + INT(30.6 * (month - 1) + .2)       days in months elapsed (+ adjustment)
    FUNCTION = Days + day                            days in month of date
    END FUNCTION
    ***********************************************
    * Function DayOfWeek returns day of the week, *
    * where Monday = 1 .... Sunday = 7            *
    ***********************************************
    FUNCTION DayOfWeek(JDN AS LONG) AS BYTE
    FUNCTION = JDN MOD 7 + 1
    END FUNCTION
    ***********************************************************************
    * Function WeekOne returns first day of first week for the given year *
    * Note: This is only a helper function for WeekNumber                 *
    ***********************************************************************
    FUNCTION WeekOne(BYVAL year AS LONG) AS LONG
    LOCAL temp AS LONG, Thursday AS BYTE
    Thursday = 4
    temp = Julian(year, 1, 1) - 1                 Dec. 31 of prev. year
    DO
    INCR temp
    LOOP UNTIL DayOfWeek(temp) = Thursday         until first Thursday of year is found
    FUNCTION = temp - 3                           first day of first week is a Monday
    END FUNCTION
    *********************************************************************
    * Function WeekNumber returns ISO-proof weeknumber for a given date *
    *********************************************************************
    FUNCTION WeekNumber(BYVAL year AS LONG, _
    BYVAL month AS LONG, _
    BYVAL day AS LONG) AS BYTE
    LOCAL FirstDay AS LONG, FinalDay AS LONG, ToDay AS LONG
    LOCAL WkNumber AS BYTE
    FirstDay = WeekOne(year)
    FinalDay = WeekOne(year + 1) - 1
    ToDay    = Julian(year, month, day)

    SELECT CASE ToDay

        CASE < FirstDay       it is week 52 or 53, but which one?
        therefore we need week one of previous year as a starting point
        FirstDay = WeekOne(year - 1)
        CASE > FinalDay       there is only one possibility: week nbr 1
        FUNCTION = 1
        EXIT FUNCTION
        END SELECT
        FUNCTION = ((ToDay - FirstDay)  7) + 1
        END FUNCTION
        FUNCTION PBMain() AS LONG
        MSGBOX "Dec. 31, 1997 falls in week " & FORMAT$(WeekNumber(1997, 12, 31)) & $CRLF & _
        "Jan.  1, 1999 in week " & FORMAT$(WeekNumber(1999,  1,  1))
        END ef='./../../references-fonction/XProfan/function/'>FUNCTION
 
Sato Pinto
WIN XP Home
XPROFAN 11
27.09.2008  
 




Thomas
Freier
¿Es el, qué du brauchen kannst: infdatum.zip de  [...]  ?
 
Gruß Thomas
Windows XP SP2, XProfan X2
27.09.2008  
 




Jörg
Sellmeyer
Yo verstehe Su Problema, ehrlich dijo, no. Hier es doch una Función/Procedimiento "Week" drin, el genau el macht, qué Usted suchst:  [...] 
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
27.09.2008  
 




Sato
Pinto
Hola Thomas

Vielen Dank, el es genau Yo brauche. Hatte ya el Link besucht, habe lo übersehen.
Gerhard Putschalka Page es una Fundgrube. Auch una besten Dank a Ihm

Gruss
Sato
 
Sato Pinto
WIN XP Home
XPROFAN 11
27.09.2008  
 




Sato
Pinto
¡Hola Jörg

Posesiones lo getestet, aber komme así no está claro
So como verstanden habe muss Yo después de week una datum eingeben. z.b week 28092008
Posesiones verschiedene Formate intenta: week "28-09-2008" oder week 20080928 aber no liefert
una richtiges Ergebnis. Mache Yo qué Falsch?

Gruss
Sato
 
Sato Pinto
WIN XP Home
XPROFAN 11
27.09.2008  
 




Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

1.478 Views

Untitledvor 0 min.
rquindt16.03.2018
Rainer Hoefs14.06.2016
Manfred Barei22.06.2014
Pedro Miguel24.08.2013
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie